Sub Lire_D_extension_Excel()
'affiche les noms de fichiers dans D:\ avec extensions Excel
Rep = "D:\" ' Définit le chemin d'accès.
Fichier = Dir(Rep & "*.xl*") ' Extrait la première entrée.
Debug.Print "-------- Répertoire " & Rep
Do While Fichier <> "" ' Commence la boucle.
' tester l'extension
Ext = Replace(Fichier, Left(Fichier, InStrRev(Fichier, ".", -1) - 1), "")
Debug.Print "Ext:" & Ext & vbTab & vbTab & Fichier
' actions sur le fichier
'.....
'.....
Fichier = Dir ' Extrait l'entrée suivante.
Loop
End Sub
Sub Lire_D()
' Affiche les noms dans C:\ représentant des fichiers.
Rep = "D:\" ' Définit le chemin d'accès.
Fichier = Dir(Rep, vbNormal) ' Extrait la première entrée.
Debug.Print "-------- Répertoire " & Rep
Do While Fichier <> "" ' Commence la boucle.
' tester l'extension
Ext = Replace(Fichier, Left(Fichier, InStrRev(Fichier, ".", -1) - 1), "")
Debug.Print "Ext:" & Ext & vbTab & vbTab & Fichier
' actions sur le fichier
If Ext = ".xlsx" Or Ext = ".xlsm" Then ' ou autre test
'.....
End If
Fichier = Dir ' Extrait l'entrée suivante.
Loop
End Sub