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