Discussion :

[Le 18]

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.

[Igloobel]

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

[Menhir]

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.
Je traduirais donc ta seconde condition par "avant le 10/01 de l'année en cours".

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

Commence ta macro par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Le 18]

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

[Igloobel]

Bonjour,

Fournit ton code que l'on voit ce qui cloche

[Le 18]

Bonjour Igloobel,
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Igloobel]

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

donc voici quelque chose de ressemblant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[Menhir]

Mais à première vue cela ne fonctionne pas

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    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.

[Le 18]

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

[Le 18]

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