MESSAGE BOX ou AUTRE LE 15 DE CHAQUE MOIS A L'OUVERTURE DU FICHIER

[ELSONCe]

Un grand BONJOUR à tout le forum,

Un détail... je cherche à faire apparaître un message le 15 de chaque mois pour rappeler aux utilisateurs de transférer leurs données.

J'ai trouvé un code que j'ai adapté, qui normalement se loge dans le worksheet désiré, mais qui ne fonctionne pas ou plutôt que j'exploite mal. J'ai donc essayé dans un module puis demandé de l'appeler à l'ouverture du fichier dans workbook open et pas mieux...

Sub Dates()
With Sheets("REFABRICATION SAV")
If Target.Address = "$B$4" Then
If Target.Value = NumberFormat = "09/mm/yy" Then MsgBox "Copier-Coller de SUIVI SAV vers SAUVEGADE", vbOKOnly, "Merci !"
End If
End With
End Sub

Espérant avoir été assez clair dans ma demande, je vous remercie par avance O grands excelliens pour solutionner ma problématique!!

Bonne journée !!

Cordialement

 

[Grand Chaman Excel]

Re : MESSAGE BOX ou AUTRE LE 15 DE CHAQUE MOIS A L'OUVERTURE DU FICHIER

Bonjour,

Si j'ai bien compris, quelque chose du genre :
(code à mettre dans ThisWorkbook)

Private Sub Workbook_Open()
    If Day(Date) = 15 Then
            MsgBox ("Nous sommes le 15...")
            'suite de ton code
    End If
End Sub

A+

 

[JNP]

Re : MESSAGE BOX ou AUTRE LE 15 DE CHAQUE MOIS A L'OUVERTURE DU FICHIER

Bonjour le fil ,
Par prudence, je la jouerais plutôt comme ça

If Day(Now()) = 15 Then
        MsgBox ("Nous sommes le 15...")
ElseIf (Day(Now()) = 14 Or Day(Now()) = 13) And Weekday(Now()) = 6 Then
        MsgBox ("Nous sommes le " & Format(Now(), "dd") & ", mais demain c'est samedi...")
End If

et il faudrait ajouter les fériés ...
Mais attention, si le fichier est ouvert plusieurs fois ce jour là, le message va apparaître à chaque fois, et l'utilisateur risque de passer le PC par la fenêtre ...
Bon courage