ouverture automatique de plusieurs fichiers excel

[philippe]

Bonjour,

J'ai le problème suivant : à l'aide d'une macro je désire ouvrir plusier fichier localisés dans un répertoire et ayant une racine commune, car avec *.xls cela ne passe pas.

Connaissez vous une astuce pour y arrriver.

Merci à tous

 

[wally]

Bonsoir philippe et le forum,

Par exemple pour ouvrir tous les fichiers *.xls d'un répertoire :

sPath = "C:\MonRépertoire"
sFile = Dir(sPath & "\*.xls")

Do Until sFile = ""
Workbooks.Open sPath & "\" & sFile
sFile = Dir()
Loop


Slts

wally