Tatiak

Excel, Vba, Vbs


19 décembre 2015

Agenda sur Excel et application Agenda+.exe

Actualisation et suite - 6 février 2016

Sur un cahier des charges de Nono1835 qui cherchait un agenda sur Excel, car ne pouvant pas installer des appli sur son PC professionnel, voici une appli d'agenda dont le visuel est calqué sur l'agenda de Google (est-ce du plagiat?).

La visualisation des évènements ou rendez-vous se fait selon 5 modes différents : journée/semaine/mois/4 jours/Planning.

Le saisie d'un évènement se fait soit par clic sur le bouton "Créer", soit par clic sur un créneau horaire libre des vues journée, semaine ou 4 jours.
Pour chaque évènement/rdv, le choix d'une couleur (parmi 11) est possible

Afin de permettre de distinguer, par exemple rendez-vous personnels et rendez-vous professionnels, il est possible de créer des catégories d'agendas différents
Pour ajouter une nouvelle catégorie, agenda "Lulu" par exemple, il suffit de saisir l'item "Lulu" dans la liste déroulante "Agenda" de la fenêtre de saisie d'un nouvel évènement/rdv

L'idée ici est de montrer comment dessiner des formes sur Userform en passant par des modules de classe.

Merci de vos commentaires
Pierre

 

Edit du 23/12/2015 : Voici une nouvelle version avec fonction d'impression (via export word). Les 2 fichiers doivent être dézippés dans un même dossier. L'export se fait en fonction de la sélection (catégorie d'agenda et période)

Téléchargement de Agenda++_v2.3.zip

 

Edit du 27/12/2015 : Pour aller plus loin voici l'appli "Agenda+ & Contacts" qui propose conjointement un agenda et une gestion des contacts qui INTERAGISSENT entre eux.
Dans les grandes lignes :

GESTION DES CONTACTS :
* Liste des contacts :
-- cette liste peut être filtrée selon noms, fonctions ou sociétés
-- les informations de cette liste peuvent être modifiées directement depuis cette liste.
-- un clic droit sur une ligne ouvre la fiche du contact

* Fiche Contact :
-- double-clic sur l'adresse mail pour écrire un mail
-- saisie possible de plusieurs n° de téléphone (fixe, portable, bureau, fax, ...), pas de limitation de nb (en théorie)
-- possibilité de lier des documents (textes, pdf, images, ...) à chaque contact
-- page "diaporama" pour visualiser une miniature des images associées au contact
-- page "Historique" pour visualiser la liste des évènements/rdv programmés avec ce contact (et ouverture de la fiche évènement/rdv par double-clic sur une ligne)


AGENDA : en plus des fonctions décrites précédemment :
* Chaque évènement/rdv de l'agenda peut être relié à une pièce jointe et/ou à un contact => clic sur "Associer"
* Si une pièce jointe + un contact sont associés au rdv, la pièce jointe est ajoutée à la liste des PJ associées au contact
* Possibilité d'envoyer un email automatisé depuis la fiche Rdv pour rappeler l'évènement/rdv au contact associé (via un simple mailto, donc quelques limites ...)

 

Edit du 16 janv 2016 : En réponse à une demande, voici le fichier Agenda+.xlsm converti en Agenda+.exe, application Windows autonome (pour pouvoir l'utiliser sans Excel).
J'en ai profité au passage pour améliorer le code, notamment pour la gestion de la modification/suppression des évènements répétés.

Pour l'installer : le fichier joint Ag+.zip est une archive qu'il faut dézipper sur son disque dur.
A l'intérieur du dossier obtenu, vous trouverez un fichier setup qu'il faut double-cliquer pour installer Agenda+ sur son PC. Un raccourci se crée sur le bureau pour ouvrir l'appli Agenda+.

C'est garanti sans virus et si besoin ça se désinstalle comme n'importe quelle appli Windows.

Téléchargemet de : Ag+.zip

 

Edit du 20 janv 2016 : En réponse à JCG, voici l'appli Agenda & Contact.xlsm avec une fonction d'import/export des fiches contats au formt vCard (.vcf), ce qui permet les échanges avec Outlook ( ou autre logiciel similaires).

De cette façon :
* depuis Outlook (ou autre logiciel du même genre), on exporte ses contacts au format vCard (.vcf) dans un dossier quelconque (cf google pour la marche à suivre)
* depuis l'appli Agenda+_&_Contacts_v1b, page liste des contacts, un bouton permet d'importer les contacts en pointant simplement sur le dossier contenant les fiche vCard

et dans l'autre sens :
* depuis l'appli Agenda+_&_Contacts.xlsm, page fiche contact, un bouton permet d'exporter la fiche contact vers du vCard pour pouvoir l'importer dans Outlook (ou autre) ou pour pouvoir l'envoyer à un correspondant

 

Edit du 23 janv 2016 : Implémentation de la fonctionnalité "répéter uniquement sur jours ouvrés"

Téléchargement de : Agenda++_v2.3.zip

 

Edit du 26 janv 2016 : Agenda+.exe intègre maintenant la gestion des contacts comme la version .xlsm, avec :
* la possibilité de lancer l'appli automatiquement au démarrage de Windows
* la possibilité d'avoir des rappels des prochains rendez-vous

Téléchargement de : Agenda+.exe.zip

 

Edit du 19 mars 2017 : Ajout d'une fonction d'import de fichier iCal (.ics). Permet par exemple l'intégration du calendrier officiel des vacances scolaires => https://www.data.gouv.fr/fr/datasets/le-calendrier-scolaire/#_

Téléchargement de : Agenda_v2.4b.xlsm

 

Edit du 28 janvier 2020 : Ajout d'une version très simplifiée d'un agenda très simple et sans prétention (à voir plus comme fichier démo). Vu les multiples demandes => le code est ouvert

Téléchargement de : Agenda_Simple.xlsm

 

 

 

Posté par tatiak à 11:16 - Applications - Commentaires [24] - Permalien [#]

Commentaires sur Agenda sur Excel et application Agenda+.exe

  • Bravo fichier excelent

    Posté par Djilaliz, 13 décembre 2016 à 14:40 | | Répondre
    • Merci pour ce sympathique commentaire

      Posté par tatiak, 13 décembre 2016 à 19:37 | | Répondre
  • Félicitations
    Par contre peux tu nous en dire un peu plus concernant l'appli que tu as utilisé pour generé un fichier executable

    Posté par Bertrand91, 27 février 2017 à 11:17 | | Répondre
    • Merci de l'intérêt porté à mes démo.
      Le .exe a été compilé avec Visual Studio.
      Pierre

      Posté par tatiak, 27 février 2017 à 11:24 | | Répondre
  • ok
    donc , il faut refaire tout sous VB puis le compiler ensuite

    Posté par Bertrand91, 27 février 2017 à 11:25 | | Répondre
    • Quand le VBA est correctement écrit, la traduction en VB est simple. Reste à redessiner les formulaires.

      Posté par tatiak, 27 février 2017 à 11:29 | | Répondre
  • ok
    merci beaucoup

    Posté par Bertrand91, 27 février 2017 à 12:13 | | Répondre
  • Bonjour,
    Beau travail!
    Peut-on envisager :
    1-d'incorporer les vacances scolaires (par zone) comme apparaissent les jours fériés. (pour l'instant j'ai créer un agenda VacScol sur une plage horaire large)
    2-d'afficher 2 ou plusieurs agendas
    Cordialement

    Posté par BV-25, 16 mars 2018 à 19:31 | | Répondre
    • Les vacances scolaires sont décidées par le ministère et non calculées comme les fériés. Ce ne sera donc jamais intégré automatiquement.
      Il est possible d'afficher un agenda personnel + un agenda professionnel.
      Pierre

      Posté par tatiak, 17 mars 2018 à 08:14 | | Répondre
  • Bonjour Pierre,
    Bravo pour ce travail très impressionnant pour un néophyte comme moi.
    Juste un probleme dans l'impression du planning... dans le menu, au passage de la souri, le menu impression disparait. (Ce n'est pas le cas dans l'agenda V2.3)
    Cordialement

    Posté par Laurent, 13 août 2019 à 17:06 | | Répondre
  • Edit : j'ai également un probleme pour l'export/import de Vcard.... ça ne fonctionne pas "erreur execution 9"

    Posté par Laurent, 15 août 2019 à 13:59 | | Répondre
  • SVP comment compiler sous visual studio un travail réalisé en VBA (en détail SVP), sachant que je suis pas pro de visual studio

    Posté par madomido, 19 décembre 2019 à 11:18 | | Répondre
    • Bonjour,
      Pour passer de Excel à Visual Studio, il faut :
      * anticiper l'écriture du VBA pour que la "traduction" soit plus facile
      * redessiner une interface dans Visual Studio
      Ca nécessite d'être déjà familiarisé avec Visual Studio
      Pierre

      Posté par tatiak, 19 décembre 2019 à 12:44 | | Répondre
  • Bonjour, Super travail ! Serait-il possible d'avoir le mot de passe pour modifier le projet ? Ce serait vraiment génial.

    Posté par Sam, 06 janvier 2020 à 14:48 | | Répondre
    • Bonjour,
      Merci pour le commentaire. Je ne partage pas tous mes codes d'où les protections sur certains des fichiers téléchargeables. Ceci dit, les méthodes utilisées ici sont détaillées sur les autres pages de mon site. Bonne lecture.
      Pierre

      Posté par tatiak, 06 janvier 2020 à 16:42 | | Répondre
    • Voir version du 28 janvier 2020

      Posté par tatiak, 28 janvier 2020 à 13:14 | | Répondre
  • Bonjour,

    Avec ton dernier document publié, Agenda simplifié, le bouton "Fleche droite" à droite de la liste déroulante Mois, retourne une erreur.
    Y a t il quelque chose de particulier a faire afin de générer les autre mois ?

    Cordialement

    Posté par Helron, 08 février 2020 à 22:12 | | Répondre
  • J'en profite pour poser une question/remarque bien que nous ne soyons pas sur un forum dédié à cela. Il est difficile pour moi de rentrer dans le code et de faire des modification mais c'est aussi comme cela que j'apprend ^^ néanmoins, je me suis toujours demandé pourquoi il n'existait pas un morceau de code "parametre" qui permettrait de définir un vecteur de translation de la case d'origine code vers l'origine de la donnée d'une feuille quelconque ? Ou autrement, pourquoi les codes ne sont pas par methode definit par apport a une case relative...Meme s'il est evident que l'on essaie de tout placer en a1 et uniquement un champ par colonne, utiliser la premiere colonne ou 2 ou 3 pour faire des onglets de navigation c'est sympa...et du coup je galere a copier/coller votre travail extraordinaire à mes yeux et que je suis incapable de réaliser pour l'instant par moi même.
    Cordialement

    Posté par Helron, 08 février 2020 à 23:24 | | Répondre
    • Bonjour,
      Pour les 'cases relatives', il suffit d'utiliser l'instruction Offset.
      Avec ma config (PC-64bits+Office-2016-32bits) => pas de bug pour aller d'un mois à un autre.
      Si bug pour vous, il faut m'indiquer le message du bug + la ligne de code qui est signalée.
      Pierre

      Posté par tatiak, 09 février 2020 à 09:37 | | Répondre
  • Bonjour, J'avais une erreur 380 sur la ligne comboBox ( fleche de droite) cela été certainement lié à la version ( plus récente chez moi) et /ou Au fait que je cherche a placer votre tableau en en D1. En ajustant la version et en mettant en A1.. plus de bug. Merci.
    Cordialement

    Posté par Helron, 09 février 2020 à 22:46 | | Répondre
  • Edit : Orthographe : cela était ...

    Posté par Helron, 09 février 2020 à 22:47 | | Répondre
  • Re bonsoir,
    Ne vous tracassez pas pour l'erreur... J'en ai trouvé l'origine. Une erreur de ma part. Votre code va très bien ^^. J'ai voulu créer une liaison entre nos deux fichiers et créer une copie de votre agenda dans mon classeur. Seulement cela ne fonctionnait pas. Auriez vous la gentillesse de m'expliquer comment je pourrais intégrer votre code dans une nouvelle feuille en D1 ?

    Posté par Helron, 10 février 2020 à 00:03 | | Répondre
    • Si vous "déplacez" l'ensemble du planning, il est nécessaire de reprendre dans le code chaque référence aux différentes cellules en fonction du déplacement.

      Posté par tatiak, 10 février 2020 à 13:13 | | Répondre
  • Merci je vais prendre le temps de faire cela.

    Posté par Helron, 10 février 2020 à 23:21 | | Répondre
Nouveau commentaire