ouvrire tous les fichiers excels d'un même répertoire

[SWEAT]

Bonjour,

J'aimerai créer une macro dans EXCEL qui me permetrai d'ouvrire dans un même dossier tous les fichiers excels qu'il contient. (*.xls).

Merci d'avance je suis bloqué

 

[omicron]

Bonsoir Sweat,

Voici une procédure qui devrait répondre au problème posé.

=====================================================Private Sub CommandButton1_Click()
FnMax = 8 '<<< A ajuster
Set Fs = Application.FileSearch
Fs.LookIn = "C:\" '<<< A ajuster
Fs.FileType = msoFileTypeExcelWorkbooks
If Fs.Execute > 0 Then
For i = 1 To Fs.FoundFiles.Count
If i > FnMax Then
MsgBox "Nombre maxi de fichiers à ouvrir atteint. Exit"
Exit Sub
Else
Workbooks.Open (Fs.FoundFiles(i))
End If
Next i
Else
MsgBox "Aucun fichier trouvé."
End If
End Sub
=====================================================

Il suffit d'ajuster 2 paramètres avant de la lancer

1. Fn Max = Nombre maximum de fichiers pouvant être ouverts. Si tu ne mets pas cette limite et que ton répertoire contient un grand nombre de fichiers, tu risques de ne pas avoir assez de mémoire pour les ouvrir tous, et de bloquer Excel.
2. Fs.LookIn = "C:\" Mettre ici le nom du répertoire dans lequel sont recherchés les fichiers.

Cordialement.

Omicron.