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

Romzo

XLDnaute Nouveau
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
 

Pièces jointes

  • Maintenance.xlsm
    524.3 KB · Affichages: 31

vgendron

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

VB:
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

XLDnaute Barbatruc
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:)
 

Pièces jointes

  • Maintenance.xlsm
    517.5 KB · Affichages: 39

Discussions similaires

Haut Bas