Discussion :

[florent77]

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).

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

Merci à vous

[florent77]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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