Exporter de excel vers outlook

[J.-P.]

Bonjour à tous,
Voici mon problème que je n'arrive pas à résoudre.
J'aimerais depuis un fichier Excel exporter ces données dans un calendrier Outlook 2013
Je vous joint le fichier.
Merci de votre aide
Salutations
J.-P.

 

[fredl]

Re : Exporter de excel vers outlook

Bonjour,
avec ça, tu devrais t'en sortir :

Public Sub Add_Outlook_()
Dim OutlookApp As Object
Const olMailItem = 0
Const olAppointmentItem = 1
Const olContactItem = 2
Const olTaskItem = 3
Const olJournalItem = 4
Const olNoteItem = 5
Const olPostItem = 6
Const olPink = 2
Set OutlookApp = CreateObject("Outlook.Application")
With OutlookApp.CreateItem(olAppointmentItem)
.MeetingStatus = olMeeting
.Start = Date & " 2:00 pm"
.End = Date & " 3:00 pm"
'.Duration = 30 'minutes
.Subject = "Meet with staff re Outlook object model."
.Location = "piece xx"
.Save
End With
End Sub