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

A voir également:

2 réponses

Réponse 1 / 2
romain7254 Messages postés 1020 Date d'inscription   Statut Membre Dernière intervention   297
 
Bonjour,

Pourquoi ne pas utiliser le copié collé ? N'est-ce pas plus facile ?
0
Réponse 2 / 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