Mise en place d'une alerte à l'ouverture d'un fichier excel par VBA

[Romzo]

Bonjour à tous,
Je réalise actuellement un logiciel de maintenance et je voudrais mettre en place des alertes lors de l'ouverture de mon fichier.
J'ai déjà mis en place un système d'alerte, sauf qu'il ne fonctionne que lors de l'ouverture du fichier "planning". Je voudrais que les alertes s'affichent lorsque le classeur "accueil" s'ouvre. Pourriez-vous m'aider ?
Veuillez trouver ci-joint mon fichier excel.

Cordialement,
Romzo

 

[vgendron]

Hello
suffit de mettre ce code dans le module de la feuille "Acceuil"

Private Sub Worksheet_Activate()
'Pour l'alerte
Dim Alertemaintenance As Range
With Sheets("Planning")
    For Each Alertemaintenance In .Range("Alerte")
        Valeur = .Cells(Alertemaintenance.Row, 1)
        If Alertemaintenance = "1" Then
            MsgBox "Une installation" & Valeur & " doit être révisée immédiatement.", vbCritical, "Date de maintenance atteinte"
        End If
        If Alertemaintenance = "2" Then
            MsgBox "Une installation" & Valeur & " doit bientôt être révisée.", vbExclamation, "Date de maintenance bientôt atteinte"
        End If
    Next
End With
End Sub

 

[Lone-wolf]

Bonjour Romzo et bienvenue sur XLD

Ton fichier en retour, j'ai mis aussi dans le module standard les macros
Controle - Date_hier_boucle et Date_du_jour

Celles-ci n'ont rien à faire dans ThisWorkbook. Il faudra ajouter le nom des feuilles à chaque macro.

Edit: bonjour vgendron

 

[Romzo]

Super, merci à vous deux pour vos réponses !
Lone-wolf, ce que tu as fais marche super bien, merci beaucoup