Lier des dates sous Excel dans Outlook (création d'évènement)
Bonjour,
J'utilise un fichier excel pour suivre et planifier des maintenances sur des équipements.
En complément je créé chaque maintenance dans le calendrier outlook pour une meilleur visibilité (avec d'autre visite).
Pour éviter ce doublon je souhaiterais savoir s'il est possible de lié un fichier excel avec un calendrier outlook.
Objectif:
- Excel: Equipement 1: maintenance le 6/6/2016
- Outlook: création automatique d'un Evènement
- Si Maj de la date dans Excel, Maj de la date dans Outlook.
Je suis tombé sur un code mais je ne sais pas s'il peut répondre à mon besoin.
Je ne parviens pas à le tester...
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Sub NouveauRDV_Calendrier()
'Nécessite d'activer la référence "Microsoft Outlook xx.x Object Library"
Dim OkApp As New Outlook.Application
Dim Rdv As Outlook.AppointmentItem
Set Rdv = OkApp.CreateItem(olAppointmentItem)
With Rdv
.MeetingStatus = olMeeting
.Subject = "le site DVP"
.Body = "...description ...."
.Location = "sur le forum Office"
.Start = #10/20/2007 9:30:00 PM# ' Attention : format mois/jours/année
.Duration = 30 'minutes
.Categories = "Amis"
.Save
End With
Set OkApp = Nothing
End Sub |
Merci d'avance pour vos pistes et votre aide.
Crdt
