Afficher une MsgBox en début de mois. [Résolu]

Signaler
Messages postés
33
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2007
-
Messages postés
233
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
21 février 2009
-
Bonjour !
Je débute dans la programmation en VB.
Je crée actuellement un programme sous Excel pour gérer des ventes.
J'aimerais qu'en début de chaque mois, il m'affiche une MsgBox me proposant d'effectuer une mise à jour. Comment faire ?
Merci d'avance.

8 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonjour,

Essaye de t'inspirerde ce code, si c'est vendredi, le msgbox apparaît
signalant la sauvegarde hebdomadaire.Si ce n'est pas vendredi, il ne se
passe rien.



Private Sub Workbook_Open()

Dim msg

If WeekDay(Now) = vbFriday Then

msg = "Nous sommes vendredi, n'oubliez pas d'éffectuer "

msg = msg & "votre sauvegarde hebdomadaire !"

MsgBox msg, vbInformation

End If

End Sub



jpleroisse



Si une réponse vous convient convient, cliquez Réponse Acceptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
10
'lut

a mon avis, faut stocker qque part le mois du dernier affichage de ta msgbox

puis dans ton WorkBook_Open

if Month(Now)<>MonMoisStocke
msgbox "MAJ a faire"
' Puis tu re-sauvegardes le mois
end if

BasicInstinct
Messages postés
33
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2007
3
Ok ! Mais peux-tu me dire comment stocker le mois dans mon programme ?
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
10
soit tu le mets dans une cellule, soit dans un fichier ailleurs, ca depend de la liberte que tu as, ou de tes envies

BasicInstinct
Messages postés
233
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
21 février 2009
2
il te faut stoker le mois en cours dans une cellule
puis dans une macro à l'ouverture
faire
If Range("IV65536") <> Format$(Date, "mm") Then
Range("IV65536") = Format$(Date, "mm")
MsgBox "Jour de paie", vbCritical, "Attention"
End If

Le mieu est de cacher la cellule ou tu stoke ta variable mais c'est toi qui vois
Messages postés
233
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
21 février 2009
2
il te faut stoker le mois en cours dans une cellule
puis dans une macro à l'ouverture
faire
If Range("IV65536") <> Format$(Date, "mm") Then
Range("IV65536") = Format$(Date, "mm")
MsgBox "Jour de paie", vbCritical, "Attention"
End If

Le mieux est de cacher la cellule ou tu stoke ta variable mais c'est toi qui vois
Messages postés
233
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
21 février 2009
2
il te faut stoker le mois en cours dans une cellule
puis dans une macro à l'ouverture
faire
If Range("IV65536") <> Format$(Date, "mm") Then
Range("IV65536") = Format$(Date, "mm")
MsgBox "Jour de paie", vbCritical, "Attention"
End If

Le mieux est de cacher la cellule ou tu stoke ta variable mais c'est toi qui vois
Messages postés
233
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
21 février 2009
2
desolé mon explorateur a du mal