Sub TACHETEST()
' ------------ Déclaration des variables --------------
'Appeler l'application Outlook et générer une tâche
Dim myOlApp As Object 'Outlook.Application
Dim myItem As Object 'Outlook.TaskItem
Dim olTaskItem As Object
Dim olTaskInProgress, olImportanceHigh As Object
Dim I As Integer
Set myOlApp = CreateObject("Outlook.Application")
' Choix de la zone de sélection
' i=1 --> numéro de la ligne et ",1" --> numéro de la colonne
For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row ' la ligne 1 étant l'entête
If Cells(I, 8) = "" Then ' si vide pas d'action, donc = à vide l'action s'exécute
' Si la colonne 8 (FLAG) n'est pas remplie alors on crée la tâche Outlook
'Déplacement de la ligne ci-dessous, sous If Cells(i, 8) etc...
Set myItem = myOlApp.CreateItem(3)
' Fomalisation de la tâche avec tous les paramétres
With myItem
.Status = olTaskInProgress
.Importance = 2
.DueDate = Cells(I, 6).Value 'Date relance
.Body = Cells(I, 4).Value 'Corps de la Relance
.TotalWork = 40
.ActualWork = 20
.Subject = "DOSSIER - " & Cells(I, 1).Value & " - " & Cells(I, 2).Value & " - " & Cells(I, 3).Value 'Sujet de la tâche
.Assign
' le nom doit exister dans le dossier d'adresses
.Recipients.Add ("SEBASTIEN GADEN")
.Save
'.Send
End With
'Déplacement de la ligne ci-dessous, remontée au dessus de End If
Cells(I, 8) = "OUI"
End If
Next I
End Sub