jojodanslalune
XLDnaute Junior
Bonjour à tous,
J'ai une macro qui ouvre tous les fichiers contenus dans un répertoire précis:
Je souhaite à présent réaliser une nouvelle macro qui aurait un peu la même fonction: l'idée serait d'ouvrir tous les fichiers contenus dans le répertoire du premier fichier ouvert.
En d'autres termes:
J'ouvre un fichier. Ce fichier me permettrait de lancer une macro qui ouvre tous les autres fichiers du même endroit.
Est-ce possible?
J'ai une macro qui ouvre tous les fichiers contenus dans un répertoire précis:
Code:
Sub ouvrir_tout()
'l'instruction ChDir permet de se positionner
'sur un répertoire précis
ChDir "C:\Bulletins\" & Range("D13").Value & "\"
monfichier = Dir("*.*")
While monfichier <> ""
Workbooks.Open monfichier
monfichier = Dir()
Wend
End Sub
Je souhaite à présent réaliser une nouvelle macro qui aurait un peu la même fonction: l'idée serait d'ouvrir tous les fichiers contenus dans le répertoire du premier fichier ouvert.
En d'autres termes:
J'ouvre un fichier. Ce fichier me permettrait de lancer une macro qui ouvre tous les autres fichiers du même endroit.
Est-ce possible?