VBA sheets + date

Résolu/Fermé
mariek888 Messages postés 7 Date d'inscription lundi 2 novembre 2009 Statut Membre Dernière intervention 12 juillet 2010 - 12 juil. 2010 à 09:53
mariek888 Messages postés 7 Date d'inscription lundi 2 novembre 2009 Statut Membre Dernière intervention 12 juillet 2010 - 12 juil. 2010 à 12:05
Bonjour,


J'ai besion d'aide pour créer une page automatiquement en nommant celle-ci par la date du jour.

Voila ce que j'ai pour le moment comme code :

Sheets("DPE").Select
Sheets.Add

Merci pour tous ceux qui pourront m'aider


2 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
12 juil. 2010 à 10:03
Bonjour,
Lorsque tu crées une feuille par sheets.Add, celle ci devient la feuille active. Tu n'as donc plus qu'à la renommer. Il faut également faire attention au format de la date car on ne peux pas nommer une feuille avec des carctères spéciaux tels que : /:; etc...
Donc ton code devient :
Sheets.Add
ActiveSheet.Name = Format(Date,"dd mm yyyy")

ActiveSheet = feuille active
Date = date du jour
"dd mm yyyy" est le format à adapter selon tes souhaits

Dans l'absolu il faudrait tester d'abord l'existence de la feuille car il y a un risque de bug en cas de double création...
0
mariek888 Messages postés 7 Date d'inscription lundi 2 novembre 2009 Statut Membre Dernière intervention 12 juillet 2010
12 juil. 2010 à 12:05
Merci pijaku pour la réponse ^^
0