Alerte date avant 3 mois

[lorsaint]

Bonjour à tous,

Je souhaiterais créer une macro pour que, à l'ouverture du fichier, une msgbox affiche une alerte 3 mois avant une date de retour, en précisant le nom de la personne concernée et la date de retour...

Par avance, merci à tous ceux qui pourront m'aider !

Bonne fin de journée

Lorsaint

 

[pierrejean]

Re : Alerte date avant 3 mois

bonjour lorsaint

Vois si cela te convient

 

[lorsaint]

Re : Alerte date avant 3 mois

Merci c'est exactement ça sauf que je copié la macro dans un autre tableau (en l'adaptant bien sûr avec mes propres colonnes) et j'ai une alerte déboggage que je ne comprends pas sur la ligne "CDate..."

En plus, la macro ne s'éxécute pas automatiquement à l'ouverture du fichier...

Au secours...

Merci encore

 

[pierrejean]

Re : Alerte date avant 3 mois

Re

pour que la macro s'execute a l' ouverture du fichier elle doit etre dans Workbook_open
Pour ce qui est du Bug il faut etre sur que la colonne scrutée contient bien une date

 

[dixit]

Re : Alerte date avant 3 mois

bonsoir,
un peu en retard à la suite d'un problème de connexion ...
à tester
bye

 

[lorsaint]

Re : Alerte date avant 3 mois

Bonjour et merci pour votre aide :

j'ai essayé les 2 macros proposées et j'ai toujours un message d'erreur (13) qui s'affiche à la ligne :

If Sheets("Feuil1").Cells(Vb, 11) - Date < 92 Then

La cellule 11 dans mon tableau correspond bien à la colonne dans laquelle se trouvent mes dates de retour...

Je ne comprends cette erreur.

Par avance, merci pour votre aide si vous avez la solution.

Lorsaint

 

[dixit]

Re : Alerte date avant 3 mois

bonsoir,
je ne comprends pas également.
Joindre le classeur en supprimant les données personnelles.
à suivre
bye

 

[lorsaint]

Re : Alerte date avant 3 mois

Bonjour,

Voici mon tableau. La macro fonctionne bien sauf que, après "ok" sur la msgbox, une erreur de déboggage (13) s'affiche.

Merci pour votre aide à tous.

Lorsaint

 

[pierrejean]

Re : Alerte date avant 3 mois

Re

Il y avait effectivement un bug du au calcul du jour precedent de 3 mois de la date du 31/12/2011
le calcul donnait le 31/09/2009 ,jour qui n'existe pas
pour pallier ceci j'ai créé une fonction de calcul du dernier jour du mois , valeur qui remplace le jour calculé s'il excede le dernier jour

 

[lorsaint]

Re : Alerte date avant 3 mois

Merci bcp Pierre-Jean pour votre aide. J'ai testé, ça marche.

Une dernière question : si la date de retour est le 03/05/09 (3 mois aujourd'hui) mais que je n'ouvre mon fichier que le 06/05/09. Aurais-je l'alerte ? Si ce n'est pas le cas, est-il possible de prévoir "inférieur ou égal" à 3 mois ?

Merci

Lorsaint

 

[pierrejean]

Re : Alerte date avant 3 mois

Re

Voila

 

[lorsaint]

Re : Alerte date avant 3 mois

Merci PierreJean et désolée de vous solliciter à nouveau :

j'ai testé à la macro et du coup, j'ai le message d'alerte sur toutes les dates en mettant <= 3 mois ! Peut-être serait-il préférable de prévoir une alerte à 3 mois +15 jours par exemple de façon à avoir une "plage de recouvrement" de 15 jours. Cela me permettrait, même si j'ouvre le fichier le 6/02/09 par exemple, d'avoir l'alerte pour une date au 03/05/09 ?

J'adapterai le nombre de jours par la suite, si besoin.

Je ne vois pas d'autre solution ? Pouvez-vous svp me donner le code pour cette modification ?

Merci encore pour votre précieuse aide.

Lorsaint

 

[pierrejean]

Re : Alerte date avant 3 mois

Re

Voila

 

[lorsaint]

Re : Alerte date avant 3 mois

Merci PierreJean,

C'est parfait ! Merci bcp

Lorsaint