Création d’une tâche Outlook via Excel

Question

Je ne suis pas un professionnel du code et donc de VBA, d’où ma demande d’aide ! J’ai effectué un planning sur excel de mes projets avec les interventions et différentes tâches planifiés et je souhaiterai à J-7 du commencement de chaque intervention et tâche, créer une alerte Outlook. J’écris ce poste via mon téléphone, je ne peux donc vous joindre mon fichier mais je peux vous dire où se situe mes cases ayant les informations que je voudrai mettre dans l’alerte. Cellules B6:B35 : dates de chaque tâches Cellules C6:C35 : Intitulé de chaque interventions/tâches Cellules G6:G35 : type de tâche (intervention, facturation ...) Je peux vous joindre mon fichier si besoin quand je serai sur mon ordinateur ! Merci pour votre aide !...

thev · Answer

Ci-dessous exemple de code (avec ajout d'un commentaire pour ne pas recréer les tâches une deuxième fois) : Option Explicit Sub créa_tâche() Dim i As Integer Dim date_tâche As Range, lib_tâche As Range, type_tâche As Range Dim olApp As Object, tâche As Object Dim périodicité As Object Dim destinataire As String destinataire = "xxxxxxxx@yyyyyyy.zzz" Set olApp = CreateObject("Outlook.Application") For i = 6 To 35 '-- affectation des champs Set lib_tâche = Cells(i, "C") Set date_tâche = Cells(i, "B") Set type_tâche = Cells(i, "G") '-- génération d'une tâche selon conditions If lib_tâche.Value &lt;&gt; Empty _ And IsDate(date_tâche.Value) _ And lib_tâche.Comment Is Nothing Then '-- génération tâche avec rappel Set tâche = olApp.CreateItem(3) With tâche .Assign .Recipients.Add destinataire .Subject = type_tâche .Body = lib_tâche .StartDate = date_tâche.Value 'date début de la tâche .DueDate = DateAdd("ww", 1, .StartDate) 'échéance = date de début + 1 semaine .Status = 1 '0 = non démarré, 1 = en cours, 2 = terminé, 3 = en attente, 4 = différé '.DateCompleted 'date de fin force status à 2 .Importance = 1 '0 = basse, 1 = normal, 2 = haute '.contactNames .ReminderSet = True 'activation rappel .ReminderTime = .StartDate - 7 + TimeValue("9:00AM") 'date de rappel si activé Set périodicité = .GetRecurrencePattern() 'récurrence tâche par défaut toutes les semaines périodicité.NoEndDate = False 'fin de la tâche après répétitions périodicité.Occurrences = 1 'nombre de répétitions de la tâche .Save .Send End With '-- ajout commentaire date de création de la tâche lib_tâche.AddComment "tâche crée le " &amp; Date End If Next i Set olApp = Nothing End Sub...

thev · Answer

Pas d'erreur chez moi. C'est curieux que vous ayez une erreur lors de la création d'une instance de l'application Office Outlook 2016 Set olApp = CreateObject("Outlook.Application") (liaison dite tardive) D'autant plus que la bibliothèque correspondante est présente dans vos références. Du coup, vous pouvez essayer : Set olApp = Outlook.Application (liaison dite anticipée) Si ça ne fonctionne pas, vous avez un problème avec votre application Office Outlook 2016. Par ailleurs, si la création des tâches ne concerne que vous, vous pouvez simplifier le code ainsi Sub créa_tâche() Dim i As Integer Dim date_tâche As Range, lib_tâche As Range, type_tâche As Range Dim olApp As Object, tâche As Object Dim périodicité As Object Dim destinataire As String Set olApp = Outlook.Application For i = 6 To 35 '-- affectation des champs Set lib_tâche = Cells(i, "C") Set date_tâche = Cells(i, "B") Set type_tâche = Cells(i, "G") '-- génération d'une tâche selon conditions If lib_tâche.Value &lt;&gt; Empty _ And IsDate(date_tâche.Value) _ And lib_tâche.Comment Is Nothing Then '-- génération tâche avec rappel Set tâche = olApp.CreateItem(3) With tâche .Subject = type_tâche .Body = lib_tâche .StartDate = date_tâche.Value 'date début de la tâche .DueDate = DateAdd("ww", 1, .StartDate) 'échéance = date de début + 1 semaine .Status = 1 '0 = non démarré, 1 = en cours, 2 = terminé, 3 = en attente, 4 = différé '.DateCompleted 'date de fin force status à 2 .Importance = 1 '0 = basse, 1 = normal, 2 = haute '.contactNames .ReminderSet = True 'activation rappel .ReminderTime = .StartDate - 7 + TimeValue("9:00AM") 'date de rappel si activé Set périodicité = .GetRecurrencePattern() 'récurrence tâche par défaut toutes les semaines périodicité.NoEndDate = False 'fin de la tâche après répétitions périodicité.Occurrences = 1 'nombre de répétitions de la tâche .Save End With '-- ajout commentaire date de création de la tâche lib_tâche.AddComment "tâche crée le " &amp; Date End If Next i Set olApp = Nothing End Sub...

thev · Answer

L'objet du rappel est le même que celui de la tâche. Il faut donc corriger le code ainsi With tâche .Subject = lib_tâche .Body = type_tâche &amp; " " &amp; lib_tâche...