Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA - Invitation Outlook via excel - Date et heure

  • Initiateur de la discussion Initiateur de la discussion Arnaud81
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Arnaud81

XLDnaute Junior
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…