Excel à Outlook Rendez vous
Bonjour tout le monde,
J'ai un petit problème, j'ai mis un échantillon de mon document en pièce jointe dont j'ai une macro pour envoyé mes rendez-vous de excel dans mon calendrier Outlook:
Sub AjoutRV()
Dim DLig As Long, Lig As Long
Dim OutObj As Object, OutAppt As Object
Dim DateRdv As Date, FlgRdv As Boolean
' Créer une instance d'Outlook
Set OutObj = CreateObject("outlook.application")
' Avec la feuille
With Sheets("Alex")
DLig = .Range("B" & Rows.Count).End(xlUp).Row
' Pour chaque ligne
For Lig = 2 To DLig
' Si une date de relance existe
If .Range("L" & Lig) <> "" Then
' Si un RDV n'a pas déjà été créé
If .Range("N" & Lig) <> "" Then
' Si le commentaire à changé
If .Range("N" & Lig).Comment.Text <> .Range("E" & Lig).Value Then
FlgRdv = True
Else
' Sinon le commentaire n'a pas changé = pas de RDV
FlgRdv = False
End If
Else
' Sinon, pas de RDV déjà créé
FlgRdv = True
End If
Else
' Sinon, pas de date de relance
FlgRdv = False
End If
' Si le FLAG est à vrai on créé le RDV
If FlgRdv Then
DateRdv = Range("L" & Lig)
Set OutAppt = OutObj.CreateItem(1)
With OutAppt
.Subject = "Rappeler " & Sheets("Alex").Range("B" & Lig) & " pour " & Sheets("Alex").Range("E" & Lig)
.Start = DateRdv & " 08:00"
.Duration = 60
.ReminderSet = True
.Save
End With
' Créer le commentaire et inscrire Oui
On Error Resume Next
.Range("N" & Lig).Comment.Delete
.Range("N" & Lig).AddComment Text:=.Range("E" & Lig).Value
.Range("N" & Lig) = "Oui"
On Error GoTo 0
End If
Next Lig
End With
Set OutAppt = Nothing
End Sub
Et j'ai un petit bug, car lorsque je change ma date de relance pour un client, je ne peux pas renvoyer a outlook ma relance, car ca me fait un message d'erreur, puis si j'efface tout les petit oui sur les côté sa fonctionne, mais sa me fait des doublons. Comment je peux écrire ma condition pour ne plus que sa arrive?
Merci,
Bonjour,
J'ai déjà tricoté quelque chose de semblable.
Je n'ai pas trouvé comment modifier un rendez-vous.
J'ai compensé en le supprimant et le réinscrivant avec la modif.
Espérant que cela puisse t'aider.
Gelinotte
Merci,
J'espère que quelqu'un aura une réponse, car j'ai une cinquantaine de rendez vous et je ne veux pas avoir à supprimer à chaque fois. Cela viens long