Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Msgbox du 1er au 15 janvier

Msgbox du 1er au 15 janvier

4 réponses
Avatar
Alpha
Bonsoir
Je désire lancer un msgbox tous les ans du 1 au 15 janvier
j'ai des pb d'écriture.
Merci beaucoup
Alpha
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
FxM
Bonsoir Patrick,

dans ta macro d'ouverture :
if month(now)=1 and day(now)< then msgbox "et voilà"

Avec <= pour ouvrir jusqu'au 15 inclus. Sinon remplace par < (jusqu'au
14 inclus)

@+
FxM




Alpha wrote:
Bonsoir
Je désire lancer un msgbox tous les ans du 1 au 15 janvier
j'ai des pb d'écriture.
Merci beaucoup
Alpha




Avatar
Nicolas B.
Salut,

La solution basique (à lancer lors de l'ouverture du fichier) :

Sub DebutAnnee()
If Month(Date) = 1 And Day(Date) < 16 Then MsgBox "Bonne année !"
End Sub

Si tu veux par contre quelque chose de plus évolué (du genre ne se lance
qu'une fois par an), précise un peu le problème.


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonsoir
Je désire lancer un msgbox tous les ans du 1 au 15 janvier
j'ai des pb d'écriture.
Merci beaucoup
Alpha


Avatar
Alpha
Déjà !!! Comme on dit à Budapest, Hongrois rêver !
Merci beaucoup
Alpha

"FxM" a écrit dans le message de
news:%
Bonsoir Patrick,

dans ta macro d'ouverture :
if month(now)=1 and day(now)< then msgbox "et voilà"

Avec <= pour ouvrir jusqu'au 15 inclus. Sinon remplace par < (jusqu'au
14 inclus)

@+
FxM




Alpha wrote:
Bonsoir
Je désire lancer un msgbox tous les ans du 1 au 15 janvier
j'ai des pb d'écriture.
Merci beaucoup
Alpha







Avatar
Alpha
Non c'est parfait merci beaucoup Nicolas
Alpha

"Nicolas B." a écrit dans le message de
news:
Salut,

La solution basique (à lancer lors de l'ouverture du fichier) :

Sub DebutAnnee()
If Month(Date) = 1 And Day(Date) < 16 Then MsgBox "Bonne année !"
End Sub

Si tu veux par contre quelque chose de plus évolué (du genre ne se lance
qu'une fois par an), précise un peu le problème.


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonsoir
Je désire lancer un msgbox tous les ans du 1 au 15 janvier
j'ai des pb d'écriture.
Merci beaucoup
Alpha