Vba sheet + date

mariek888 Messages postés 8 Statut Membre -  
Yoskopolite Messages postés 92 Statut Membre -
Bonjour,

J'ai un souci concernant la selction du sheet
Dans mon code je souhaiterai faire une création de sheet automatique selon la date et faire un message d'erreur lorsque celui ci est déjà crée .

Mais mon code ne marche pas :

Sheets.Add
ActiveSheet.Name = Format(Date, "mm yyyy")
Sheets("DPE").Select

If ActiveSheet.Name = Format(Date, "mm yyyy") Then
MsgBox "Historique déjà effectué ", vbExclamation

End If

Merci pour l'aide que vous pourrez m'apporter

1 réponse

Yoskopolite Messages postés 92 Statut Membre 8
 
Si tu effectues un "Sheets("DPE").Select", alors c'est la feuille nommée "DPE" qui est sélectionnée. Le test suivant n'est donc jamais rempli, puisque tu tentes de vérifier si la feuille sélectionnée ("DPE") porte un nom du genre"07 2010".
0