bonsoir Brigitte & Brigitte , bonsoir @+Thierry
Brigitte ( le petit chat ) , moi j'etais persuadé que tu t'étais sérieusement mise aux macros ...pour gérer le planning des congés de @+Thierry...o
j'en profite pour souhaiter un bon retour à @+Thierry . j'espere que tu as bien profité de tes vacances
Brigitte (bionic ), j'espere que cet exemple pourra t'aider
Sub copierRepertoires_Et_SousRepertoires()
'activer la reference Microsoft scripting Runtime
Dim Fso As Scripting.FileSystemObject
Dim Source As String, Destination As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Source = "C:\Documents and Settings\michel\dossier\general\excel"
Destination = "D:\monRepertoire"
'False/True option pour écraser les fichiers
Fso.CopyFolder Source & "\*", Destination, False
End Sub
bonne soiree
MichelXld