[Résolu] MsgBox d'alerte en fonction de la date

[Joe[PT]]

Bonjour,

J'essaie de mettre en place un popup qui se déclenche entre une fourchette de date (dans les 10 premiers jours de chaque mois). C'est un rappel pour faire une déclaration aux Douanes (du 1 au 10 dernière limite).

Private Sub Workbook_Open()

' Ouvrir le fichier toujours sur l'onglet "Accueil"
    Feuil1.Activate
    
' Affiche l'USF1
    UserForm1.Show
    
' Condition sur la date pour le rappel de déclaration aux douanes
'
    If Day(Date) <= 30 Then MsgBox "Nous sommes le " & vbCrLf & "Pensez à faire la Déclaration Mensuelle d'Importation auprès des douanes !"
    End If
    
End Sub

J'ai volontairement mis 30 parce qu'on est le 25 et que je veux tester en fonction de la date... mais dans l'idée du 1er au 10e jour de chaque mois, le popup devrait se déclencher.

Mon code ne fonctionne pas et j'avoue que je sèche...

Bonne après-midi.

Joe

 

[Pierrot93]

Re : MsgBox d'alerte en fonction de la date

bonjour,

regarde peut être ceci :

If Day(Date) < 11 Then MsgBox "Alerte"

bon après midi
@+

 

[Joe[PT]]

Re : MsgBox d'alerte en fonction de la date

Bonjour Pierrot,

Merci pour ton aide, j'ai essayé avec ton code en mettant > 1 pour que le message s'affiche mais... rien

Private Sub Workbook_Open()

' Ouvrir le fichier toujours sur l'onglet "Accueil"
    Feuil1.Activate
    
' Affiche l'USF1
    UserForm1.Show
    
' Condition sur la date pour le rappel de déclaration aux douanes
'
    If Day(Date) > 1 Then MsgBox "Alerte"
    
    
End Sub

Est-ce que le lancement du UserForm1 à l'ouverture du fichier Excel peut gêner le MsgBox ?

Bonne soirée

Joe

 

[JCGL]

Re : MsgBox d'alerte en fonction de la date

Bonjour à tous,
Salut Pierrot,

Passe ton USF en Modal (le 0 après le .Show)

Option Explicit

Private Sub Workbook_Open()
' Ouvrir le fichier toujours sur l'onglet "Accueil"
    Feuil1.Activate
' Affiche l'USF1
    UserForm1.Show 0
' Condition sur la date pour le rappel de déclaration aux douanes
    If Day(Date) <= 30 Then MsgBox "Nous sommes le " & Day(Date) & vbCrLf & "Pensez à faire la Déclaration Mensuelle d'Importation auprès des douanes !"
End Sub

A+ à tous

 

[Joe[PT]]

Re : MsgBox d'alerte en fonction de la date

Bonsoir JCGL,

ça Marche ! Mille merci depuis le temps que je cherche le bug... je ne voyais même plus l'écran

Bonne soirée !

Joe