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

lenemmasque 33 Messages postés mardi 6 décembre 2005Date d'inscription 23 mars 2007 Dernière intervention - 6 déc. 2005 à 08:51 - Dernière réponse : FMatrix07 233 Messages postés mercredi 26 février 2003Date d'inscription 21 février 2009 Dernière intervention
- 6 déc. 2005 à 19:49
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.
Afficher la suite 

8 réponses

Meilleure réponse
jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 6 déc. 2005 à 11:35
3
Merci
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.

Merci jpleroisse 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

BasicInstinct 1471 Messages postés mardi 5 février 2002Date d'inscription 20 octobre 2014 Dernière intervention - 6 déc. 2005 à 09:06
0
Merci
'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
lenemmasque 33 Messages postés mardi 6 décembre 2005Date d'inscription 23 mars 2007 Dernière intervention - 6 déc. 2005 à 09:25
0
Merci
Ok ! Mais peux-tu me dire comment stocker le mois dans mon programme ?
BasicInstinct 1471 Messages postés mardi 5 février 2002Date d'inscription 20 octobre 2014 Dernière intervention - 6 déc. 2005 à 11:12
0
Merci
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
FMatrix07 233 Messages postés mercredi 26 février 2003Date d'inscription 21 février 2009 Dernière intervention - 6 déc. 2005 à 19:47
0
Merci
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
FMatrix07 233 Messages postés mercredi 26 février 2003Date d'inscription 21 février 2009 Dernière intervention - 6 déc. 2005 à 19:47
0
Merci
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
FMatrix07 233 Messages postés mercredi 26 février 2003Date d'inscription 21 février 2009 Dernière intervention - 6 déc. 2005 à 19:48
0
Merci
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
FMatrix07 233 Messages postés mercredi 26 février 2003Date d'inscription 21 février 2009 Dernière intervention - 6 déc. 2005 à 19:49
0
Merci
desolé mon explorateur a du mal

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.