VBA sheets + date
Résolu
mariek888
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
mariek888 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
mariek888 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
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
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
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 :
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...
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...
