Discussion :

[marc56]

Bonjour,
J'ai trouvé du code sur le forum pour renommer des feuilles mais pas un classeur.

J'essaie de changer le nom du dossier en cours avec :

ActiveWorkbook.Name = "Nouveau Devis"

Cela ne marche pas.

A la fin je sauvegarde mon dossier avec un nom spécifique sans problème, mais c'est cette situation intermédiaire que je voudrais régler.

Pouvez-vous m'aider, je suis novice en VBA. Merci.

[alsimbad]

essaye

Code :

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

1
2
 
save as

[LeForestier]

bonjour,
l'idée est bonne, un peu plus de détails

Code :

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

1
2
3
4
    a$ = Chemin & "LeNomClasseurAcopier.XLS"
    b$ = Chemin & "NouveauDevis.XLS"
    Workbooks(a$).SaveAs b$
    Workbooks.Open a$

Les deux classeurs serront présent.
A+

[marc56]

Merci pour vos réponses.
Il me semblait que "SaveAs" était pour enregistrer, mais je ne veux pas enregistrer immédiatement le fichier, seulement modifier le nom affiché dans le bandeau du haut et à gauche de l'écran, pour éviter la confusion avec le fichier d'origine.
Marc

[LeForestier]

C'est exact, il est enrégistrer sous ce nom, mais si ce n'est pas nécessaire tu peu toujours le supprimer après.

[marc56]

C'est vrai que je peux toujours le supprimer après, mais comme ce sont des devis, je vais devoir faire beaucoup de suppression, donc beaucoup de manips pour rien, car dès que les données sont saisies, je l'enregistre automatiquement en lui donnant comme nom le nom du destinataire suivi du numéro du devis.

C'est juste en attendant l'enregistrement que je souhaite changer le nom affiché car ce n'est plus le nom d'origine et pas encore le nom final qui va se composer automatiquement au moment ou je vais appuyer sur le bouton "Enregistrer", mais ce n'est peut-être pas possible.
Marc