Bonjour,
Voici mon soucis : je voudrait récupérer une donnée dans une cellule excel pour la mettre dans l'agenda d'outlook. J'ai fait une petite macro et ne comprends pas pourquoi elle ne marche pas !
Quelqu'un pourrait me venir en aide ?
Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub test2() Dim XLFichier As Workbook Dim olApp As Outlook.Application Dim objApt As AppointmentItem Set XLFichier = Workbooks.Open("X:\Administratif\PLANNING_\Planning FCS 2010.xls") Set olApp = Outlook.Application Set objApt = olApp.CreateItem(olAppointmentItem) objApt.Start = "05/01/2010" objApt.ReminderSet = False objApt.Subject = XLFichier.Worksheets(1).Range("j15").Value objApt.AllDayEvent = "True" objApt.Save Set XLFichier = Nothing End Sub
Partager