Discussion :

[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

[Thautheme]

Bonjour Romzo, bonjour le forum,

Code à mettre dans le composant ThisWorkbook. Après, tu vois si tu le laisses ou pas à l'activation de l'onglet Planning. On pourrait aussi activer cet onglet si il y a un message, je ne l'ai pas fait...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Workbook_Open()
Dim Alertemaintenance As Range
 
With Worksheets("Planning")
    .Cells(14, 45) = Date
    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 Alertemaintenance
    i = 1
    For i = 1 To 50
        If .Cells(6, 9) > .Cells(i, 3) Then
            .Cells(i, 8) = ""
        End If
    Next i
End With
End Sub

[Romzo]

Super, merci beaucoup