j'ai effectuer quelques modification pour rendre le tout plus "user friendly"
j'ai intégrer dans le code de la feuille :
Private Sub Worksheet_change(ByVal Target As Range)
Dim ligvid As Long
If Intersect(Target, Range("r4:r133")) Is Nothing Or Target.Count > 1 Then: Exit Sub
msg = "Voulez vous créé une tache outlook ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "évenement outlook"
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then
Outlook_Appointment
End If
End Sub
et mon module est le suivant:
Sub Outlook_Appointment()
Dim olApp As outlook.Application
Dim olAppItem As outlook.AppointmentItem
Set olApp = GetObject("", "Outlook.Application")
Set olAppItem = olApp.CreateItem(olAppointmentItem)
With olAppItem
.Start = Range("n" & Target.Row).Value
.Subject = Range("c" & Target.Row).Value
.Duration = 1
.ReminderSet = True
.Save
End With
End Sub
et la je fait ma modif dans ma plage R4:r133, la boite de dialogue apparait, je clique oui et PAF! erreur 424 lié a la ligne:
.Start = Range("n" & Target.Row).Value
je ne comprend pas trop ce qui cause cette erreur,
bien aimable a vous de me donner un coup de main!
Merci