Selectionner des fichiers pour les copier

Bonjour,

j'ai recupere ce petit bout de code qui correspond parfaitement à mon besoin mais celui ci ne marche que si je selectionne un fichier et j'aurais besoin de l'appliquer sur plusieurs.

Je crois comprendre que le souci vient du bloc if car celui ecrit c'est juste pour verifier que le fichier existe si je me trompe pas mais comme je debute completement j'en suis juste au stade de comprendre comment ca marche, donc si quelqu'un peut m'aiguiller ça serait sympa.

Merci.

(je met le code tel qu'il fonctionne actuellement, c'est a dire pour selectionner un seul fichier,

Sub copieFichiers()

Dim NomFichier As String
Fichier = Application.GetOpenFilename(Title:="Traitement", MultiSelect:=False)

If Fichier <> False Then
   NomFichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)
   FileCopy Fichier, "T:\test" & "\" & NomFichier
End If

End Sub

Salut,

Voici une évolution de ton code avec la possibilité de sélectionner plusieurs fichiers :

Sub Fichiers_Selection_multiple()
Dim Fichier As Variant
Dim NomFichier As String
Dim I As Integer

Fichier = Application.GetOpenFilename(Title:="Sélection multiple", MultiSelect:=True)

If TypeName(Fichier) = "Boolean" Then
  Exit Sub
Else
  For I = 1 To UBound(Fichier)
    NomFichier = Mid(Fichier(I), InStrRev(Fichier(I), "\") + 1)
    FileCopy Fichier(I), "T:\test" & "\" & NomFichier
  Next
End If
End Sub

A+

H

Merci beaucoup, c'est super sympa !

Je pourrais tester ça seulement dimanche, je ferais un edit à ce moment là.