Bonjour je suis face à un problème que je n'arrive pas à solutionner.

J'ai un Dossier dans le quel j'ai 6 fichiers : Redevance , semaine 1 , semaine 2, semaine 3 ,etc.....

La macro suivante me permet de copier le dossier et sont contenu pour créer un nouveau moi mais je souhaiterai que le nom du nouveau dossier créer soit un nom que je saisie dans une cellule en l'occurrence M19.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub CopieDossier()
    
    Dim GestionFichier As New Scripting.FileSystemObject
    GestionFichier.CopyFolder "C:\Users\TRIAN\Desktop\Prod. original", "C:\Users\TRIAN\Desktop\2020\NOM VARIABLE??"
    Set GestionFichier = Nothing
End Sub
Je voudrai même aller plus loin, en utilisant l'emplacement du dossier qui serrai variable exemple si je l'envoi à un collègue et que la macro parte a ce moment la de l emplacement du dossier et plus du chemin fixe de Mon Pc


Merci de votre aide

Bonne soirée à tous