Autres Affichage alertes

[Slavko.R]

Bonjour chers internautes

Voici mon petit défi du jour
J'ai fait un tableau sous Excel 2007 qui me sert de calendrier.
Il marque et met en surbrillance les dates des événements à ne surtout pas rater et ce, quelque soit l'année calendaire encours.

Normal, me direz-vous pour un calendrier! (LoL!)
Donc, jusque là, rien d'anormal.
D'autant, qu'en l'espèce, ce calendrier se comporte bien.

Hors, voilà ce que je souhaiterai rajouter, pour que le dit calendrier prenne tout son sens.
Ce sera l'objet de votre défis, amis internautes, férus de bidouille sous Excel, si vous acceptez de relever ceci:

- Je souhaiterai qu'une alerte apparaisse une semaine avant l'apparition d'un événement "X,Y".
- Puis, une autre qui se déclencherait 3 jours avant la dite date de l'événement "X,Y"

Enfin, l'alerte ou signal (peu importe), doit se déclencher via une boite de dialogue, sur le bureau de l'ordi dès l'ouverture de son explorateur.
(Le 'PC' est sous environnement Windows 10 famille)

D'avance, merci.
Cordialement,
R.S

 

[sousou]

Bonjour.
Avant d'aller plus loin, en ce qui concerne le déclenchement de l'alerte à l'ouverture,
regarde ici la macro analyse, qui génère une larte à trois jours et une alerte à 7 jours.
Ici l'alerte n'a lieu qu'une seule fois.
C'est à dire qu'il regarde à j+3 si il se passe quelque chose,, donc le lendemain (j+2) il ne verra plus l'évènement, (ceci étant modifiable si tu veux voir tous les jours : j+1,j+2,j+3)
en ce qui concerne le déclenchement, il est possible avec un vbs (déclanché par windows à l'ouverture du pc)
de lancer cette macro et d'afficher les alertes.
A suivre

 

[sousou]

re
Set aapp= WScript.CreateObject("WScript.Shell")
Set appli= WScript.CreateObject("excel.Application")
appli.visible=0
k0= len(wscript.scriptfullname)
k1=len(wscript.scriptname)
destination= left(wscript.scriptfullname,k0-k1)
set monfichier=appli.workbooks.open(destination & "Calendrier_des_absences.xlsb")
appli.run("analyse")

appli.quit


voici le code à mettre dans un fichier vbs, fichier qui pourra être lancé par windows au démarrage ou à la main
mettre ce code aux format txt, avec notepad ou n otpad+ enregistrer au format .vbs et double clique sur le fichier. ici le fichier doit se trouver dans le dossier du fichier excel
Il lance excel en tache de fond (.visible=0) et lance la macro analyse, puis referme excel

Le vbs est à manier avec précaution!

 

[Slavko.R]

Bonjour
Merci pour le coup de pouce,
Je vais de suite utiliser ce dernier code et l'enregistrer en notpad pour voir ce que cela donne.

Enfin, s'agissant des alertes.
Il est vrai que je n'ai pas pensé à l'éventualité fort probable que je ne sois pas sur mon 'PC',
durant quelque temps.
Si cela devait se produire, il faut que l'alerte puisse être activée jusqu'au dernier jour.
Comme avec l'agenda Outlook

Cordialement.
R.S

 

[sousou]

TRe
Tu as deux lignes en commentaire,
Supprime la mise en commentaire, et mets en commentaire les deux lignes suivantes
Dans ce cas tu auras toutes les alertes entre la date du jour et les et j+3 et j+7 et ce à chaque ouverture
Fait des tests

 

[Slavko.R]

Bonjour et Joyeux Noel

Rentrons au plus vite dans le vif du sujet.
- 1_J'ai modifié les deux lignes de commentaires.
Par contre, je n'ai pas contrôlé si les lignes collent bien.
Donc, à revoir...

- 2_ Maintenant, s'agissant du code dans Notepad à inséré dans 'VB'
L'instruction est erronée, il semble que j'ai mal fait une manipe?

Voici le message d'erreur qui s'affiche dans la boite de dialogue.

- Erreur de compilation:
"Instruction incorrect à l'extérieur d'une procédure"

Je t'envoi le fichier en 'PJ', je pense que ce sera plus simple pour y voir clair?

En te remerciant, d'avance
Cordialement,
R.S

 

[sousou]

Bonjour slavko.
J'ai l'impression que je ne me suis pas bien exprimé, mais il te faudra attendre demain, ces jours de fêtes ne me laisse pas le temps de reprendre mes explications.je reprend tout ça demain.

 

[Slavko.R]

Bonjour

Tout à fait normal, je partage ce point de vu à 100%.
Je suis moi même dans le même cas.
Alors, pas de souci ne t'en fait pas je saurai être patient, prends le temps qu'il te faut.

Merci
R.S

 

[sousou]

Bonjour Slavko
Un fichier vbs ( extention .vbs) est un fichier script que windows interprète. (incompatible mac)
Je ne peux pas dans ce forum te transmettre un fichier . vbs
Tu ecrits ce code dans un notepad, et tu l'enregistre sous par exemple moncode.vbs dans le dossier qui contient ton fichier excel.
c'est ce fichier (moncode.vbs) que tu devras lancer pour voir le résultat.
Ce dernier:
Ouvre excel en arrière plan
ouvre ton fichier
lance la macro analyse ( que j'ai ajoutée dans ton fivchier)
et affiche les alertes.
C'est encore ce fichier que tu pourras lancer via Windows à l'ouverture du PC

Tu doit donc supprimer le code que tu as mis dans le module 3 du fichier

A suivre

 

[Slavko.R]

Bonjour à toi l'ami

J'ai ouvert la macro, sélectionné 'analyse' et lancé l'opération:

Voici ce qui s'affiche, est-ce normal?
Erreur d'exécution '1004':

Cordialement
R.S

 

[Slavko.R]

Re
Voici ce qui se produit lorsque je lance l'exécution de l'appli, à partir du notepad en mode vbs

Cordialement,
R.S

 

[sousou]

Bonjour,

Peux-tu me passer tes deux fichiers
Pour moi la macro analyse fonctionne chez moi avec le fichier d'origine!
au moin pour le vbs passe le en Messagerie privée

 

[Slavko.R]

Comment va?

OK!
Je fais ça...

R.S

 

[Slavko.R]

Lien vers fic 'VBS'

Ce lien devrait te conduire vers le fichier VBS, via mon drive, il est archivé dans le dossier divers.
Par contre, je ne sais pas si cette solution va fonctionner et si tu pourras télécharger le fichier depuis le forum?

R.S

 

[sousou]

Il semble que tu ai fait disparaitre deux lignes de code