Discussion :

[chrnoe]

Bonjour à tous,

Je voudrais savoir si il est possible d'effectuer un rappel avec une "MsgBox"

c'est à dire que dans une cellule j'ai ecrit une date (ex:22/01/2009) je voudrais qu'une message box s'affiche ce jour lorsque j'ouvre mon ordinateur.

Est ce possible?

Merci d'avance.

[aalex_38]

oui, c'est possible il te suffit de mettre un fichier excel au démarrage de ton pc
avec dans Thisworkbook le code :

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
 
 MsgBox Worksheets(1).Cells(1, 1).Value   , vbOKOnly
 
End sub

Tu dis si c'est ok.

Nb : fichiers lancés au démarrage du PC dans "Démarer/Programmes/Démarage

[ouskel'n'or]

Pour faire ça j'utiliserais un fichier se trouvant dans "C:\Program Files\Microsoft Office\Office10\xlstart\" pour la version 2003 d'office
Généralement ce fichier est appelé "Perso.xls" comme ça tout le monde sait de quoi on parle.
Comme te le dit aalex, tu mets un code d'appel dans ThisWorkbook -> Editeur VBA -> Deux clics sur ThisWorkbook, tu colles ce code

Code :

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

1
2
3
Private Sub Workbook_Open() 
    TestDate
End sub

Enfin, dans un module standard, et en supposant que ton format de date soit bien "jj/mm/aaaa", tu mets la macro de test

Code :

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

1
2
3
4
Sub TestDate()
    If Format(Now(), "dd/mm/yyyy") = Worksheets(1).Cells(1, 1).Value Then _
        MsgBox "Coucou, on est le " & Format(Now(), "dd/mm/yyyy")
End Sub

Bon après-midi

[chrnoe]

Merci pour les informations par contre quelque chose que je ne maitrise pas et dont je voudrais etre sur lorsque l'on marque (Cells(1, 1).) de quelle cellule s"agit-il?

Je ne comprend pas trop le code est ce que la date de la cellule est comparée à la date de windows?

Merci d'avance.

[drakkar_agfa]

Bonjour,

Le premier argument est la ligne et le second la colonne.
Donc cells(3,4) est en fait : D3
Donc cells(2,1) est en fait : A2

et pour la comparaison, si nous sommes la date de la cellule alors le msgbox s'affichera!

Personnellement je modifirais un peu le code pour ceci :

Code :

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

1
2
3
4
5
6
7
Sub TestDate()
    If Format(Now(), "dd/mm/yyyy") = Worksheets(1).Cells(1, 1).Value Then
        MsgBox "Coucou, on est le " & Format(Now(), "dd/mm/yyyy")
    Else
        Workbooks.Close
    End If
End Sub

Comme ça, si ce n'est pas la bonne date, le classeur se fermera automatiquement.

[ouskel'n'or]

Code :

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

1
2
3
    Else
        Workbooks.Close
    End If

Si tu fais ça sur un fichier placé dans XlStart, chaque fois que tu ouvriras Excel à une autre date, tu fermeras le fichier qui s'ouvre par défaut (Classeur1) et donc, à déconseiller