Votre question
Résolu

Changer la hiérarchie de ma macro

Tags :
  • Path
  • Programmation
Dernière réponse : dans Programmation
19 Octobre 2016 16:24:03

Sub CopieData()

  1. Dim ws As Worksheet
  2.  
  3. Dim srcPath
  4.  
  5. Dim wb As Workbook
  6.  
  7. Dim fileName As String
  8.  
  9.  
  10. 'path sur les fichiers sources (on prend le path de suivi, remonte d'un niveau, et va dans Dossier pour ...
  11.  
  12. srcPath = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "Dossier pour suivi CB\"
  13.  
  14.  
  15. 'on lit le nom du premier fichier
  16.  
  17. fileName = Dir(srcPath)
  18.  
  19.  
  20. While fileName <> vbNullString 'tant qu'il reste des fichiers dans le répertoire
  21.  
  22. If fileName Like "Données de*.*" Then 'si le nom du fichier commence par "Données de"
  23.  
  24. Set wb = Workbooks.Open(srcPath & fileName) 'on l'ouvre
  25.  
  26. Set ws = wb.Sheets("Feuil1") 'on définit la feuille qui contient les données source
  27.  
  28. copyBySheet ws 'on appel la sous routine qui copy les données
  29.  
  30. wb.Save ' on sauve le fichier "donnée de"
  31.  
  32. wb.Close ' on le ferme
  33.  
  34. End If
  35.  
  36. fileName = Dir() 'on prend le nom du fichier suivant
  37.  
  38. Wend
  39.  
  40. ThisWorkbook.Save ' on sauve le suivi
  41.  
  42. End Sub


Alors j'aimerais juste pouvoir mettre le dossier crédits dans lequel se trouve le fichier qui contient la macro ET le dossier "Dossier pour suivi CB" (qui contient "données de) dans un lecteur commun

Je vous dis où je souhaiterais mettre mon fichier

Alors Bureau > Ordinateur > RACINEENT (\\ENT.ANT) (M: ) > Gestion des fichiers > Crédits > Fichiers & outils > Compta

Seulement je ne sais pas comment m'y prendre

Autres pages sur : changer hierarchie macro

Meilleure solution

a b L Programmation
24 Octobre 2016 10:03:38

Ben ça devrait déjà marcher, tout est en relatif dans la macro ...
partage