XL 2016 fonctionnement macro suivant une période

[MICHAEL]

bonsoir,
je désirerai créer une maco qui ne s'executerai qu'à partir d'une date jusqu'a la fin d'une période.
pensez vous que cela soit possible?
merci de votre aide.

 

[phlaurent55]

Bonjour Michael,

voici un exemple de macro qui s'exécutera automatiquement à l'ouverture du fichier
pour autant que la date du jour soit comprise entre la 14 novembre et le 30 novembre inclus

Private Sub Workbook_Open()
If Date >= "14/11/2017" And Date <= "30/11/2017" Then
'
'
'
' suite de la macro
'
'
'
'
'
End If
End Sub

à+
Philippe

 

[MICHAEL]

Bonsoir Philippe
Merci de ton aide, je vais pouvoir faire quelque chose à partir de ta proposition.
penses tu que l'on pourrait remplacer 2017 par l'année en cours?

 

[Staple1600]

Bonsoir le fil, le forum

Sauf erreur de ma part, l'année en cours c'est 2017 😉

 

[MICHAEL]

Bonjour,

Oui, je souhaitai que cette macro fonctionne également en 2018 sans avoir à changer manuellement
l'année de la date dans le code.

cordialement

 

[phlaurent55]

Re,

Ce code fonctionnera entre le 15 et le 30 novembre inclus de l'année en cours

Private Sub Workbook_Open()
If Date >= DateSerial(Year(Now), 11, 15) And Date <= DateSerial(Year(Now), 11, 30) Then
'
'
'
'
' suite de la macro
'
'
'
End If
End Sub

à+
Philippe

 

[MICHAEL]

bonjour
j'ai essayé d'appliquer ce code dans mon fichier sans résultat.
si vous pouviez voir cela, j'en serai ravi...
ce code pourrait s"executer à l'ouverture du fichier ou
à l'aide d'un bouton d'execution de la macro.
encore merci de votre aide.
cordialement.

 

[phlaurent55]

Re,

le fichier en retour
le code s'active automatiquement ( à condition d'avoir accepté les macros à l'ouverture du fichier)

à+
Philippe

Edit: Nouvelle version du fichier

 

[MICHAEL]

MERCI !

tout est ok. C'est exactement ce que je souhaitais.

je te souhaite une agréable soirée.

tres cordialement