ChDir "C:\Users\PC_PAPA\Desktop\XLD\"
Sub ChoixFichier()
'La variable est de type Variant car elle peut prendre les valeurs :
'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
'String: pour renvoyer le nom du fichier sélectionné.
Dim Fichier As Variant
' Mettre ici le chemin désiré. Finir avec un "\"
ChDir "C:\documentation\machine 1\"
'Affiche la boîte de dialogue "Ouvrir" sur tous les fichiers xlsx.
' Supprimer le xlsx si on veut voir tous les fichiers. Par ex :
' Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
Fichier = Application.GetOpenFilename("Tous les fichiers (*.xlsx),*.xlsx")
'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
' Sinon on ouvre le fichier
If Fichier = False Then
Exit Sub
Else
Workbooks.Open Filename:=Fichier
End If
End Sub
Sub BoucleFichiers()
Dim Chemin As String, Fichier As String, i As Integer
' Efface liste
Range("A:A").ClearContents
'Définit le répertoire contenant les fichiers, à modifier. ici fichiers sur écran.
Chemin = "C:\Users\PC_PAPA\Desktop\"
'Boucle sur tous les fichiers xls* du répertoire.
Fichier = Dir(Chemin & "*.xls*") ' Type xls, xlsx, xlsm, xlsb.
'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
'Fichier = Dir(Chemin & "*.*")
i = 1
Do While Len(Fichier) > 0
' Range le nom du fichier dans la colonne A
Cells(i, 1) = Fichier
i = i + 1 ' incrément N° de ligne
Fichier = Dir()
Loop
End Sub