Methode FSO

Bonsoir , m'entrainant à utiliser la methode FSO , je souhaiterai copier le repertoire A dans le repertoire B tout deux situés sur mon bureau , j'ai pour cela ecrit le code suivant :

Dim CHEMIN As String
CHEMIN = ThisWorkbook.Path
Set FSO = Scripting.FileSystemObject
FSO.CopyFolder CHEMIN & "\A", CHEMIN & "\B"
End Sub

cependant , il ne tourne pas le compilateur me retourne l'information "objet requis " et je ne vois pas ce que cela peut etre

En vous remerciant pour vos lumières

Cordialement

Bonjour,

Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")

Ah ! je pensais pas que l'instruction Dim FSO As Object etait necessaire lorsque le code ne commence pas par "option explicit" mais en tout cas un grand merci à vous Mferrand , vos interventions pour mes questions m'ont en tout cas bien aidé , Bravo !

... apres ajout de la ligne que vous m'avez recommandé j'ai toujours le meme message ... mais c'est pas grave je vais tenter de me debrouiller

Désolé j'ai rien dit ...honte à moi ca marche