Ouvrir Fichier suivant

Question

Bonjour,

Un fichier .xls est ouvert.
Quel est la syntaxe, pour ouvir le fichier suivant celui déjà ouvert (sans l'ouvrir avec son nom). 
Les fichiers sont dans le même répertoire. 

Pour être clair, un exemple :
C:\Mon fichier\001.xls
C:\Mon fichier\002.xls
C:\Mon fichier\005.xls

Etc... (J'ai des centaines de fichiers .xls)
Je voudrais sélectionner le répertoire C:\Mon fichier\, et ouvrir tous les fichiers sans les ouvrir un par un, ni les només (sauf peut-être le 1er classeur). En effet, un nouveau classeur peut-etre intégrer par la suite. 
=> Je voudrais que la macro continue à ouvrir tous mes classeurs de ce répertoire. (Si le fichier C:\Mon fichier\004.xls est crée il doit s'ouvrir quand je lancerais la macro VB).

Merci beaucoup par avance.

pelw · Answer

Par exemple pour ouvrir tous les fichiers *.xls du répertoire "C:\Mon fichier" :

Dim sFichier As String

'Définir le chemin
ChDir ("C:\Mon fichier")

'Ouvrir tous les fichiers *.xls
sFichier = Dir("*.xls")
Do Until sFichier = ""
   Workbooks.Open (sFichier)
   '---> Ajouter le traitement
   ActiveWorkbook.Close
   sFichier = Dir()
Loop

@+

pelw

Ouvrir Fichier suivant

1 réponse

Discussions similaires