Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Affichage alertes

Slavko.R

XLDnaute Nouveau
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
 

Pièces jointes

  • Calendrier_des_absences.xlsb
    92.5 KB · Affichages: 15

sousou

XLDnaute Barbatruc
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
 

Pièces jointes

  • Calendrier_des_absences.xlsb
    110.6 KB · Affichages: 8

sousou

XLDnaute Barbatruc
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

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
 

Pièces jointes

  • Calendrier_des_absences.xlsb
    98.1 KB · Affichages: 10

sousou

XLDnaute Barbatruc
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.
 

sousou

XLDnaute Barbatruc
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

XLDnaute Nouveau
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
 

Pièces jointes

  • Calendrier_des_absences.xlsb
    99.8 KB · Affichages: 5
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…