Ouvrir des fichiers à la suite

F

Flora

Guest
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

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
6
Affichages
422
Réponses
18
Affichages
859

Statistiques des forums

Discussions
312 913
Messages
2 093 535
Membres
105 752
dernier inscrit
fred13340