GADENSEB
XLDnaute Impliqué
Bonjour le Forum,
Je crée un fichier excel pour générer des tâches sous Outlook
J'ai un message d'erreur de variable non définie sur olTaskInProgress
Aprés recherche sur internet ou forum cette variable n'ais jamais définie....
Je vois pas où cela choque.....
QQn à une idée ?
Bon Dimanche
Seb
Je crée un fichier excel pour générer des tâches sous Outlook
J'ai un message d'erreur de variable non définie sur olTaskInProgress
Aprés recherche sur internet ou forum cette variable n'ais jamais définie....
Je vois pas où cela choque.....
QQn à une idée ?
Bon Dimanche
Seb
Code:
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
'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 = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(I, 8) <> "" Then
' 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(olTaskItem)
' Fomalisation de la tâche avec tous les paramétres
With myItem
.Status = olTaskInProgress
.Importance = olImportanceHigh
.DueDate = Cells(I, 6) 'Date relance
.Body = Cells(I, 4) 'Corps de la Relance
.TotalWork = 40
.ActualWork = 20
.Subject = "DOSSIER - " & Cells(I, 1) & " - " & Cells(I, 2) & " - " & Cells(I, 3) '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