Problème avec la commande Msg Box

Bonjour,

J'ai un fichier ou je compare des dates avec la date du jour. J'ai donc créé un macro qui se lance à l'ouverture du fichier.

Le test qui compare les dates, fonctionne sans problème. Mais je souhaite qu'une Msg Box s'affiche quand le test est vrai (ou plusieurs si plusieurs test sont vrais) avec le nom et le prénom de la personne qui sont à récupérer colonne A et B

Je vous joins le code que j'ai tapé mais qui ne fonctionne pas au niveau de la ligne de la Msg Box

Private Sub Workbook_Open()
Dim i As Integer
Dim Nom As String
Dim Prenom As String

For i = 5 To 300
    If Cells(i, 8) <> "" And Int(CDate(Cells(i, 8))) < DateSerial(Year(Date), Month(Date) + 2, Day(Date)) Then
        Nom = Cells(i, 1)
        Prenom = Cells(i, 2)
        Msg Box Nom

        End If
Next
End Sub

Si quelqu'un sait où se trouve mon erreur...

10test-2.xlsm (13.94 Ko)

Merci d'avance à tous

Bonjour,

Ecrit :

MsgBox (Nom)

au lieu de

Msg Box Nom

Niquel, merci.

Je savais que c'était tout bête

Rechercher des sujets similaires à "probleme commande msg box"