VBA - Invitation Outlook via excel - Date et heure

[Arnaud81]

Bonjour,

Dans une macro pour créer une invitation outlook, je souhaite mettre en dur dans la macro ma date et heure de réunion.

J'ai un bout de macro avec le . start :

".Start = Now + 1"

Comment changer ce "now + 1" en "30/04/2015 16h30" ?

Merci d'avance

 

[MJ13]

Re : VBA - Invitation Outlook via excel - Date et heure

Bonjour Arnaud

Ce serait bien de fournir toute la macro, non 🙂.

 

[Arnaud81]

Re : VBA - Invitation Outlook via excel - Date et heure

Et voilà... Je galère juste pour indiquer la date et l'heure (Sinon, je les ai dans deux colonnes mais je n'arrive à placer que la date avec range("B3") (l'heure est en C3)

Sub Invitcoord1()
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Const olAppointmentItem = 1
Const olMeeting = 1

Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olMeeting) 'olAppointmentItem
With objAppt
.Display
.Subject = "Coordination"
.Start = Now + 1
.End = DateAdd("n", 90, .Start)
.Location = Range("E3")
.BusyStatus = olBusy
.Categories = ""
.ReminderSet = True
.ReminderMinutesBeforeStart = 30

' make it a meeting request
.MeetingStatus = olMeeting
.RequiredAttendees = Range("B19") 'participant obligatoire
.OptionalAttendees = Range("B20") 'participants optionnel à la réunion

End With

Set objAppt = Nothing
Set objOL = Nothing
End Sub

 

[MJ13]

Re : VBA - Invitation Outlook via excel - Date et heure

Re

J'aurais bien vu par exemple:

range("B3").value+range("C3").value

 

[Arnaud81]

Re : VBA - Invitation Outlook via excel - Date et heure

Re

Erreur 13 - Incompatibilité de type

Une autre idée ?

 

[MJ13]

Re : VBA - Invitation Outlook via excel - Date et heure

Re

Non 😕.

 

[MJ13]

Re : VBA - Invitation Outlook via excel - Date et heure

Re

Sinon, voir peut-être ici:

Envoi de rendez-vous Outlook avec des données Excel - Microsoft Community

 

[Arnaud81]

Re : VBA - Invitation Outlook via excel - Date et heure

Bonjour,

J'ai eu une réponse alors je poste la solution


.Start = "12/04/2015" & " 15:45" ' "12/04/2015 15:45"

Merci beaucoup

 

[MJ13]

Re : VBA - Invitation Outlook via excel - Date et heure

Re

Merci 🙂.

Et ce code, fonctionne t'il?

.Start = CDate("12/04/2015 15:45")

 

[Arnaud81]

Re : VBA - Invitation Outlook via excel - Date et heure

Re,

Cela fonctionne également!

Merci 🙂