[Résolu]copier fichier qui se trouve dans dossier1 dans le dossier2

copier fichier qui se trouve dans dossier1 dans le dossier2 [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 18-06-2011 à 07:54:55    

salut,
 
ce code me permet de copier un dossier dans un autre emplacement , elle marche très bien.

Code :
  1. Private Sub CommandButton2_Click()
  2. Dim fs As Object, copie As Object
  3. Set fs = CreateObject("Scripting.FileSystemObject" )
  4. Set copie = fs.GetFolder _
  5. ("C:\Documents and Settings\DA\Mes documents\Excel\VBA\Répertoire Dossier_1" )
  6. copie.Copy "C:\Documents and Settings\DA\Mes documents\Excel\VBA\Répertoire Dossier_2\"
  7. End Sub


 
Mais ce que je cherche c'est de copier un fichier qui se trouve dans dossier1 dans le dossier2
donc j'ai essaye de mortifier ce code? voila mon essaye:

Code :
  1. Private Sub CommandButton2_Click()
  2. Dim fs As Object, copie As Object
  3. Set fs = CreateObject("Scripting.FileSystemObject" )
  4. fs.CopyFolder "C:\Documents and Settings\user\Bureau\aplication_2011\Modéle\Acteurs.accdb", "C:\Documents and Settings\user\Bureau\aplication_2011\essaye\", True
  5. End Sub


message d’erreur:

Code :
  1. chemin d’accès introuvable

 
 
merci d'avance


Message édité par pikamo le 18-06-2011 à 08:44:26
Reply

Marsh Posté le 18-06-2011 à 07:54:55   

Reply

Marsh Posté le 18-06-2011 à 08:36:21    

Ce n'est pas CopyFolder qu'il faut utiliser.
 
En anglais, le mot Folder veut dire Dossier.
 
A la place, il faut utiliser CopyFile.
 
Sa syntaxe est : object.CopyFile source, destination[, overwrite]
Donc, c'est la même syntaxe que pour CopyFolder.

Reply

Marsh Posté le 18-06-2011 à 08:40:20    

merci billgatesanonym  
nikel

Reply

Sujets relatifs:

Leave a Replay

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