Popup date et vérification (msgbox)

Bonjour,

Après quelques recherches je n'ai malheureusement pas eu la chance de trouver solution à mon pbm..

D'abord, je souhaite qu'un popup (une message box ou peu importe) apparaisse à une date précise ("tous les XX de chaque mois")

C'est un popup de sauvegarde ("Pensez à transmettre le fichier au leadgroup"

En second j'aimerai qu'un popup apparaisse à l'ouverture du fichier et m'affiche le nombre d'action avec le statut "En Cours". Et que si il n'en existe pas rien ne s'affiche.

Merci

Bonjour,

Ce code est à insérer dans le Module ThisWorkbook de votre classeur :

Private Sub Workbook_Open()
If WorksheetFunction.CountIf(Sheets("Feuil1").Columns(6), "En cours") > 0 Then
    MsgBox "Vous avez : " & WorksheetFunction.CountIf(Sheets("Feuil1").Columns(6), "En cours") & " actions en cours."
End If
If Day(Date) = 12 Then MsgBox "Nous sommes le 12!!!" & vbCrLf & "Jour de sauvegarde, don't Forget this!"
End Sub

Éventuellement adapter le nom de la feuille "Feuil1" dans l'exemple.

Bonjour,

Ci-joint ton fichier test ...

Parfait. Tout fonctionne ... Merci bcp !

Re,

Merci pour tes remerciements ...