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