J'ai dossier contenant des fichiers de plusieurs types (word, excel...)
Je voudrais avoir une combolist juste avec les noms des fichiers de type .xls
Quelqu'un aurait-il une idée ??
Private Sub UserForm_Initialize()
Répertoire = CurDir() ' nom du répertoire courant
masque = Répertoire + "\*.xls"
nf = Dir(masque) ' 1er classeur du répertoire
Do While nf <> ""
Me.Choix.AddItem nf
nf = Dir() ' classeur suivant
Loop
End Sub