Ouvrir fichier par fichier et excécuter macro

Bonjour,

j'ai un répertoire dans lequel se trouve un nombre aléatoire de fichiers .XLSX (entre 1 et plus de 200)

Ces fichiers sont nommés 1.xlsx, 2.xlsx, ... etc jusqu'a l'infini.

Je souhaite ouvrir le fichier 1.xlsx, lui appliquer une macro déja existante, fermer ce fichier sans enregistrer, puis passer au fichier 2, puis 3, et ainsi de suite jusqu'à ce qu'ils soient tous traités.

(Précision: tous les fichiers .xlsx du répertoire sont à traiter)

Le chemin du répertoire n'est pas à spécifier, j'utilise : ThisWorkbook.Path

Merci pour votre aide

Salut,

J'ai commencer le vba il y a tres peu, mais j'utiliserai un truc du genre .

Sub macro()
Dim i
i = 1
Dim adresse
adresse = ThisWorkbook.Path

For i = 1 To 500

If Dir(adresse & "\" & i & ".xlsm") = "" Then
Exit Sub
Else
''''''''''ta macro''''''''''
End If
Next
End Sub

Cordialement

Merci pour ta rapidité,

je teste ça tout de suite

j'ai edité, j'avais fait une petite erreur (xlsx au lieu de xlsm ....)

Macro sans effet , pas de messages d'erreur, pas de fichiers d'ouvert

J'ai testé la macro en pas à pas détaillé, elle tourne sans erreur, mais sans aucun effet

As tu une idéé du pourquoi?

tu as bien mis ta macro a executer au bon endroit ?

Je pense qu'il manque le code pour ouvrir le fichier j'ai tenté ça :

Sub macro()

Dim i

i = 1

Dim adresse

For i = 1 To 500

adresse = ThisWorkbook.Path

If Dir(adresse & "\" & i & ".xlsx") = "" Then

Exit Sub

Else

Workbooks.Open Filename:=ThisWorkbook.Path & i & ".xlsx"

Range("h12").FormulaR1C1 = Now()

End If

Next

End Sub

Mais ca ne doit pas etre correct non plus

Oui j'ai mis le code que pour tester tes fichier,

essaye

Workbooks.Open Filename:=adresse & "\" & i & ".xlsx"

Oui c'est ça

Génial

Merci pour tout

Rechercher des sujets similaires à "ouvrir fichier excecuter macro"