[RESOLU] Macro - copie de fichier

Macro - copie de fichier [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 09-05-2005 à 12:45:55    

Bonjour à tous,  
 
Je souhaite, dans une macro VB dans Word, copier un fichier dans un dossier :  
 

Code :
  1. With Application.FileSearch
  2.                 .LookIn = "C:\Documents and Settings\u8vtr\Bureau\Quality\Macros\"
  3.                 .SearchSubFolders = False
  4.                 .Execute
  5.                 For I = 1 To .FoundFiles.Count
  6.                    .CopyFile .FoundFiles(I), "C:\Documents and Settings\u8vtr\Bureau\Quality\Graver\"
  7.                 Next I
  8.             End With


 
Bien évidemment, ça ne fonctionne pas  :??:  
Mais je ne sais pas comment faire, est-ce que qqn aurait une idée ?!?
Merci d'avance...


Message édité par VirginieGE le 09-05-2005 à 16:32:39
Reply

Marsh Posté le 09-05-2005 à 12:45:55   

Reply

Marsh Posté le 09-05-2005 à 13:30:45    

VirginieGE a écrit :

Bonjour à tous,  
 
Je souhaite, dans une macro VB dans Word, copier un fichier dans un dossier :  
 

Code :
  1. With Application.FileSearch
  2.                 .LookIn = "C:\Documents and Settings\u8vtr\Bureau\Quality\Macros\"
  3.                 .SearchSubFolders = False
  4.                 .Execute
  5.                 For I = 1 To .FoundFiles.Count
  6.                    .CopyFile .FoundFiles(I), "C:\Documents and Settings\u8vtr\Bureau\Quality\Graver\"
  7.                 Next I
  8.             End With


 
Bien évidemment, ça ne fonctionne pas  :??:  
Mais je ne sais pas comment faire, est-ce que qqn aurait une idée ?!?
Merci d'avance...


Salut,
 
Ca ne marche pas parce que la fonction CopyFile ne fait pas partie de l'objet Application.FileSearch... Tout simplement.
 
En fait, tu dois utiliser un objet FileSystemObject pour pouvoir faire un CopyFile. Il te suffit de le déclarer et ensuite, tu as le chemin du fichier dans ta collection FoundFiles, donc tu peux faire la copie très simplement.
 
Si jamais, juste un petit conseil... N'oublies pas de prendre des bonnes habitudes. Et utilise un "Option Explicit" au début de ton code!
 
Voilà j'espère que cela t'aidera
A+

Reply

Marsh Posté le 09-05-2005 à 16:31:17    

Merci mille fois, c'est ok, j'ai pigé ! :bounce:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed