Récupération date, heure, minute, seconde d'Excel en VBS

Fermé
requiemvitae Messages postés 1 Date d'inscription mardi 9 août 2016 Statut Membre Dernière intervention 9 août 2016 - 9 août 2016 à 12:09
bonjour,

voilà mon soucis, j'ai une macro sur excel qui permet de crée un RDV sous outlook via excel, le problème, la date et saisie dans la macro via :
.Start = "15/08/2016 12:00:00"
fonctionne très bien ainsi
mais il vaudrai que que ce soit une date situer dans la feuille Excel " DEP " en cellule F12

le soucis viens donc d'ici et

.Start =  Sheets("DEP").Range("F12").Value 
ne fonctionne pas :( help !
merci d'avance !



With oAppointment
.Start = "15/08/2016 12:00:00"
.Duration = 60
.Subject = Sheets("DEP").Range("G12").Value





sinon voila le code complet si cela peut aider :


'procédure permettant d'ajouter un rdv dans un calendrier outlook
Sub AjoutRDVCalendrier()

'déclaration des variables
Dim oOutlook As Outlook.Application
Dim oAppointment As Outlook.AppointmentItem
Dim namespaceOutlook As Outlook.Namespace
Dim DossierCalendrier As Outlook.MAPIFolder


'gestion d'erreurs
On Error GoTo Err_Execution

'on crée ensuite les objets
Set oOutlook = CreateObject("Outlook.Application")
Set namespaceOutlook = oOutlook.GetNamespace("MAPI")

'définit le dossier calendrier
'GetDefaultFolder renvoit le calendrier du compte actif
Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)

'on crée un nouveau rendez-vous
Set oAppointment = DossierCalendrier.Items.Add

'on renseigne ensuite les principaux paramètres
With oAppointment
' .Start = "15/08/2016 12:00:00"
.Start = Sheets("DEP").Range("F12").Value
.Duration = 60 'durée de rdv, en minutes
.Subject = Sheets("DEP").Range("G12").Value
.Body = "" 'corps du texte de la réunion
.Location = "" 'Lieu du rdv
'on sauvegarde et ferme
.Save
.Close (olSave)
End With

'Libération des variables.
Set oAppointment = Nothing
Set oOutlook = Nothing

Fin_Execution:
Exit Sub
Err_Execution:
MsgBox Err.Description, vbExclamation
Resume Fin_Execution
End Sub