jeanmi
XLDnaute Occasionnel
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.
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
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.
VB:
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 SubAu lancement il me signale « erreur de compilation Constante requise »
Pouvez-vous m’aider à résoudre ce problème.
Merci pour vos réponses
Cordialement