Merci Bruno M45,
Ce n'est pas ce que je recherche.
Je voudrais adapter la macro suivante qui gère bien la création d'un événement dans outlook, pour qu'elle fasse la même chose dans Google Agenda :
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)
' If IsEmpty(Range("H" & Cell.Row)) Then
For Each Cell In Range("A8:A" & Range("A22").End(xlUp).Row)
If IsEmpty(Range("H" & Cell.Row)) Then
Set MyItem = myOlApp.CreateItem(olAppointmentItem)
With MyItem
.MeetingStatus = olNonMeeting
.Subject = Cell
.Start = Cell.Offset(0, 1) ' Attention : format mm/dd/yy
.Duration = Cell.Offset(0, 2) 'minutes
.Location = Cell.Offset(0, 3)
.Save
End With
Range("H" & Cell.Row) = "X" 'Au lieu de X on peut mettre n'importe quoi, la date de création du rendez-vous...
End If
Set MyItem = Nothing
Next Cell
End Sub
Dans l'attente d'une solution je vous souhaite une bonne journée