Bonjour,
j'ai une macro qui crée le rendez-vous a partir d'un tableau excel et qui fonctionne très bien mais le problème a chaque fois que la macro et exécuté il recrée les mêmes rendez-vous ce qui fait que j'ai plusieurs fois le même rendez-vous
je ne c'est pas si il y a moyen de crée une condition qui règle le problème.
je vous la macro que j'ai:
Sub NouveauRDV_Calendrier()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem
Dim Cell As Range
For Each Cell In Range("A8:A" & Range("A22").End(xlUp).Row)
Set MyItem = myOlApp.CreateItem(olAppointmentItem)
With MyItem
.MeetingStatus = olNonMeeting
.Subject = Cell
.Start = Cell.Offset(0, 1)
.Duration = Cell.Offset(0, 2) 'minutes
.Location = Cell.Offset(0, 3)
.Body = Cell.Offset(0, 4)
.Save
End With
Set MyItem = Nothing
Next Cell
End Sub
Merci pour votre aide
j'ai une macro qui crée le rendez-vous a partir d'un tableau excel et qui fonctionne très bien mais le problème a chaque fois que la macro et exécuté il recrée les mêmes rendez-vous ce qui fait que j'ai plusieurs fois le même rendez-vous
je ne c'est pas si il y a moyen de crée une condition qui règle le problème.
je vous la macro que j'ai:
Sub NouveauRDV_Calendrier()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem
Dim Cell As Range
For Each Cell In Range("A8:A" & Range("A22").End(xlUp).Row)
Set MyItem = myOlApp.CreateItem(olAppointmentItem)
With MyItem
.MeetingStatus = olNonMeeting
.Subject = Cell
.Start = Cell.Offset(0, 1)
.Duration = Cell.Offset(0, 2) 'minutes
.Location = Cell.Offset(0, 3)
.Body = Cell.Offset(0, 4)
.Save
End With
Set MyItem = Nothing
Next Cell
End Sub
Merci pour votre aide