Ouvrir des fichiers à la suite

[Flora]

Bonjour,

J'aimerais savoir s'il est possible de balayer (parcourir) un dossier avec une macro afin qu'elle soit lancée sur chaque fichier de ce dossier. En d'autre terme, peut-on ouvrir automatiquement plusieurs fichiers à la suite et faire exécuter la macro d'une traite ?

Merci bcp pour vos idées !!!!!

 

[didier09]

Bonjour Flora,
Tu peux essayer cette macro:

Sub ouverture_fichiers()

Dim Ouverture

With Application.FileSearch
.NewSearch
.LookIn = 'C:\\' 'Là il faut que tu adapte ton chemin.
.Execute
On Error Resume Next
For Each Ouverture In .FoundFiles
Workbooks.Open Ouverture
Next Ouverture
End With

End Sub

Bonne journée
Didier

 

[Flora]

Merci beaucoup Didier, je vais essayer, j'espère pouvoir bien avancer maintenant !