Bonjour à tous,
J'ai construit un tableau de prises de RDV de Outlook.
Je bute sur mon dernier souci, il ne prend en compte que la première ligne de RDV et ne passe pas aux autres.
Je ne sais pas si je suis assez claire mais il me crée bien un RDV pour H7 mais rien pour H8, 9, 10...
Voici mon code :
Voyez-vous d'où peut venir le souci ?
D'avance merci pour votre aide.
Lucie
J'ai construit un tableau de prises de RDV de Outlook.
Je bute sur mon dernier souci, il ne prend en compte que la première ligne de RDV et ne passe pas aux autres.
Je ne sais pas si je suis assez claire mais il me crée bien un RDV pour H7 mais rien pour H8, 9, 10...
Voici mon code :
Code:
Sub NouveauRDV_Calendrier()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Sheets("OUTIL STORE LOCATOR").Select
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem
Dim Cell As Range
For Each Cell In Range("H7:H" & Range("H22").End(xlUp).Row)
If IsEmpty(Range("P" & Cell.Row)) Then
Set MyItem = myOlApp.CreateItem(olAppointmentItem)
With MyItem
.MeetingStatus = olNonMeeting
.Subject = Cell
.Start = Cell.Offset(0, 2) ' Attention : format mm/dd/yy
.Duration = Cell.Offset(0, 3) 'minutes
.Location = Cell.Offset(0, 4)
.Save
End With
Range("P" & Cell.Row) = "ok"
End If
Set MyItem = Nothing
Next Cell
End Sub
Voyez-vous d'où peut venir le souci ?
D'avance merci pour votre aide.
Lucie
Dernière édition: