Déplacer un classeur par macro en fonction d'une cellule

[laurent999]

Bonjour a tous,
Dans un Classeur A
J'ai un créé un fichier comprennant des Clients et des prospects.
J'ai créé 2 cases à cocher Une Client l'autre Prospect et une liste déroulante qui en fonction de la case cochée m'affiche la liste soit des clients soit des prospects.
On donc en C2 de la feuil3 le client ou le prospect à traiter.
J'ai deux Fichier un nommé Client l'autre Prospect. Chacun de ces fichiers contient un classeur au nom soit du client ou du prostect.Ce nom étant le même que celui situé en case C2 de la feuil3
J'ai créé un bouton en Feuil3 nommé "transformer prospect en client.
On a donc ex
Classeur A
Feuil3
case prospect coché
Case C2 nom du prospect à traiter
Bouton Transformation

A partir de ce Classeur La macro doit en fonction de C2
Chercher le Classeur correspondant C2.xls dans le dossier Prospect
Le couper et le coller Dans le dossier Client

Merci pour vos réponses

Laurent

 

[Pierrot93]

Re : Déplacer un classeur par macro en fonction d'une cellule

Re Laurent,

pas sur d'avoir tout compris, mais regarde le code ci-dessous si cela peut t'aider, attention le classeur déplacé / renommé doit être fermé :

Dim AncienNom As String, NouveauNom As String
AncienNom = "C:\mesdossiers\mesprospects\" & Sheets("Feuil3").Range("C2").Value & ".xls"
NouveauNom = "C:\mesdossiers\mesclients\" & Sheets("Feuil3").Range("C2").Value & ".xls"
Name AncienNom As NouveauNom

@+

 

[laurent999]

Re : Déplacer un classeur par macro en fonction d'une cellule

Merci encore Pierro

Cela fonctionne encore une fois parfaitement
Encore un grand merci
Grace à toi j'avance à pas de géants dans mon projet