Pouvoir afficher un message d'alerte au démarrage de mon classeur excell

[robertpellan]

Bonjour

J’ai suivi une mini formation sur you tube afin de réaliser le sujet en titre
J’ai tout copie le code via proposé et ca ne fonctionne pas
J’inclus le fichier excell et voici le code utilisé

Sub Workbook_Open()
Dim alertestock As Range
For Each alertestock In ActiveSheet.Range(« Alerte_stock »)
Valeur = Cells(alertestock.Row, 1)
If alertestock = « 0 » Then
MsgBox « La référence " & Valeur & " doit être commandée. », vbCritical, « Quantité en stock insuffisante »
Else
End If
If alertestock = « 1 » Then
MsgBox « La référence " & Valeur & " devra bientôt être commandée. », vbExclamation, « Stock presque insuffisant »
Else
End If
End sub

Merci de m’aider !!!
test.xlsm (14,8 Ko)

[Mimimathy]

Bonsoir
Teste comme ceci

Sub Workbook_Open()
Dim alertestock As Range
  For Each alertestock In ActiveSheet.Range("Alerte_stock")
    Valeur = Cells(alertestock.Row, 1)
    If alertestock = 0 Then
      MsgBox "La reference " & Valeur & " doit etre commandee.", vbCritical, "Quantite en stock insuffisante"
    ElseIf alertestock = 1 Then
      MsgBox "La reference " & Valeur & " devra bientot etre commandee.", vbExclamation, "Stock presque insuffisant"
    End If
  Next
End Sub

[robertpellan]

malheureusement cela ne fonctionne pas plus
et en plus je n arrive pas a voir la différence entre ce que vous proposez et ce que moi ja vais écrit
avez vous le fichier excell que jai uploader?

[Mimimathy]

Re,
Et bien si, cela fonctionne
Mais la macro ne doit pas être dans un module, mais dans le ThisWorkbook pour que cela fonctionne à l’ouverture
test (10).xlsm (21,9 Ko)

[robertpellan]

Merci mille fois !!!