OVH Cloud OVH Cloud

Evenement "Nouvelle année"

8 réponses
Avatar
ManBas
Bonsoir,
Je voudrais déclencher une macro à la première ouverture du classeur au
passage de la nouvelle année (que l'accès au classeur se fasse le 1er
janvier ou n'importe quel jour suivant). Et bien sur qu'elle ne se
reproduise pas jusqu'au prochain nouvel an.
Je ne parvient pas à imaginer un code satisfaisant.
Merci de votre aide

8 réponses

Avatar
Francois L
Bonsoir,
Je voudrais déclencher une macro à la première ouverture du classeur au
passage de la nouvelle année (que l'accès au classeur se fasse le 1er
janvier ou n'importe quel jour suivant). Et bien sur qu'elle ne se
reproduise pas jusqu'au prochain nouvel an.
Je ne parvient pas à imaginer un code satisfaisant.
Merci de votre aide





Bonsoir,

Stocker la date du jour quelque part à la fermeture du classeur

A l'ouverture du classeur, si année de la date du jour différente de
l'année de la date stockée alors macro de début d'année, sinon exit
cette macro.

--
François L

Avatar
Sitting Hoax
Bonjour,
catte macro te permet cela
dans le module de ThisWorkBook
coolle la macro
***************
'Private Sub Workbook_Open()
Sub auto_open()
année = Year(Date)
année2 = Year(Date - 1000)
If année - année2 > 0 Then
If Range("iv1") = 1 Then
Exit Sub
Else
Range("iv1") = 1
MsgBox "Bonne Année " & année, vbExclamation, "vive l'année " & année
End If
End If
End Sub
******************

"ManBas" a écrit dans le message de news:
%
Bonsoir,
Je voudrais déclencher une macro à la première ouverture du classeur au
passage de la nouvelle année (que l'accès au classeur se fasse le 1er
janvier ou n'importe quel jour suivant). Et bien sur qu'elle ne se
reproduise pas jusqu'au prochain nouvel an.
Je ne parvient pas à imaginer un code satisfaisant.
Merci de votre aide



Avatar
Sitting Hoax
argh, mes doigts ont fourché et le message est parti tout seul.
la macro n'était pas finalisée
Sub auto_open()
année = Year(Date) 'année du jour
année2 = Year(Date - 1) 'année du jour -1
If année - année2 > 0 Then
If Range("iv1") = 1 Then
Exit Sub
Else
Range("iv1") = 1
MsgBox "Bonne Année " & année, vbExclamation, "vive l'année " & année
End If
End If
End Sub

Amicalement
Siesting Hoax

"ManBas" a écrit dans le message de news:
%
Bonsoir,
Je voudrais déclencher une macro à la première ouverture du classeur au
passage de la nouvelle année (que l'accès au classeur se fasse le 1er
janvier ou n'importe quel jour suivant). Et bien sur qu'elle ne se
reproduise pas jusqu'au prochain nouvel an.
Je ne parvient pas à imaginer un code satisfaisant.
Merci de votre aide



Avatar
ManBas
Et oui bien sur!
Merci beaucoup.
A bientôt.

"Francois L" a écrit dans le message de news:

Bonsoir,
Je voudrais déclencher une macro à la première ouverture du classeur au
passage de la nouvelle année (que l'accès au classeur se fasse le 1er
janvier ou n'importe quel jour suivant). Et bien sur qu'elle ne se
reproduise pas jusqu'au prochain nouvel an.
Je ne parvient pas à imaginer un code satisfaisant.
Merci de votre aide



Bonsoir,

Stocker la date du jour quelque part à la fermeture du classeur

A l'ouverture du classeur, si année de la date du jour différente de
l'année de la date stockée alors macro de début d'année, sinon exit cette
macro.

--
François L




Avatar
Trirème
Bonsoir François

Tu as pensé au gars qui travaille sur son fichier le soir du réveillon jusqu'à passé
minuit ? Qui c'est qui lui annonce la bonne année à la prochaine ouverture ?

Bon, il suffit de stocker la date du jour à l'ouverture plutôt qu'à la fermeture.

Cordialement
Trirème

Bonsoir,
Je voudrais déclencher une macro à la première ouverture du classeur
au passage de la nouvelle année (que l'accès au classeur se fasse le
1er janvier ou n'importe quel jour suivant). Et bien sur qu'elle ne se
reproduise pas jusqu'au prochain nouvel an.
Je ne parvient pas à imaginer un code satisfaisant.
Merci de votre aide




Bonsoir,

Stocker la date du jour quelque part à la fermeture du classeur

A l'ouverture du classeur, si année de la date du jour différente de
l'année de la date stockée alors macro de début d'année, sinon exit
cette macro.




Avatar
lSteph
;o))
Té Laurent, dépêche toi plutôt de remettre le glaçon dans le pastis il est
sur ta touche Enter

Amicales Salutations.

lSteph

"Sitting Hoax" <http://cerbermail.com/?GSQ36o9bFb> a écrit dans le message
de news: %
argh, mes doigts ont fourché et le message est parti tout seul.
la macro n'était pas finalisée
Sub auto_open()
année = Year(Date) 'année du jour
année2 = Year(Date - 1) 'année du jour -1
If année - année2 > 0 Then
If Range("iv1") = 1 Then
Exit Sub
Else
Range("iv1") = 1
MsgBox "Bonne Année " & année, vbExclamation, "vive l'année " & année
End If
End If
End Sub

Amicalement
Siesting Hoax

"ManBas" a écrit dans le message de news:
%
Bonsoir,
Je voudrais déclencher une macro à la première ouverture du classeur au
passage de la nouvelle année (que l'accès au classeur se fasse le 1er
janvier ou n'importe quel jour suivant). Et bien sur qu'elle ne se
reproduise pas jusqu'au prochain nouvel an.
Je ne parvient pas à imaginer un code satisfaisant.
Merci de votre aide







Avatar
Francois L
Bonsoir François

Tu as pensé au gars qui travaille sur son fichier le soir du réveillon
jusqu'à passé minuit ? Qui c'est qui lui annonce la bonne année à la
prochaine ouverture ?



Bonsoir,

Je n'y avais pas pensé à celui là !

--
François L

Avatar
Sitting Hoax
y'a de l'olive partout sur le clavier maintenag,
la tapenade a débordé de la tartine.
Il faut signaler que hier, EXCEPTIONNELLEMENT, je n'ai pas fait de sieste,
ceci expliquant cela;-)))
Amicalement
Siesting Hoax (qui aujourd'hui ne la manquera pas)
"lSteph" a écrit dans le message de news:
e$
;o))
Té Laurent, dépêche toi plutôt de remettre le glaçon dans le pastis il est
sur ta touche Enter

Amicales Salutations.

lSteph

"Sitting Hoax" <http://cerbermail.com/?GSQ36o9bFb> a écrit dans le message
de news: %
argh, mes doigts ont fourché et le message est parti tout seul.
la macro n'était pas finalisée
Sub auto_open()
année = Year(Date) 'année du jour
année2 = Year(Date - 1) 'année du jour -1
If année - année2 > 0 Then
If Range("iv1") = 1 Then
Exit Sub
Else
Range("iv1") = 1
MsgBox "Bonne Année " & année, vbExclamation, "vive l'année " & année
End If
End If
End Sub

Amicalement
Siesting Hoax

"ManBas" a écrit dans le message de news:
%
Bonsoir,
Je voudrais déclencher une macro à la première ouverture du classeur au
passage de la nouvelle année (que l'accès au classeur se fasse le 1er
janvier ou n'importe quel jour suivant). Et bien sur qu'elle ne se
reproduise pas jusqu'au prochain nouvel an.
Je ne parvient pas à imaginer un code satisfaisant.
Merci de votre aide