Exporter automatiquement des dates depuis Excel vers Outlook

Question

Bonjour,

Devant gérer plusieurs "événements" à la fois, j'ai créé sur Excel un tableau de suivi des tâches à réaliser pour chacun de ces événements. Afin de construire automatiquement mon retroplanning, une date de réalisation est calculée automatiquement pour chaque tâche à partir de la date de l'événement.

Aujourd'hui j'aimerais exporter l'ensemble de ces dates dans Outlook afin de ne pas avoir à ouvrir et balayer mon Excel tous les matins...

Idéalement, j'aimerais avoir comme intitulé de chaque RV : "nom de la tâche correspondante (colonne B) + titre événement (ligne 4)"

A noter que :

• une fois la tâche réalisée, je note "OK + date" dans la case concernée
• certaines ne sont pas toujours à réaliser, j’inscris alors "non" dans la case concernée

Quelqu'un saurait-il m'aider ?

Je ne maitrise pas bien les macros et autres... si avez une idée, merci de faire preuve de pédagogie ! :) :)

Par avance merci,

Louise

Answer 1

Bonjour,

Voici la macro :

Sub test()

    Dim OlApp As Object, I As Object, Plage As Range, C As Range, Ligne As Long, Col As Integer

    Dim ObjTask As Object

    Col = Cells(4, 3).End(xlToRight).Column

    Ligne = Cells(Rows.Count, 2).End(xlUp).Row

    Set OlApp = CreateObject("OutLook.Application")

    Set Plage = Range(Cells(9, 3), Cells(Ligne, Col))

    For Each C In Plage

        If IsDate(C) And C.Value > Date Then

            Set ObjTask = OlApp.CreateItem(3)

            With ObjTask

                .Subject = Cells(C.Row, 2) & "  " & Cells(4, C.Column)

                .Body = ""

                .ReminderTime = C.Value + #8:00:00 PM#

                .ReminderSet = True

                .Display 'mettre en commentaire après mise au point

                .Save

            End With

        End If

    Next C

End Sub

Pour chaque tâche ajoutée, la tâche s'affiche. Quand tu estimeras que la macro sera au point, tu mettras une apostrophe devant la ligne en gras pou éviter l'affichage.

https://we.tl/ucFLgxM5ej

Daniel

Answer 2

Bonjour,

Commence par sélectionner la plage des cellules à traiter et exécute :

Sub test() <br><br>    Dim OlApp As Object, I As Object, Plage As Range, C As Range, Ligne As Long, Col As Integer <br><br>    Dim ObjTask As Object <br><br>    Col = Cells(4, 3).End(xlToRight).Column <br><br>    Ligne = Cells(Rows.Count, 2).End(xlUp).Row <br><br>    Set OlApp = CreateObject("OutLook.Application") <br><br>    Set Plage = Selection <br><br>    For Each C In Plage <br><br>        If IsDate(C) And C.Value > Date Then <br><br>            Set ObjTask = OlApp.CreateItem(1) <br><br>            With ObjTask <br><br>                .Subject = Cells(C.Row, 2) & "  " & Cells(4, C.Column) <br><br>                .Body = "" <br><br>                .Start = C.Value <br><br>                .reminderminutesbeforestart = 480 <br><br>                .Display 'mettre en commentaire après mise au point <br><br>                .Save <br><br>            End With <br><br>        End If <br><br>    Next C <br><br>End Sub

Daniel

Answer 3

Bonjour,

Merci pour cette réponse rapide et efficace ! La macro fonctionne , c'est super !

J'avais plus dans l'idée de faire des rendez-vous mais je devrais pouvoir m'habituer aux "tâches" de Outlook...

Seul souci en revanche : les dates passées ne s'affichent pas... ce qui est très embêtant car ce sont les plus urgentes ! Auriez-vous une solution par hasard ?

Merci encore pour votre réponse !

Louise

Answer 4

Bonjour,

Le fichier est disponible à partir du lien suivant : https://we.tl/JMe0WWRk8V

Merci !

Louise

Answer 5

Bonjour,

Ca serait plus facile si tu pouvais mettre le classeur sur OneDrive ou sur un autre site de partage et poster ici le lien correspondant.

Cordialement.

Daniel