Discussion :

[tibofo]

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 :

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

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

Savez-vous comment faire ?
J'ai essayé ceci sans succès :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Rep = Fs.GetFolder("C:\*.xls")

Merci
Thibault

[SfJ5Rpw8]

En modifiant une ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 if Fichier.Name like "*.xls" then s = s & Fichier.Name

[tibofo]

Merci simple et efficace !!!