Déplacer des fichiers word avec une macro excel

NEEDHELP -  
 NEEDHELP -
Bonjour,
Est-il possible de déplacer tous les documents word d'un dossier vers un autre au moyen d'une macro excel??

Merci d'avance

2 réponses

  1.
    romain7254 Messages postés 1071 Statut Membre 297
     
    Bonjour,

    Pourquoi ne pas utiliser le copié collé ? N'est-ce pas plus facile ?
    0
  2. NEEDHELP
     
    J'ai essayé avec ce code qui fonctionne en changeant Copy par Cut mais là ça ne fonctionne plus: 

    Sub CopierFichierFin()
    Dim fso As Object, Src$, Dest$

      Set fso = CreateObject("Scripting.FileSystemObject")
      Src = "W:\EN COURS\" & "*.doc"
      Dest = "W:\TRAITES\"
      
      fso.CopyFile Src, Dest

    End Sub
    0