copie de classeur

[David]

Hello le forum

Quelqu'un peut il me dire comment, copier plusieurs classeurs qui doivent restés fermés d'un repertoire, dans un autre repertoire ?
J'ai essaye depuis excel(le document depuis lequel je veux executer cette manoeuvre) de créer une macro :
fichier=>ouvri=>selection d'un classeur d'un repertoire=>clic droit sur un classeur=>copier=>ouverture d'un autre répertoire puis coller
Quand je vérifie ma macro, c'est vide,
Help, help.

 

[Zon]

Salut,

Voici un façon de faire:

Function CopieDossier(Chemin1$, Chemin2$) As Boolean
Dim Obj As Object
On Error Resume Next
Set Obj = CreateObject("Scripting.FileSystemObject")
Obj.copyfolder Chemin1, Chemin2
If Err <> 0 Then CopieDossier = True
End Function

Tu lances
Sub Test()
If CopieDossier("c:\zon", "c:\david") Then
MsgBox "veuillez vérifier les chemins, erreur "
Else 'copie réussie
End if

End Sub


A+++