Chris57
XLDnaute Occasionnel
Bonsoir à tous,
j'ai créé un petit classeur qui me permet de sélectionner un fichier (peu importe l'extension), d'afficher son nom et son chemin.
Puis avec une autre macro je copie ce fichier sur un emplacement précis sur C:\ en recréant les mêmes dossiers et sous dossier qu'à l'origine (c'est pour cloner des fichiers et en faire une sauvegarde sous C:\)
Mais ma procédure ne me permet que de sélectionner un fichier à la fois.
J'aimerai qu'en ouvrant la boite de dialogue de sélection, que je puisse sélectionner plusieurs fichiers au choix (pas forcément tous), et qu'en cliquant sur OK, qu'ils s'affichent tous dans la feuille.
Est-ce possible ??
J'utilise cette boîte de dialogue :
Il y a bien une option pour sélectionner plusieurs fichiers, mais seul le 1er est affiché dans ma feuille...
j'ai créé un petit classeur qui me permet de sélectionner un fichier (peu importe l'extension), d'afficher son nom et son chemin.
Puis avec une autre macro je copie ce fichier sur un emplacement précis sur C:\ en recréant les mêmes dossiers et sous dossier qu'à l'origine (c'est pour cloner des fichiers et en faire une sauvegarde sous C:\)
Mais ma procédure ne me permet que de sélectionner un fichier à la fois.
J'aimerai qu'en ouvrant la boite de dialogue de sélection, que je puisse sélectionner plusieurs fichiers au choix (pas forcément tous), et qu'en cliquant sur OK, qu'ils s'affichent tous dans la feuille.
Est-ce possible ??
J'utilise cette boîte de dialogue :
Code:
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear 'suppression des filtres pré existants
.InitialFileName = [C3].Value '"L:\UP78" 'Chemin initial de l'explorateur
.AllowMultiSelect = True 'FALSE = interdiction des selections multiple
.Show 'Affichage de l'explorateur
If .SelectedItems.Count > 0 Then
CHEMINetFICHIER = .SelectedItems(1)
End If
End With
Il y a bien une option pour sélectionner plusieurs fichiers, mais seul le 1er est affiché dans ma feuille...
Pièces jointes
Dernière édition: