'adapté de http://excel.developpez.com/faq/?page=FichiersDir#NombreFichiers
Sub BoucleFichiers()
Dim Chemin As String, Fichier As String, Ext As String
'Définit le répertoire contenant les fichiers (à adapter)
Chemin = "C:\dossier\"
Ext = ".pdf"
'Boucle sur tous les fichiers xls du répertoire.
Fichier = Dir(Chemin & "*" & Ext)
'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
'Fichier = Dir(Chemin & "*.*")
Do While Len(Fichier) > 0
MsgBox Replace(Fichier, Ext, "")
Fichier = Dir()
Loop
End Sub