Sujet Précédent Sujet Suivant

Déplacer des fichiers word avec une macro excel

Fermé
NEEDHELP - 19 févr. 2014 à 14:25
 NEEDHELP - 19 févr. 2014 à 15:04
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 mardi 23 décembre 2008 Statut Membre Dernière intervention 10 janvier 2018 297
19 févr. 2014 à 14:27
Bonjour,

Pourquoi ne pas utiliser le copié collé ? N'est-ce pas plus facile ?
0
Réponse 2 / 2
NEEDHELP
19 févr. 2014 à 15:04
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