| Finrod3Inté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 "C
  blabla" ç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 tableauRange("A1" ).Select' Boucle tant que pas videDo While Not (IsEmpty(ActiveCell))    Line = Line + 1    Selection.Offset(1, 0).SelectLoopFor lgn = 2 To LineSheets("Tous_fichiers" ).Selectindic = Cells(lgn, 1).ValueSelection.CopySet nvlleFeuille = Sheets.Add(Type:=xlWorksheet)ActiveSheet.Name = indicSheets(indic).Move After:=Sheets(Sheets.Count)Dim xlAppDim xlBook As New Excel.WorkbookDim xlSheet As New Excel.WorksheetDim fpathDim fnamechemin = 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" ).ValuexlBook.ClosexlApp.QuitSet xlSheet = NothingSet xlBook = NothingSet xlApp = NothingNext lgnSheets("Tous_fichiers" ).SelectEnd Sub
 | 
 
 Merci pour votre aide !
   |