Dupliquer un dossier par macro.

[800vfr76]

Bonjour à tous,

J'ai un dossier appelé Mois avec 12 dossiers dedans, et je souhaiterais une macro me permettant de dupliquer ce dossier Mois avec ses sous dossiers.

Ce dossier serait renommé par la valeur d'une cellule, pour ça je pense avoir la solution en ajoutant cette fonction au bout: & Range("E8").Value

J'ai cherché et trouvé plein d'exemples mais ils ne correspondent pas a mes besoins, ou je n'ai pas réussi a les mettre en pratique.

PS: je suis sous excel 2003 mais cette macro devra marcher aussi sous une version plus récente.

Merci d'avance.

 

[DoubleZero]

Re : Dupliquer un dossier par macro.

Bonjour, 800vfr76, le Forum,

Voir le travail de Pierrot93 , ici.

A bientôt

P. S. : Bonjour, Pierrot

 

[Pierrot93]

Re : Dupliquer un dossier par macro.

Bonjour,

essaye peut être ceci :

Dim AncienNom As String, NouveauNom As String
AncienNom = "C:\MesDocs\DOCS\Excel"
NouveauNom = "C:\MesDocs\DOCS\" & Range("A1").Value
Name AncienNom As NouveauNom

bonne journée
@+

Edition : Aarf... bonjour 00.... ici une autre approche....

 

[800vfr76]

Re : Dupliquer un dossier par macro.

Re,

Merci pour vos réponses mais,
- soit les macro créent un nouveau dossier, moi je veux que la macro me fasse une copie du dossier.
- soit elles me renomment un dossier, donc pas bon non plus.

 

[DoubleZero]

Re : Dupliquer un dossier par macro.

Re-bonjour,

... - soit les macro créent un nouveau dossier, moi je veux que la macro me fasse une copie du dossier. - soit elles me renomment un dossier, donc pas bon non plus.

J'ai testé la macro de Pierrot indiquée en #2 : elle fait une copie parfaite du dossier indiqué dans le code.

A moins que je n'aie pas compris le besoin

A bientôt

 

[800vfr76]

Re : Dupliquer un dossier par macro.

Re,

Voila ce que j'ai mis et ca bloque sur la dernière ligne. " Name AncienNom As NouveauNom "

Sub NouveauDossier()
Dim AncienNom As String, NouveauNom As String
AncienNom = "D:\Mon chemin\Mois"
NouveauNom = "D:\Mon chemin" & Range("E8").Value
Name AncienNom As NouveauNom
End Sub

 

[Pierrot93]

Re : Dupliquer un dossier par macro.

Re,

manque un \ dans la destination :

NouveauNom = "D:\Mon chemin\" & Range("E8").Value

 

[Pierrot93]

Re : Dupliquer un dossier par macro.

Re,

pour une copie, utilise le lien donné par 00 post #2, celui donné post #3 déplace le dossier....

 

[800vfr76]

Re : Dupliquer un dossier par macro.

Re,

Voila ce que j'ai mis et ca bloque sur la dernière ligne. " Name AncienNom As NouveauNom "

Sub NouveauDossier()
Dim AncienNom As String, NouveauNom As String
AncienNom = "D:\Mon chemin\Mois"
NouveauNom = "D:\Mon chemin" & Range("E8").Value
Name AncienNom As NouveauNom
End Sub

Désolé ce n'était pas sur mon poste le #2 mais sur le lien du message de DoubleZero.

Et effectivement ca marche. Me reste plus qu'a le renommer mais ca bloque avec cette ligne:

Destination = "D:\Mon chemin\Mois & .Range("E8").Value"

 

[Pierrot93]

Re : Dupliquer un dossier par macro.

Re,

Destination = "D:\Mon chemin\Mois & .Range("E8").Value"

voir le post #7

 

[800vfr76]

Re : Dupliquer un dossier par macro.

Re,

Non Pierrot93 Pas de problème de \ c'est l'appel a une valeur de cellule qui ne lui plait pas. Même avec la macro pour renommer j'ai le même problème. Ce n'est peut-être pas possible de faire appel a une cellule pour donner un nom.

Merci.

 

[Pierrot93]

Re : Dupliquer un dossier par macro.

Re,

Ce n'est peut-être pas possible de faire appel a une cellule pour donner un nom.

bah... fonctionne chez moi... A voir ce que tu as exactement dans ta cellule...

 

[800vfr76]

Re : Dupliquer un dossier par macro.

Re,

J'ai un nombre, 2015 au format texte.

Destination = "D:\Mon chemin\ & .Range("E8").Value"

Voilà le message qu'il m'affiche:

Erreur de compilation
Attendu: Fin d'instruction.

 

[Pierrot93]

Re : Dupliquer un dossier par macro.

Re,

tu as un point (.) devant le "range".... tu es bien dans un bloc "with" valide ?

 

[800vfr76]

Re : Dupliquer un dossier par macro.

Re,

Oui exact pour le point et l'autre chose était le " placé au mauvais endroit.

Avant: Destination = "D:\Mon chemin\ & .Range("E8").Value"

Après: Destination = "D:\Mon chemin\" & Range("E8").Value

Et ca marche, merci à tous de vous êtes donné du mal sur mon problème.