Finrod3 Intégrale de 2 à 3 de x.dx | Bonjour,
j'ai un problème avec mon code VBA en ce qui concerne le chemin que doit aller chercher le code. Si je rentre le chemin de la manière suivant "Cblabla" ça marche, mais lorsque je veux le faire "varier", et l'appeler à l'aide d'une variable, ça plante. J'ai essayé pas mal de chose, et j'avoue ne pas savoir que faire actuellement...
Code :
- Sub ajout_onglet()
- ' Selectionne la première cellule du tableau
- Range("A1" ).Select
- ' Boucle tant que pas vide
- Do While Not (IsEmpty(ActiveCell))
- Line = Line + 1
- Selection.Offset(1, 0).Select
- Loop
- For lgn = 2 To Line
- Sheets("Tous_fichiers" ).Select
- indic = Cells(lgn, 1).Value
- Selection.Copy
- Set nvlleFeuille = Sheets.Add(Type:=xlWorksheet)
- ActiveSheet.Name = indic
- Sheets(indic).Move After:=Sheets(Sheets.Count)
- Dim xlApp
- Dim xlBook As New Excel.Workbook
- Dim xlSheet As New Excel.Worksheet
- Dim fpath
- Dim fname
- chemin = Cells(lgn, 7).Value
- Set xlApp = CreateObject("Excel.Application" )
- Set xlBook = xlApp.Workbooks.Open(chemin)
- Set xlSheet = xlBook.Sheets("Statistics" )
- ThisWorkbook.Sheets(indic).Range("A1:I47" ) = xlSheet.Range("A1:I47" ).Value
- xlBook.Close
- xlApp.Quit
- Set xlSheet = Nothing
- Set xlBook = Nothing
- Set xlApp = Nothing
- Next lgn
- Sheets("Tous_fichiers" ).Select
- End Sub
|
Merci pour votre aide ! |