Copier plusieurs fichiers sélectionnés

[Pascale]

Bonjour à toutes et à tous,

j'ai eu ce code par Michel, mais je n'es pas eu la réponse pour copier plusieurs fichier dans le cas d'une sélection multiple.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'necessite d'activer la reference Microsoft Shell controls And Automation
Dim Dossier As FileDialog, Fichier As FileDialog
Dim Destination As String, Source As String
Dim objShell As Shell
Dim objFolder As Folder

If Target.Address = '$N$23' Then

Set Fichier = Application.FileDialog(msoFileDialogOpen)
Fichier.Show
If Fichier.SelectedItems.Count = 0 Then Exit Sub
Source = Fichier.SelectedItems(1)

Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
Dossier.Show
If Dossier.SelectedItems.Count = 0 Then Exit Sub
Destination = Dossier.SelectedItems(1)

Set objShell = New Shell
Set objFolder = objShell.NameSpace(Destination)
If (Not objFolder Is Nothing) Then objFolder.CopyHere (Source)

End If
End Sub

Pouvez vous m'indiquer les modif à faire, s'il vous plait.

Merci

Pascale

 

[lapix]

il me semble qu'une boucle incrementant le SelectedItem(i)
serai une solution

For i =1 to fichier.selectedItems.count



next i