Discussion :

[une_tite_question]

Bonjour,

J'utilise Dir pour récupérer les fichiers xls de mon répertoire, je viens de me rendre compte qu'il récupère aussi les xlsx . Comment pourrai je ne récupérer que les xls.

voici la commande Dir :

Code :

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

1
2
 
g = Dir("C:\Test\*.xls", 7)

MERci

[Didier Gonard]

bonjour,

une solution possible :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ChercheEtTrouve()
Dim strChem
Dim I As Long
 
strChem = Dir("D:\*.xls")
Do While Len(strChem) > 0
   If Len(strChem) - InStrRev(strChem, ".") = 3 Then
      Debug.Print strChem
   End If
   I = I + 1
   strChem = Dir
Loop
Debug.Print I & " fichier(s) trouvés"
End Sub

cordialement,

Didier

[une_tite_question]

Merci, ça fonctionne parfaitement.
Doit on en déduire que la fonction Dir n'est pas très fiable ?

[Didier Gonard]

Doit on en déduire que la fonction Dir n'est pas très fiable ?

En toutes choses, il est préférable d'essayer de comprendre avant de juger !


_

[une_tite_question]

Je ne demande que ça.
En tout cas, je vous remercie de votre disponibilité.