[VBA]changer le nom du workbookRésolu

Question

bonjour,
je voudrais créer une macro qui modifierait le nom de mon classeur automatiquement. j'ai trouvé une solution en utilisant la ligne de code
   Worksheets(1).SaveAs ("c:\monfichier.xls")
cela fonctionne, mais cela me créer un nouveau fichier: c'est l'equivalent de "enregister-sous"... hors ce que je souhaiterais ce serait juste changer le nom sans créer une nouvelle copie.
j'ai bien essayé
   ActiveWorkbook.FullName = "c:\monfichier.xls"
mais cela ne fonctionne pas...
si qqun a une idée, ce serait le bienvenu
merci

jrivet · Accepted Answer

Salut,
Utlises SaveAs puis efface la source.

@+: Ju£i€n
Pensez: Réponse acceptée

zipohi · Answer

oui j'avais pensé a cà mais c'est pas très élégant... y aurait-t-il une autre solution pour changer directement le nom
(...mais au fait comment faire pour effacer la source)

Renfield · Answer

Kill

mortalino · Answer

Mieux : ThisWorkbook.SaveAs "Mon Nouveau Classeur"

S'il est déjà enregistré quelque part, sans indication de chemin dans le paramètre du SaveAs, seul le nom change 

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

mortalino · Answer

Arf, énorme bétise de ma part, j'aurais dû tester..
Une copie se fait, pas un remplacement

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

zipohi · Answer

oki merci a vous
donc en fait la seule solution possible serait celle proposée par jrivet?
en effet cette solution fonctionne bien, mais il y a une sacrée perte de temps lors de l'enregistrement...

mortalino · Answer

apparemment oui, pas le choix.
J'ai bien regardé tous les paramètres du SaveAs, pas possibilité d'écraser le fichier en cours en lui changeant de nom.
de plus, la propriété Name des classeurs n'est qu'en lecture seule

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

zipohi · Answer

oki, ben merci bien en tout cas

[VBA]changer le nom du workbook

8 réponses

Votre réponse

Discussions similaires