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...
Merci d'avance à tous