Re : Remplir modele outlook via donnees excel 2010
Bonsoir,
Je pense que ma demande n'est pas réalisable.
J'ai donc fait autrement. Cependant j'aimerai incorporé dans le corps un lien hypertexte d'un fichier qui se trouve sur ma clef USB. Je me retrouve avec un autre problème car j'ai un message, outre le message de sécurité 😡, qui me dit que le fichier est introuvable alors qu'il existe !!!
Pouvez-vous m'aider ???
D'avance Merci.
Kelly
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, 19) = "" Then ' si vide pas d'action, donc = à vide l'action s'exécute
' Si la colonne 19 (Rappel) n'est pas remplie alors on crée la tâche Outlook
'Déplacement de la ligne ci-dessous, sous If Cells(i, 19) 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, 15).Value - 5 'Date rappel
.StartDate = Cells(I, 15).Value - 10 'Date de début
.Attachments.Add ("E:\Fiches\" & Cells(I, 2).Value & ".docx")
.Body = "\\E:\SUIVI%20CLIENTS\" & Cells(I, 2).Value & ".xlsx" & Chr(13) & Chr(13) & "CLIENT : " & Cells(I, 3).Value & Chr(13) & Chr(13) & "TRAVAUX : " & Cells(I, 4).Value & Chr(13) & "DOSSIER : " & Cells(I, 2).Value & Chr(13) & Chr(13) & "COMMENTAIRES : " & Chr(13) & Chr(13) & Chr(13) & Chr(13) 'Corps de la Relance
.Subject = "Dossier " & Cells(I, 2).Value 'Sujet de la tâche
.ReminderSet = True
.Save
'.Send
End With
'Déplacement de la ligne ci-dessous, remontée au-dessus de End If
Cells(I, 19) = "OK"
End If
Next I
End Sub
