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