salut,
ce code me permet de copier un dossier dans un autre emplacement , elle marche très bien.
Code :
- Private Sub CommandButton2_Click()
- Dim fs As Object, copie As Object
- Set fs = CreateObject("Scripting.FileSystemObject" )
- Set copie = fs.GetFolder _
- ("C:\Documents and Settings\DA\Mes documents\Excel\VBA\Répertoire Dossier_1" )
- copie.Copy "C:\Documents and Settings\DA\Mes documents\Excel\VBA\Répertoire Dossier_2\"
- 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 :
- Private Sub CommandButton2_Click()
- Dim fs As Object, copie As Object
- Set fs = CreateObject("Scripting.FileSystemObject" )
- fs.CopyFolder "C:\Documents and Settings\user\Bureau\aplication_2011\Modéle\Acteurs.accdb", "C:\Documents and Settings\user\Bureau\aplication_2011\essaye\", True
- End Sub
|
message d’erreur:
Code :
- chemin d’accès introuvable
|
merci d'avance
Message édité par pikamo le 18-06-2011 à 08:44:26