Dupliquer un dossier par macro.

DoubleZero

XLDnaute Barbatruc

• 20 Août 2014

• #2

Re : Dupliquer un dossier par macro.

Bonjour, 800vfr76, le Forum,

Voir le travail de Pierrot93 🙂, ici.

A bientôt 🙂

P. S. : Bonjour, Pierrot 😀

 

Dernière édition: 20 Août 2014

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2014

• #3

Re : Dupliquer un dossier par macro.

Bonjour,

essaye peut être ceci :

Code:

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

 

Vote positif 0 Vote négatif

800vfr76

XLDnaute Occasionnel

• 20 Août 2014

• #4

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.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 20 Août 2014

• #5

Re : Dupliquer un dossier par macro.

Re-bonjour,

800vfr76 à dit:

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

Cliquez pour agrandir...

😕

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 🙂

 

Vote positif 0 Vote négatif

800vfr76

XLDnaute Occasionnel

• 20 Août 2014

• #6

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2014

• #7

Re : Dupliquer un dossier par macro.

Re,

manque un \ dans la destination :

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2014

• #8

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

 

Vote positif 0 Vote négatif

800vfr76

XLDnaute Occasionnel

• 20 Août 2014

• #9

Re : Dupliquer un dossier par macro.

800vfr76 à dit:

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

Cliquez pour agrandir...

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"

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2014

• #10

Re : Dupliquer un dossier par macro.

Re,

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

Cliquez pour agrandir...

voir le post #7

 

Vote positif 0 Vote négatif

800vfr76

XLDnaute Occasionnel

• 20 Août 2014

• #11

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2014

• #12

Re : Dupliquer un dossier par macro.

Re,

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

800vfr76

XLDnaute Occasionnel

• 20 Août 2014

• #13

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Août 2014

• #14

Re : Dupliquer un dossier par macro.

Re,

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

 

Vote positif 0 Vote négatif

800vfr76

XLDnaute Occasionnel

• 20 Août 2014

• #15

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.

 

Vote positif 0 Vote négatif