Ouverture automatique msgbox + création message d'alerte

[rkan]

Bonjour,

Pour faire simple j'ai un tableau avec 3 colonnes au minimum (Noms, date remise copie, date correction).
l'objectif est double :

*de créer une msgbox qui s'ouvre automatiquement à chaque fois que l'on ouvre le document et qui va renvoyer la date de correction la plus proche par rapport à la fonction AUJOURDHUI,
*le fait de cliquer sur ok renvoi à la cellule concernée,

Je suis plus que débutant, à part créer la msgbox je n'arrive pas à grand chose, merci d'avance, toutes les réponses sont les bienvenues🙂

 

[phlaurent55]

Re : Ouverture automatique msgbox + création message d'alerte

Bonjour rkan, et bienvenue sur le forum

voir exemple en fichier joint
il y a une mfc sur les 3 premières colonnes et une petite macro à l'ouverture du fichier

à+
Philippe

 

[mécano41]

Re : Ouverture automatique msgbox + création message d'alerte

Bonjour à tous,

Avec une macro un peu plus compliquée dans ThisWorbook...

Cordialement

 

[rkan]

Re : Ouverture automatique msgbox + création message d'alerte

Merci pour les réponses d'une grande utilité pour quelqu'un qui n'avait jamais codé avant ce matin 🙂

voila ce que cela donne dans mon document

Private Sub Workbook_Open()
Command1_Click
End Sub
Private Sub Command1_Click()
If MsgBox("Attention prochaine ouverture de plis le " & Range("SYNTHESE!L1"), vbExclamation + vbOKOnly, "MESSAGE IMPORTANT") = vbOK Then
Sheets("SYNTHESE").Cells([L2], 3).Select
End If
End Sub