Manipulation fichiers en VBA

Bonjour

je découvre cette possibilité de manipuler les fichiers en VBA

Avec cette procédure, j'arrive à transférer fichier par fichier, tous des fichiers .xls commençant par # ,en relançant la procédure mais, sinon, y a t-il possibilité de transférer plusieurs fichiers à la fois avec For each ... next

... le "For each " est-il utilisable ici et que mettre derrière ?

....Sinon quelle peut être la solution ?

Merci

Option Explicit

End Sub

Bonjour,

une solution possible:

Sub transfert()

Dim fichier As String, chemin As String,  dosdestin As String,x as long
chemin = "C:\Users\Desktop\"
dosdestin = "C:\Users\Desktop\EML\"
fichier = Dir(chemin & "#*.xls")
Do While fichier <> ""    ' Commence la boucle qui tourne tant que fichier contient un nom .
    Name chemin & fichier As dosdestin & fichier     ' Déplace le fichier
    x = x + 1
    fichier = Dir    ' Extrait l'entrée suivante.
Loop
MsgBox x & " fichiers déplacés"
End Sub

A+

.. merci pour ta réponse...c'est effectivement une possibilité...