Import RDV depuis Outlook vers Classeur

[al2433]

Import RDV Outlook en fonction de l'heure via VBA vers Classeur

Bonjour le forum et longue vie.

J'aimerais savoir si il est possible d'importer un RDV (à heure fixe) du calendrier Outlook vers une feuille excel ?😕

En effet afin de faire mon relevé kilometrique pour le boulot (impots), je pensai noter sur outlook, via le calendrier, mon Kilométrage de départ et d' arrivée à une heure fixe (par exemple 6 h et 20h) et ceci seulement les jours où j'utilise ma voiture pour le boulot.

Puis importer ces RDV (le kilometrage noté) vers un classeur excel via une macro ou autre pour automatiser mon calcul des frais.🙄

Merci d'avance de votre aide😱 😱

 

[al2433]

Re : Import RDV depuis Outlook vers Classeur

re
voici un code permettant d'afficher le sujet d'un RDV en fonction d'une plage horaire, donc de le récuperer dans une cellule.

         Sub aze()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
tdystart = Format(Date, "Short Date") & " 00:01 AM"
tdyend = Format(Date, "Short Date") & " 11:59 PM"
Set myAppointments = myNameSpace.GetDefaultFolder _
    (olFolderCalendar).Items
Set currentAppointment = myAppointments.Find("[Start] >= """ & _
    tdystart & """ and [Start] <= """ & tdyend & """")
While TypeName(currentAppointment) <> "Nothing"
    MsgBox currentAppointment.Subject
    Set currentAppointment = myAppointments.FindNext
Wend

End Sub

Il fonctionne tres bien sous outlook mais pas sous Excel :
Erreur sur la ligne : Set myAppointments = myNameSpace.GetDefaultFolder _
(olFolderCalendar).Items
avec le message "Une ou plusieur valeurs de paramètres ne sont pas valides".

Une idée ? (ou plusieurs😀 😀 )

Version Outlook et Excel 2000 et complément installé (transfert de RDV Excel vers Outlook OK)

 

[al2433]

Re : Import RDV depuis Outlook vers Classeur

Le code suivant affiche bien les sujets des RDV OUtlook en fonction d'une plage horaire defini.
Le bug venait du fait que je n'avais pas installé :"Microsoft Outlook 11.0 Object Library" pour mon classeur.

Sub aze()
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
'Définition de la plage horaire
tdystart = Format(Date, "Short Date") & " 06:00 AM"
tdyend = Format(Date, "Short Date") & " 07:00 AM"
Set myAppointments = myNameSpace.GetDefaultFolder.Items(olFolderCalendar).Items
Set currentAppointment = myAppointments.Find("[Start] >= """ & _
    tdystart & """ and [Start] <= """ & tdyend & """")
While TypeName(currentAppointment) <> "Nothing"
    MsgBox currentAppointment.Subject
    Set currentAppointment = myAppointments.FindNext
Wend

End Sub

Maintenant deux étapes :
- Importer les sujets des RDV dans un cellule
- Pouvoir choisir une plage temps plus importante (sur un mois par exemple, le code est sur un jour).

Toujours en atttente de vos commentaires........A suivre............

 

[al2433]

Re : Import RDV depuis Outlook vers Classeur

🙂
ça avance petit à petit

ci joint un exemple de classeur:
- un bouton pour simuler un compteur de départ dans outlook
- un bouton pour simuler un compteur d'arrivée dans outlook
(saisie qui sera faite via PDA dans le calendrier outlook normalement)
- un bouton d'import des infos outlook pour calculer les km.

mon pb : 😕 😕 😕 , ce code ne marche que pour un jour, je ne trouve pas comment lui faire passer tout mon agenda ou une plage (mois ou autre) et recuperer tous les subject des RDV utilisés pour mes relevés compteur.

Un coup de main ??