XL 2013 dans un directory liste de fichiers sélectionnables

[drdege]

Bonjour,
Je suis calé.
A partir d'une feuille je voudrais créer une macro qui
liste les fichiers d'un directory particulier, afin de sélectionner un fichier à ouvrir,
pour en récupérer des données à recopier dans la feuille de travail.

Merci pour le coup de main
Je n'ai pas trouvé dans les forums

DG

 

[Hieu]

Salut,

Pour lister les noms de fichiers dans la colonne A :

Sub mljkmlk()
Chemin = "C:\Users\Hieu\Desktop\TOTO\"
fic = Dir(Chemin & "*.xlsx")

Do While Fichier <> ""
Range("a1").Offset(k, 0) = fic
k = k + 1
fic = Dir
Loop
End Sub

 

[Robert]

Bonjour DrDege, bonjour le forum,

Essaie le code ci-dessous (Attention ! Le chemin d'accès CH est à adapter) :

Sub Macro1()
Dim CH As String 'déclare la variable CH (Chemin d'accès
Dim FD As FileDialog 'déclare la variable FD (objet File Dialog)
Dim FS As Variant 'déclare la variable FS (Fichier Sélectionné)

CH = "C:\Users\DrDege\Documents\Blabla1\Blabla2" 'définit le chemin CH (à adapter à ton cas)
ChDir CH 'définit le dossier de travail
Set FD = Application.FileDialog(msoFileDialogOpen) 'définit la variable FD (Boîte de dialogue "Ouvrir")
With FD 'prend en compte la variable FD
    .AllowMultiSelect = True 'autorise la sélection multiple
    .Show 'affiche
    If .SelectedItems.Count > 0 Then 'si le nombre d'éléments sélectionnés est supérieur à 0
        For Each FS In .SelectedItems 'boucle sur tous les fichiers sélectionnés
            FD.Execute 'ouvre le fichier
        Next FS 'prochain fichier de la boucle
    End If 'fin de la condition
End With 'fin de la prise en compte de la variable FD
Set FD = Nothing 'efface de la mémoire la variable FD
End Sub

[Édition]
Bonjour Hieu, nos posts se sont croisés...

 

[drdege]

Bonjour Hieu,
Bonjour Robert,
Magnifique,
A si tout pouvait être aussi lumineux
Très grand merci, à vous deux.
GD