Macro CopyFolder avec nom de dossier variable

Bonjour le forum,
Rebonjour Patrick,

Voilà de manière illustrée ce que je souhaiterais.

Dans "dossiers en cours", mon dossier "TOTO Mobile Evaluation n°2 (15.09.18)" contient deux classeurs.
Je copie et déplace ce dossier vers "Dossiers finalisés" en le renommant : "TOTO Mobile 2"
=> jusqu'ici pas de problème, je sais faire avec CopyFolder grâce à vous

Le hic c'est que les noms-prénoms, le numéro d'évaluation et la date sont des variables (qui se trouve dans le classeur "TOTO Mobile Evaluation X n°2"
(au passage il y a erreur dans ma cellule E3, remplacez 1 par 2). :aie:

La question est donc de savoir s'il est possible de lancer une macro CopyFolder qui va récupérer les différentes variables et emprunter le bon chemin tout en sachant que le classeur où se trouvera la macro devra lui aussi être copié et transféré dans le dossier final (dans mon exemple dans le dossier "TOTO Mobile 2")

J'espère être à peu près clair 8O

Merci à vous

Pièce jointe 409007

Après quelques bidouillages, j'ai trouvé ce que je voulais :D

Dans cet exemple :
dossier à copier : TOTO Mobile 1 (15.09.18)
dossier à créer : TOTO Mobile 1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub CopieDossier_NomVariable()   Dim nom_prenom As String Dim date_modif As String Dim date_modif2 As String Dim num_eval As String Dim GestionFichier As New Scripting.FileSystemObject   date_modif = "(" & Replace(Range("B6"), "/", ".") & ")" ' modif 1 : modification du format date provenant de mon classeur 15/09/2018 => (15.09.2018) date_modif2 = Replace(date_modif, ".20", ".") ' modif 2 : supprime le "20" de "2018" et permet de retrouver le chemin => TOTO mobile 1 (15.09.18) nom_prenom = Range("B5") num_eval = Range("E3")   GestionFichier.CopyFolder "S:\dossiers en cours\" & nom_prenom & " " & num_eval & " " & date_modif2, "S:\dossiers finalisés\" & nom_prenom & " " & num_eval Set GestionFichier = Nothing   End Sub

---