XL 2010 Copie/coller un dossier avec tous ces sous dossiers et fichier vers un autre emplacement

[jeanmi]

Bonjour à tous et meilleurs vœux

Ce que je souhaiterai faire :
Déplacer un dossier avec tous ces sous dossiers et fichier vers un autre emplacement, ou peut-être un couper / collé, les deux fonctions si possible.

J’ai trouvé un code sur le site :
Un code de 2010 de @hbenalia : https://www.excel-downloads.com/threads/deplacement-de-fichiers-par-vba-sous-excel.141018/

J’ai essayé de l’adapter à mon besoin, voici le code ci dessous que j’utilise.

Sub CopieFichierDeplace()

Dim Source1, Destin1 As String
Call Memorisation_chemin ' mémorisation des chemins commun rep02 et rep03

Source1 = rep02 & "\" & Cells(1, 5) & " " & Cells(1, 4) & "\*.*"
Destin1 = rep03 & "\" & Cells(1, 5) & " " & Cells(1, 4) & "-tous les fichiers\03-Les fichiers de base utilisés pour la création de l'OP\"

   Const Source = Source1
   Const Destin = Destin1
   Dim objOFS As Variant
   Set objOFS = CreateObject("Scripting.FileSystemObject")
   objOFS.CopyFile Source, Destin

End Sub

Au lancement il me signale « erreur de compilation Constante requise »

Pouvez-vous m’aider à résoudre ce problème.

Merci pour vos réponses



Cordialement

 

[Compte Supprimé 979]

Bonsoir JeanMi

Ouille... aille... j'ai les yeux qui saignent

Pourquoi vouloir utiliser des constante qui ne peuvent pas être paramétrée de la sorte en plus
Supprimez moi ces 2 lignes

Const Source = Source1
Const Destin = Destin1

A+

 

[jeanmi]

Bonsoir JeanMi

Ouille... aille... j'ai les yeux qui saignent

Pourquoi vouloir utiliser des constante qui ne peuvent pas être paramétrée de la sorte en plus
Supprimez moi ces 2 lignes

Const Source = Source1
Const Destin = Destin1

A+

Bonjour @BrunoM45

Merci pour la réponse, ça fonctionne correctement, mais, ça ne copie que les fichiers pas le dossier avec les fichier.
que faut-il faire ?

merci pour la réponse.