Erreur macro envoie de tâche excel vers Outlook

[d.deneys]

Bonsoir,
J'ai un soucis avec une macro qui me permet d'envoyé des tâches d'excel vers Outlook.
Il arrive parfois que les données ce recopient d'une tache a l'autre au lieu d etre atribuer par la bonne ligne, il reprend les données du autre ligne et les affectes a d'autres.

Voici mon code

Sub ExportToOutlook()

Dim OL As Outlook.Application
Dim olAppt As TaskItem
Dim NS As Outlook.Namespace
Dim colItems As Outlook.Items
Dim olApptSearch As TaskItem
Dim r As Long, sSubject As String, sBody As String
Dim dStartDate As Date, dDueDate As Date
Dim sSearch As String, bOLOpen As Boolean

On Error Resume Next
Set OL = GetObject(, "Outlook.Application")
bOLOpen = True
If OL Is Nothing Then
Set OL = CreateObject("Outlook.Application")
bOLOpen = False
End If
Set NS = OL.GetNamespace("MAPI")
Set colItems = NS.GetDefaultFolder(olFolderTasks).Items
For r = 12 To 600 'ici adaptes selon la configuration de ton fichier
sSubject = Cells(r, "F").Value
dStartDate = Cells(r, "P").Value
sBody = "Priorité: " + Cells(r, "E").Value & Chr(10) & "Secteur de pose: " + Cells(r, "W").Value & Chr(10) _
        & "Ville: " + Cells(r, "Y").Value & Chr(10) & "Tel 1: " + Cells(r, "U").Value & Chr(10) & "Tel 2: " + Cells(r, "V").Value & Chr(10) & "Description: " + Cells(r, "AX").Value & Chr(10)
sCategories = Cells(r, "AY").Value
sSearch = "[Subject] = " & sQuote(sSubject)
Set olApptSearch = colItems.Find(sSearch)
If olApptSearch Is Nothing Then
Set olAppt = OL.CreateItem(olTaskItem)
olAppt.Subject = sSubject
olAppt.StartDate = dStartDate
olAppt.DueDate = dStartDate + 100 'ici la modif
olAppt.Body = sBody
olAppt.Categories = sCategories
olAppt.Close olSave
End If
Next r
If bOLOpen = False Then OL.Quit
End Sub

Function sQuote(sTextToQuote)
sQuote = Chr(34) & sTextToQuote & Chr(34)
End Function

voici un screen, en fait l'objet lui change bien mais le secteur, la ville etc restent les memes, il n y a que 2 taches dans la liste, parfois j'en ai plus et ca ne me le fait pas pour toutes ..



Merci d'avance

 

[Staple1600]

Re : Erreur macro envoie de tâche excel vers Outlook

Bonsoir à tous

d.deneys
On aurait pu rester dans ton premier fil, où j'avais poster ExportToOutlook, non?
https://www.excel-downloads.com/threads/import-tache-outlook-depuis-excel.211744/

Si j'étais toi je préférerai le & au + et .Text à .Value

 

[d.deneys]

Re : Erreur macro envoie de tâche excel vers Outlook

merci beaucoup je vais tester ca, en tout cas pour tout ce qui est des export .csv qui viennent de Winpro pas de soucis ca marche a merveille, ca bug juste pour ce qui vient du gestionnaire informatique (les demandes de SAV). Je teste ca tantot et je revient vers toi

 

[d.deneys]

Re : Erreur macro envoie de tâche excel vers Outlook

celà fonctionne a merveille a parement. Merci encore