Re : de Outlook vers Excel...
Bonjour
Je reviens vers vous parce que j'ai trouvé quelque chose qui pourrait peut être faire mon affaire.
Le code suivant trouvé dans les archives me permet d'importer les RV outlook depuis Excel. Le petit souci c'est qu'il les importe tous... Serait il possible d'ajouter une combo par exemple pour au moins choisir le mois que l'on souhaite importer ?
Sub LireRDV()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Dim OlApp As New Outlook.Application
Dim OlMapi As Outlook.NameSpace
Dim OlFolder As Outlook.MAPIFolder
Dim OlItems As Outlook.Items
Dim OlAppointment As Outlook.AppointmentItem
Dim i As Byte
Set OlMapi = OlApp.GetNamespace("MAPI")
Set OlFolder = OlMapi.GetDefaultFolder(olFolderCalendar)
Set OlItems = OlFolder.Items
i = 7
For Each OlAppointment In OlItems
With OlAppointment
i = i + 1
Cells(i, 1) = .Subject 'sujet
Cells(i, 2) = .Start 'début
Cells(i, 3) = .End 'fin
Cells(i, 4) = .RequiredAttendees 'convoqués
Cells(i, 5) = .OptionalAttendees 'invités
Cells(i, 6) = .Location 'lieu
End With
Next OlAppointment
End Sub
Merci à vous
Bon Dimanche
Pierre