Mon problème est le suivant :
dans mon classeur Excel XP, j'ai une feuille à imprimer à 3 dates bien
précises : Date1 (15.02) Date2 (15.05) Date3 (15.08) quelle que soit
l'année. Vu que c'est au milieu du mois, beaucoup de collègues oublient.
J'aimerais qu'à l'ouverture de ce classeur, lorsqu'on arrive à 2 jour de ces
date, une Msgbox s'affiche indiquant qu'il ne reste plus que x jours avant de
devoir envoyer.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Mets ce code à l'ouverture du fichier : If Month(Date) = 1 Or Month(Date) = 5 Or Month(Date) = 8 Then If Day(Date) > 12 And Day(Date) < 16 Then MsgBox ("Pensez à imprimer votre feuille dans " & 15 - Day(Date) & " jours") End If End If Cordialement. Daniel
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de news:
Salut à tous,
Mon problème est le suivant : dans mon classeur Excel XP, j'ai une feuille à imprimer à 3 dates bien précises : Date1 (15.02) Date2 (15.05) Date3 (15.08) quelle que soit l'année. Vu que c'est au milieu du mois, beaucoup de collègues oublient. J'aimerais qu'à l'ouverture de ce classeur, lorsqu'on arrive à 2 jour de ces date, une Msgbox s'affiche indiquant qu'il ne reste plus que x jours avant de devoir envoyer.
Quelqu'un aurait-il une idée ?
Merci d'avance
Céd -- Céd / Lausanne
Bonjour.
Mets ce code à l'ouverture du fichier :
If Month(Date) = 1 Or Month(Date) = 5 Or Month(Date) = 8 Then
If Day(Date) > 12 And Day(Date) < 16 Then
MsgBox ("Pensez à imprimer votre feuille dans " & 15 - Day(Date)
& " jours")
End If
End If
Cordialement.
Daniel
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de
news: B210D75D-BD77-4646-901C-3FB25AA9BEBF@microsoft.com...
Salut à tous,
Mon problème est le suivant :
dans mon classeur Excel XP, j'ai une feuille à imprimer à 3 dates bien
précises : Date1 (15.02) Date2 (15.05) Date3 (15.08) quelle que soit
l'année. Vu que c'est au milieu du mois, beaucoup de collègues oublient.
J'aimerais qu'à l'ouverture de ce classeur, lorsqu'on arrive à 2 jour de
ces
date, une Msgbox s'affiche indiquant qu'il ne reste plus que x jours avant
de
devoir envoyer.
Bonjour. Mets ce code à l'ouverture du fichier : If Month(Date) = 1 Or Month(Date) = 5 Or Month(Date) = 8 Then If Day(Date) > 12 And Day(Date) < 16 Then MsgBox ("Pensez à imprimer votre feuille dans " & 15 - Day(Date) & " jours") End If End If Cordialement. Daniel
"Congelator" <congelator(a_effacer)@hotmail.com> a écrit dans le message de news:
Salut à tous,
Mon problème est le suivant : dans mon classeur Excel XP, j'ai une feuille à imprimer à 3 dates bien précises : Date1 (15.02) Date2 (15.05) Date3 (15.08) quelle que soit l'année. Vu que c'est au milieu du mois, beaucoup de collègues oublient. J'aimerais qu'à l'ouverture de ce classeur, lorsqu'on arrive à 2 jour de ces date, une Msgbox s'affiche indiquant qu'il ne reste plus que x jours avant de devoir envoyer.