Bonsoir,
j'ai une procédure qui ouvre un fichier Excel et qui fait un traitement avec.
Je voudrais faire de même mais avec tous les fichiers Excel contenu dans un répertoire (sans avoir à les ouvrir 1 par 1)
J'ai cherché sur le forum et j'ai trouvé ceci :
Mais ce code ne résout pas tout : avec lui, tous les fichiers du répertoire sont traités. Moi, je ne veux que les fichiers en extension .xls
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Dim Fs, Rep, Fichier Set Fs = CreateObject("Scripting.FileSystemObject") Set Rep = Fs.GetFolder("C:\") 'mon repertoire For Each Fichier In Rep.Files 'Mes traitements à faire s = s & Fichier.Name s = s & vbCrLf 'MsgBox s 'TRAITEMENT Next MsgBox " fichier " & s
Savez-vous comment faire ?
J'ai essayé ceci sans succès :
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set Rep = Fs.GetFolder("C:\*.xls")
Thibault
Partager