Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2262 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Chemin de fichier en variable

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Chemin de fichier en variable

n°2143882
Finrod3
Intégrale de 2 à 3 de x.dx
Posté le 28-05-2012 à 14:31:54  profilanswer
 

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 !

mood
Publicité
Posté le 28-05-2012 à 14:31:54  profilanswer
 

n°2143890
kiki29
Posté le 28-05-2012 à 18:13:27  profilanswer
 

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


---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
n°2143891
Finrod3
Intégrale de 2 à 3 de x.dx
Posté le 28-05-2012 à 18:17:04  profilanswer
 

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.

n°2143899
kiki29
Posté le 28-05-2012 à 19:40:30  profilanswer
 

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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Chemin de fichier en variable

 

Sujets relatifs
[KSH] Comment tester si un fichier est complet ?Fichier Excel "Eurofoot 2012" gratuit à télécharger
TCD à plage variableupload de fichier
Page de taille variable pour un portfolio wordpressAjoutez un fichier dans un zip ou rar
Afficher variable dans textareaFusionner plusieurs fichiers CVS un seul fichier excel
changer la date de modification de certains fichierExtraire variable "fichier" et "chemin" d'une variable
Plus de sujets relatifs à : Chemin de fichier en variable


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR