Interfaçage Excel vers Outlook

Résolu
Bonjour le forum !

Je rame pas mal pour une nouvelle fonction qui permettrait de créer automatiquement des Rendez-vous Outlook en partant d'un fichier Excel.

Dans Excel, j'ai créé toutes les rubriques utiles, elles correspondent aux champs d'un Rendez-vous Outlook.

J'ai trouvé des macros VB, mais je ne comprends pas pourquoi elles me créent un mail plutôt qu'un RV. J'ai également du mal à indiquer à la macro où elle doit récupérer les infos.

Je mets les macros dans un module.

Voici mon fichier exemple : https://www.cjoint.com/c/ELyqQn5Lbyz

Par avance merci pour vos idées et votre aide !

3 réponses

  1. Contributeur
    Bonjour,

    Voici un exemple:

    http://www.cjoint.com/c/ELzi3uVpUpQ
    0
    1. Bonjour Le Pivert

      Merci bien pour ton aide.
      J'ai passé une bonne partie de la journée sur ton fichier, que j'ai adapté.
      Cela fonctionne plutôt bien.

      Mais je bloque pour préremplir mon UF en fonction du contenu de mon tableau, selon la ligne active.
      J'en suis là :
      Textdate.Value = ActiveCell.Offset(0, 1).Value

      Mais je voudrais :
      Textdate.Value = ActiveCell.Column"G".Value
      (valeur de la cellule de la colonne G de la ligne active.

      D'avance merci pour ce nouveau coup de pouce !
      0
      1. Edit : résolu en commençant la macro par :
        Range("B" & ActiveCell.Row).Select
        A plus j'aurais d'autres questions ...
        merci !
        0
    2. Salut

      Dans le fichier fourni par Le Pivert, pour info il y a une commande manquante : en effet, sans elle, les rappels de RV Outlook ne se fixent pas. Il faut donc ajouter :
      .ReminderMinutesBeforeStart = rappel '60
      .ReminderSet = True


      Par contre je suis toujours intéressé par la commande permettant de récupérer la cellule de la colonne G de la ligne active :
      Textdate.Value = ActiveCell.Column"G".Value
      Si quelqu'un a la bonne synthaxe, merci !
      0
      1. Contributeur
        Bonjour,

        Pour la syntaxe, ce pourrait être :
        Textdate.Value = cells(ActiveCell.row,"G").Value 


        Bon Noël à toi et ta famille.
        0
      2. Salut G !

        Bon Noël à toi et aux tiens aussi !
        Et merci pour la syntaxe, j'avais essayé ça, mais en mettant le "G" avant le ActiveCell !

        Au plaisir de te retrouver ici !
        0