Executer macro sur tous les fichiers d'un repertoire

Bonjour,

J'ai dans un fichier"CalculBudget" une macro (V2export_feuil_renom) qui va collecter les données d'un fichier source, les transforme, réalise des calculs et copie une feuille de résultat vers un nouveau classeur "Budget total".

Pour exécuter ma macro, je vais chercher mon fichier source grâce à une liste déroulante.

Mon problème est que j'ai 30 fichiers sources. J'aimerais donc réaliser une macro qui pourrait appliquer ma macro (v2export_feuil_renom) sur mes 30 fichiers sources.

J'ai essayé le code suivant mais cela ne fonctionne pas :

Sub ouverture_en_boucle()

Dim Fichier As String, Chemin As String
Dim Wb As Workbook

'chemin à renseigner :

Chemin = "C:\Users\Nath&JB\Desktop\"
Fichier = Dir(Chemin & "*.xlsx")

Do While Fichier <> ""
Set Wb = Workbooks.Open(Chemin & Fichier)

'execution de la macro

Call V2export_feuil_renom

Set Wb = Nothing
Fichier = Dir
Loop

End Sub

Pouvez vous m'aider ?

En vous remerciant,

JBB

Bonjour,

Pour exécuter ma macro, je vais chercher mon fichier source grâce à une liste déroulante.

Si tu as une liste, boucle sur cette liste !

Cordialement

MFerrand a écrit :

Bonjour,

Pour exécuter ma macro, je vais chercher mon fichier source grâce à une liste déroulante.

Si tu as une liste, boucle sur cette liste !

Cordialement

OK Merci. Mais je ne sais pas comment boucler une liste

bonjour,

peux-tu mettre le code de V2export_feuil_renom ?

h2so4 a écrit :

bonjour,

peux-tu mettre le code de V2export_feuil_renom ?

Bonjour,

Je ne peux pas le mettre pour l'instant car mon fichier est sur mon ordi de bureau. Je pourrais le faire à partir de mardi.

Merci,

JBB

JBB a écrit :

h2so4 a écrit :

bonjour,

peux-tu mettre le code de V2export_feuil_renom ?

Bonjour,

Je ne peux pas le mettre pour l'instant car mon fichier est sur mon ordi de bureau. Je pourrais le faire à partir de mardi.

Merci,

JBB

Bonjour,

De retour, voici le code de ma principale macro qui permet d'aller chercher une feuille dans un fichier donné et de la renommer :

Private Sub CommandButton4_Click()

'
' Remplacer_donnéesBF17 Macro_essais_rep_etnom_ds_celulles
'

'
Sheets("Données BF17").Select
Sheets("Données BF17").Name = "OldDonnées BF17"
ChDir Trim(CStr(Range("A5")))

Workbooks.Open Filename:=Trim(CStr(Range("C7")))
Sheets("Page1_1").Select
Sheets("Page1_1").Copy Before:=Workbooks( _
"Fichier de préparation du budget.xlsm").Sheets(1)
Sheets("Page1_1").Select
Sheets("Page1_1").Name = "Données BF17"
Sheets("Macros").Activate

End Sub

Cordialement,

JB

bonjour,

h2so4 a écrit :

bonjour,

peux-tu mettre le code de V2export_feuil_renom ?

je répète ma demande.

h2so4 a écrit :

bonjour,

h2so4 a écrit :

bonjour,

peux-tu mettre le code de V2export_feuil_renom ?

je répète ma demande.

Bonjour,

En fait je me suis trompé la macro ne s'appelle pas V2export... Mais j'ai mis le code de ma macro principale dans mon precedent message.