Chemin de fichier en variable

Chemin de fichier en variable - VB/VBA/VBS - Programmation

Marsh Posté le 28-05-2012 à 14:31:54    

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 :
  1. Sub ajout_onglet()
  2. ' Selectionne la première cellule du tableau
  3. Range("A1" ).Select
  4. ' Boucle tant que pas vide
  5. Do While Not (IsEmpty(ActiveCell))
  6.     Line = Line + 1
  7.     Selection.Offset(1, 0).Select
  8. Loop
  9. For lgn = 2 To Line
  10. Sheets("Tous_fichiers" ).Select
  11. indic = Cells(lgn, 1).Value
  12. Selection.Copy
  13. Set nvlleFeuille = Sheets.Add(Type:=xlWorksheet)
  14. ActiveSheet.Name = indic
  15. Sheets(indic).Move After:=Sheets(Sheets.Count)
  16. Dim xlApp
  17. Dim xlBook As New Excel.Workbook
  18. Dim xlSheet As New Excel.Worksheet
  19. Dim fpath
  20. Dim fname
  21. chemin = Cells(lgn, 7).Value
  22.     Set xlApp = CreateObject("Excel.Application" )
  23.     Set xlBook = xlApp.Workbooks.Open(chemin)
  24.     Set xlSheet = xlBook.Sheets("Statistics" )
  25.     ThisWorkbook.Sheets(indic).Range("A1:I47" ) = xlSheet.Range("A1:I47" ).Value
  26. xlBook.Close
  27. xlApp.Quit
  28. Set xlSheet = Nothing
  29. Set xlBook = Nothing
  30. Set xlApp = Nothing
  31. Next lgn
  32. Sheets("Tous_fichiers" ).Select
  33. End Sub


 
Merci pour votre aide !

Reply

Marsh Posté le 28-05-2012 à 14:31:54   

Reply

Marsh Posté le 28-05-2012 à 18:13:27    

Salut, qu'elle est la feuille active ? que contient ta variable Chemin ?


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Marsh Posté le 28-05-2012 à 18:17:04    

Le chemin aboutit sur un fichier excel au final.
 
Chemin est contenue dans une sheet de ThisWorkbook
 
Je veux ouvrir la feuille appelée Statistics et la recopier dans la feuille indic de ThisWorkbook.

Reply

Marsh Posté le 28-05-2012 à 19:40:30    

Re, j'ai posé 2 questions précises et tu ne me donnes aucune réponse
Nom de la feuille active et contenu de ta variable Chemin via le debug par exemple


Message édité par kiki29 le 28-05-2012 à 19:40:56

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed