Discussion :

[canary]

Bonjour,

Je créé un nouveau classeur et j'aimerai lui affecter un titre.
Voici ce que j'ai pour le moment :

Code :

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

1
2
3
Dim wb As Workbook                                      
Set wb = Workbooks.Add(1)
Thisworkbooks.Name = "Mon Classeur" & "_" & Format(Date, "yyyymmdd")

La dernière ligne ne marche pas, pourriez-vous m'aider svp ?
Merci,

[zenii]

Re,

il y a deux problèmes:

• Il faut que tu remplaces "Thisworkbook" (non reconnu) par "wb"
• .Name est un attribut en lecture seule

Tu trouveras plus de détails là

Zenii

ps: n'hésite pas à mettre l'erreur

[Invité]

Bonjour,
Déjà tu utilises un objet Workbook(Set wb = Workbooks.Add(1)) et tu ne l’utilises pas pour le renomage (wb.Name = "Mon Classeur" & "_" & Format(Date, "yyyymmdd").
Deuxièmes le fait de l’enregistre fait la même chose : wb.SaveAs "c:\Mon Classeur" & "_" & Format(Date, "yyyymmdd".XLS)

[phoenellion]

Bonjour,

visiblement, vous créez un nouveau classeur à partir du classeur où s'exécute votre macro.

L'objet "ThisWorkbook" désigne toujours le classeur depuis lequel votre code s'exécute. Donc dans la mesure où vous souhaitez nommer le classeur nouvellement créé, ce n'est pas le bon objet.

Le plus simple est d'utliser l'objet ActiveWorkbook, car quand on crée un classeur, il est "activé" automatiquement, c'est à dire qu'i_l passe au premier plan :

Code :

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

1
2
Workbooks.Add 'Crée un nouveau classeur
ActiveWorkbook.SaveAs "Mon Classeur" & "_" & Format(Date, "yyyymmdd"

Bonne continuation !