Cpie de fichier [RESOLU]

Cpie de fichier [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 25-08-2008 à 14:36:10    

Bonjour à tous,
 
je travaille sur un projet en VBA et je souhaiterai copier un fichier dans un dossier (C:\Documents and Settings\toshiba\Mes documents\) et le renommer sachant que mon fichier d'origine qui doit etre copier se trouve également dans ce meme dossier.
J'ai essayer la fonction Copyfile mais je n'arrive pas à le faire fonctionner.
Est-ce que quelqu'un peut bien m'aider, svp?
merci

Message cité 1 fois
Message édité par fufu33 le 30-08-2008 à 15:17:04
Reply

Marsh Posté le 25-08-2008 à 14:36:10   

Reply

Marsh Posté le 25-08-2008 à 17:27:04    

fufu33 a écrit :

Bonjour à tous,
 
je travaille sur un projet en VBA et je souhaiterai copier un fichier dans un dossier (C:\Documents and Settings\toshiba\Mes documents\) et le renommer sachant que mon fichier d'origine qui doit etre copier se trouve également dans ce meme dossier.
J'ai essayer la fonction Copyfile mais je n'arrive pas à le faire fonctionner.
Est-ce que quelqu'un peut bien m'aider, svp?
merci


 
eh branleur
tu travaille meme le weekend j'y crois pas
voir le sujet 117378. les noms de rappeleront qqchose :)
http://forum.hardware.fr/forum2.ph [...] w=0&nojs=0


Message édité par 86vomito33 le 25-08-2008 à 17:31:23
Reply

Marsh Posté le 25-08-2008 à 19:09:13    

oui merci mais ca ne marche pas il faut trouver la bonne library et quelle library choisir?
c'est ca la question....
A demain.

Reply

Marsh Posté le 25-08-2008 à 19:18:11    

j'ai bien compris ke tu as un probleme de librairies mais essaye aussi avec ca
 
- avec la méthode FileCopy de VBA :
 

Code :
  1. Sub test1()
  2. Dim Src$, Dest$
  3. Src = "D:\fsdatas\zaza\Calculette Euros.xls"
  4. Dest = "D:\fsdatas\Calculette Euros.xls"
  5. 'copier sans renommer
  6. FileCopy Src, Dest
  7. 'copier et renommer
  8. Dest = "D:\fsdatas\Calculette2.xls"
  9. FileCopy Src, Dest
  10. End Sub


 
- avec la méthode CopyFile du FileSystemObject :
 

Code :
  1. Sub test2()
  2. Dim Src$, Dest$
  3. Src = "D:\fsdatas\zaza\Calculette Euros.xls"
  4. Dest = "D:\fsdatas\Calculette Euros.xls"
  5. With CreateObject("Scripting.FileSystemObject" )
  6. 'copier sans renommer
  7. .CopyFile Src, Dest
  8. 'copier et renommer
  9. Dest = "D:\fsdatas\Calculette2.xls"
  10. .CopyFile Src, Dest
  11. End With
  12. End Sub


Message édité par 86vomito33 le 25-08-2008 à 19:18:28
Reply

Marsh Posté le 26-08-2008 à 10:54:57    

merci  
le premier code ne fonctionne pas mais le second fonctionne.Avec ce code, on contourne le probleme de library.
A plus.

Reply

Sujets relatifs:

Leave a Replay

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