Vba excel macro aujourd'hui

Résolu/Fermé
Chriscam8786 Messages postés 19 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 18 mars 2008 - 23 janv. 2008 à 10:42
Chriscam8786 Messages postés 19 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 18 mars 2008 - 25 févr. 2008 à 16:50
Bonjour,

Dans un classeur, j'ai créé une feuille "Messages" et sur ccette feuille en cellule A2 j'ai inséré la fonction "AUJOURDHUI"

A l'ouverture du fichier, j'ai inséré une macro mettant le fichier en plein écran et contrôlant que la cellule A2 de la feuille "Messages" ne contenait pas la valeur "08 / 07 / 08" (autrement dit : 8 juillet 2008)

Deux réactions sont possibles suite à ce contrôle :
- soit (dans 364 cas) la combobox liée à la condition ne s'ouvre pas
- soit (uniquement le 8 juillet 2008) une combobox "Anniversaire" s'ouvre

Voici ma commande :

Private Sub Workbook_Open()
PleinEcranOuverture
If Sheets("Messages").Range("A2").Value = Format(Date, "23 / 01 / 08") Then
Anniversaire.Show
End If
Sheets("MENU").Select
End Sub

J'ai du râter quelquechose car rien de particulier ne se passe (pour information, la date indiquée dans la commande est volontairement celle du 23 janvier 2008 (c à dire maintenant) - ca devait me permettre de tester la macro).

Si quelqu'un a une idée ce serait magnifique

Merci beaucoup

3 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
23 janv. 2008 à 17:31
bonjour

Pour tester ta macro, essaie plutôt :
 If Date = #1/23/2008# Then

ensuite tu mettras #7/8/2008#

"Date" est l'équivalent de la fonction "aujourdhui()" en VBA et tu n'as rien besoin de mettre dans ta feuille.


Format(Date, "23 / 01 / 08")

Ceci ne donne pas une date égale à aujourd'hui mais une zone texte avec la valeur : "23 / 01 / 08"

La fonction format ne sert qu'à faire de l'affichage, ( mais avec un format valide !) ou à générer une zone texte que l'on veux utiliser pour des tests ou autre.
2
Chriscam8786 Messages postés 19 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 18 mars 2008 8
24 janv. 2008 à 16:29
Bonjour Gbinforme,

Un grand merci à toi, c'est tout à fait ce qu'il me fallait !

Bonne continuation à tous

Chriscam
0
Chriscam8786 Messages postés 19 Date d'inscription mercredi 3 octobre 2007 Statut Membre Dernière intervention 18 mars 2008 8
25 févr. 2008 à 16:50
Encore merci

Chris
0