Résolu Changer la hiérarchie de ma macro

[outilsetprocess]

Sub CopieData()

Dim ws As Worksheet

Dim srcPath

Dim wb As Workbook

Dim fileName As String

 
'path sur les fichiers sources (on prend le path de suivi, remonte d'un niveau, et va dans Dossier pour ...

srcPath = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "Dossier pour suivi CB\"

 
'on lit le nom du premier fichier

fileName = Dir(srcPath)

 
While fileName <> vbNullString 'tant qu'il reste des fichiers dans le répertoire

    If fileName Like "Données de*.*" Then 'si le nom du fichier commence par "Données de"

        Set wb = Workbooks.Open(srcPath & fileName) 'on l'ouvre

        Set ws = wb.Sheets("Feuil1") 'on définit la feuille qui contient les données source

        copyBySheet ws 'on appel la sous routine qui copy les données

        wb.Save ' on sauve le fichier "donnée de"

        wb.Close ' on le ferme

    End If

    fileName = Dir() 'on prend le nom du fichier suivant

Wend

ThisWorkbook.Save ' on sauve le suivi

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

 

[outilsetprocess]

Up

Svp ?

 

[drul]

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