Lancement d'une macro entre et seulement deux dates

Bonjour à tous,
Je voudrais connaître le code Vba Excel afin de pouvoir lancer la Macro1 entre deux dates (à cheval sur deux années civiles) et ce à l'ouverture du classeur.
Soit: date début : 27/12/ de l'année courante.
date fin : 10/01/ de l'année suivante.
En dehors de cet intervalle de dates la Macro1 ne s'active pas.
D'avance merci pour votre collaboration.

Bonjour,

Moi je ferai une macro qui vérifie la periode de date

puis je ferai un CALL quand la date est comprise dans la période

sinon rien

Citation:

---

Envoyé par Le 18

date début : 27/12/ de l'année courante.
date fin : 10/01/ de l'année suivante.

---

La notion "d'année suivante" est assez difficile à saisir. :lol:
Je traduirais donc ta seconde condition par "avant le 10/01 de l'année en cours".

Citation:

---

En dehors de cet intervalle de dates la Macro1 ne s'active pas.

---

Commence ta macro par :

Code:

---

If Now() < DateSerial(Year(Now()), 12, 27) And Now() > DateSerial(Year(Now()), 1, 10) Then Exit Sub

---

Merci Igloobel et Menhir,
Mais à première vue cela ne fonctionne pas, j'essaye encore et vous tiens au courant

Bonjour,

Fournit ton code que l'on voit ce qui cloche

Bonjour Igloobel,
Voici le code:

Code:

---

1 2 3 4 5 6 7

Sub workbook_open() If Format(Now(), "yy,mm,dd") < DateSerial(Year(Now()), 12, 27) And Format(Now(), "yy,mm,dd") > DateSerial(Year(Now()), 1, 10) Then MsgBox "aa " Else MsgBox "bb " End If End Sub

---

Merci.

si tu compares une chaine avec une date cela ne marche pas

donc voici quelque chose de ressemblant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test() Dim MaDate As Date   'MaDate = Now() 'MaDate = #1/5/2020# 'format MM/JJ/AAAA MaDate = #12/30/2019#   If MaDate < DateSerial(Year(Now()), 12, 27) And MaDate > DateSerial(Year(Now()), 1, 10) Then MsgBox "hors plage" Else MsgBox "traitement à faie" End If   End Sub

---

Menhir t'a livré un code prêt à l'emploi ! juste un else et un end if manque. J'ai juste changé le Now()= par MaDate= pour faciliter les tests et c'est tout.


Comprends-tu maintenant : MaDate < DateSerial(Year(Now()), 12, 27)

Citation:

---

Envoyé par Le 18

Mais à première vue cela ne fonctionne pas

---

Si tu n'es pas plus descriptif, on ne va pas avancer. :calim2:

Citation:

---

Envoyé par Le 18

Code:

---

If Format(Now(), "yy,mm,dd") < DateSerial(Year(Now()), 12, 27) And Format(Now(), "yy,mm,dd") > DateSerial(Year(Now()), 1, 10) Then

---

---

C'est sûr que si tu modifies le code sans le signaler, on aura du mal à comprendre pourquoi ça ne fonctionne pas.

Reprend mon code (sans ces "Format" qui ne servent qu'à mettre l'embrouille) et ça ira mieux.

Merci à vous deux Igloobel et Menhir pour votre collaboration.
Je fais les modifications cet après-midi et vous tiens au courant.

Re-bonjour Igloobel et Menhir,
C'est parfait et fonctionne comme demandé.
Encore merci.