organiser réunion journée entière

Le
martine.leport
Bonjour,
J'ai créé une macro sous vba excel 2010 pour créer des réunions. Je=
voudrais connaitre le code pour indiquer que cette réunion est journé=
e entière.
Quelqu'un peut-il m'aider ?
merci
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
martine.leport
Le #26388991
Le jeudi 11 février 2016 10:15:38 UTC+1, a écrit  :
Bonjour,
J'ai créé une macro sous vba excel 2010 pour créer des réunions. Je voudrais connaitre le code pour indiquer que cette réunion est journ ée entière.
Quelqu'un peut-il m'aider ?
merci



Voici mon code :
Sub CréationRéunion()
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Dim nomCatégorie As String
Const olAppointmentItem = 1
Const olMeeting = 1
'teste si la date est antérieure à aujourd'hui alors met la réunion l e lendemain
If dateValidité < Date Then dateValidité = Date + 1
'teste si jour réunion est samedi ou dimanche alors reporte au lundi
If Weekday(dateValidité) = 1 Then dateValidité = dateValidité + 1
If Weekday(dateValidité) = 7 Then dateValidité = dateValidité + 2
Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olMeeting) 'olAppointmentItem
With objAppt
.Subject = vObjet
.Start = dateValidité
.End = DateAdd("h", 1, .Start)
.Location = "Lieu de la réunion à définir !"
.Body = vMessage
.BusyStatus = olFree
.Categories = 3
.ReminderSet = True
.ReminderMinutesBeforeStart = 21600 ' rappel 15 jours avant
.ReminderOverrideDefault = True
.ReminderPlaySound = True 'réveil en fanfare
.Importance = olImportanceHigh
.MeetingStatus = olMeeting
.RequiredAttendees = adressesMail 'participant obligatoire
.Send
End With
Set objAppt = Nothing
Set objOL = Nothing
End Sub
MichD
Le #26389026
Bonjour,

Tu peux définir la date et l'heure du début et la date et l'heure de la
fin en utilisant ces 2 propriétés :

With objAppt
.Subject = vObjet
.Start = #2/2/2003 3:00:00 PM#
.End = #2/2/2003 4:00:00 PM#

'.../etc

End With

En VBA, lorsque l'on inscrit une date entre "dièses (#), la date est au
format américain. le premier 2 indique le mois, le deuxième 2 le jour et
suivi de l'année. À toi d'indiquer l'heure du début de ta journée et
l'heure de la fin de celle-ci.

N.B. Lorsque l'on programme et que l'on n'est pas très familier avec les
propriétés et méthodes des objets du modèle objet de l'application, il
est préférable de charger la bibliothèque. Dans ce cas :
"Microsoft Outlook 16.0 Object Library" et de faire une déclaration des
objets comme ceci :
Dim objOL As Outlook.Application
Dim objAppt As Outlook.AppointmentItem

Excel va alors nous proposer toutes les propriétés et méthodes dans une
liste déroulante se rapportant à l'objet dès que l'on tape le point
après le nom de l'objet, c'est une aide mémoire formidable et cela
empêche les fautes d'orthographe...

MichD
MichD
Le #26389025
Un exemple intéressant à cette adresse :

https://msdn.microsoft.com/fr-fr/library/office/ff869166(v=office.15).aspx
DanielCo
Le #26389029
Bonjour,
Propriété "Duration" (en minutes).
Cordialement.
Daniel

Le jeudi 11 février 2016 10:15:38 UTC+1, a écrit :
Bonjour,
J'ai créé une macro sous vba excel 2010 pour créer des réunions. Je voudrais
connaitre le code pour indiquer que cette réunion est journée entière.
Quelqu'un peut-il m'aider ? merci



Voici mon code :
Sub CréationRéunion()
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Dim nomCatégorie As String
Const olAppointmentItem = 1
Const olMeeting = 1
'teste si la date est antérieure à aujourd'hui alors met la réunion le
lendemain If dateValidité < Date Then dateValidité = Date + 1
'teste si jour réunion est samedi ou dimanche alors reporte au lundi
If Weekday(dateValidité) = 1 Then dateValidité = dateValidité + 1
If Weekday(dateValidité) = 7 Then dateValidité = dateValidité + 2
Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olMeeting) 'olAppointmentItem
With objAppt
.Subject = vObjet
.Start = dateValidité
.End = DateAdd("h", 1, .Start)
.Location = "Lieu de la réunion à définir !"
.Body = vMessage
.BusyStatus = olFree
.Categories = 3
.ReminderSet = True
.ReminderMinutesBeforeStart = 21600 ' rappel 15 jours avant
.ReminderOverrideDefault = True
.ReminderPlaySound = True 'réveil en fanfare
.Importance = olImportanceHigh
.MeetingStatus = olMeeting
.RequiredAttendees = adressesMail 'participant obligatoire
.Send
End With
Set objAppt = Nothing
Set objOL = Nothing
End Sub
DanielCo
Le #26389028
Ou "AllDayEvent" (booléenne)
Daniel

Le jeudi 11 février 2016 10:15:38 UTC+1, a écrit :
Bonjour,
J'ai créé une macro sous vba excel 2010 pour créer des réunions. Je voudrais
connaitre le code pour indiquer que cette réunion est journée entière.
Quelqu'un peut-il m'aider ? merci



Voici mon code :
Sub CréationRéunion()
Dim objOL 'As Outlook.Application
Dim objAppt 'As Outlook.AppointmentItem
Dim nomCatégorie As String
Const olAppointmentItem = 1
Const olMeeting = 1
'teste si la date est antérieure à aujourd'hui alors met la réunion le
lendemain If dateValidité < Date Then dateValidité = Date + 1
'teste si jour réunion est samedi ou dimanche alors reporte au lundi
If Weekday(dateValidité) = 1 Then dateValidité = dateValidité + 1
If Weekday(dateValidité) = 7 Then dateValidité = dateValidité + 2
Set objOL = CreateObject("Outlook.Application")
Set objAppt = objOL.CreateItem(olMeeting) 'olAppointmentItem
With objAppt
.Subject = vObjet
.Start = dateValidité
.End = DateAdd("h", 1, .Start)
.Location = "Lieu de la réunion à définir !"
.Body = vMessage
.BusyStatus = olFree
.Categories = 3
.ReminderSet = True
.ReminderMinutesBeforeStart = 21600 ' rappel 15 jours avant
.ReminderOverrideDefault = True
.ReminderPlaySound = True 'réveil en fanfare
.Importance = olImportanceHigh
.MeetingStatus = olMeeting
.RequiredAttendees = adressesMail 'participant obligatoire
.Send
End With
Set objAppt = Nothing
Set objOL = Nothing
End Sub
martine.leport
Le #26389044
Le jeudi 11 février 2016 14:59:51 UTC+1, DanielCo a écrit :
Ou "AllDayEvent" (booléenne)
Daniel

> Le jeudi 11 février 2016 10:15:38 UTC+1, a écr it :
>> Bonjour,
>> J'ai créé une macro sous vba excel 2010 pour créer des réunion s. Je voudrais
>> connaitre le code pour indiquer que cette réunion est journée ent ière.
>> Quelqu'un peut-il m'aider ? merci
>
> Voici mon code :
> Sub CréationRéunion()
> Dim objOL 'As Outlook.Application
> Dim objAppt 'As Outlook.AppointmentItem
> Dim nomCatégorie As String
> Const olAppointmentItem = 1
> Const olMeeting = 1
> 'teste si la date est antérieure à aujourd'hui alors met la réuni on le
> lendemain If dateValidité < Date Then dateValidité = Date + 1
> 'teste si jour réunion est samedi ou dimanche alors reporte au lundi
> If Weekday(dateValidité) = 1 Then dateValidité = dateValidité + 1
> If Weekday(dateValidité) = 7 Then dateValidité = dateValidité + 2
> Set objOL = CreateObject("Outlook.Application")
> Set objAppt = objOL.CreateItem(olMeeting) 'olAppointmentItem
> With objAppt
> .Subject = vObjet
> .Start = dateValidité
> .End = DateAdd("h", 1, .Start)
> .Location = "Lieu de la réunion à définir !"
> .Body = vMessage
> .BusyStatus = olFree
> .Categories = 3
> .ReminderSet = True
> .ReminderMinutesBeforeStart = 21600 ' rappel 15 jours avant
> .ReminderOverrideDefault = True
> .ReminderPlaySound = True 'réveil en fanfare
> .Importance = olImportanceHigh
> .MeetingStatus = olMeeting
> .RequiredAttendees = adressesMail 'participant obligatoire
> .Send
> End With
> Set objAppt = Nothing
> Set objOL = Nothing
> End Sub



Merci beaucoup, j'ai utilisé AlldayEvent et cela fonctionne parfaitement
martine.leport
Le #26389043
Le jeudi 11 février 2016 14:44:10 UTC+1, MichD a écrit :
Bonjour,

Tu peux définir la date et l'heure du début et la date et l'heure de la
fin en utilisant ces 2 propriétés :

With objAppt
.Subject = vObjet
.Start = #2/2/2003 3:00:00 PM#
.End = #2/2/2003 4:00:00 PM#

'.../etc

End With

En VBA, lorsque l'on inscrit une date entre "dièses (#), la date est au
format américain. le premier 2 indique le mois, le deuxième 2 le jour et
suivi de l'année. À toi d'indiquer l'heure du début de ta journée et
l'heure de la fin de celle-ci.

N.B. Lorsque l'on programme et que l'on n'est pas très familier avec le s
propriétés et méthodes des objets du modèle objet de l'applicatio n, il
est préférable de charger la bibliothèque. Dans ce cas :
"Microsoft Outlook 16.0 Object Library" et de faire une déclaration des
objets comme ceci :
Dim objOL As Outlook.Application
Dim objAppt As Outlook.AppointmentItem

Excel va alors nous proposer toutes les propriétés et méthodes dans une
liste déroulante se rapportant à l'objet dès que l'on tape le point
après le nom de l'objet, c'est une aide mémoire formidable et cela
empêche les fautes d'orthographe...

MichD



Merci de l'info j'utilise maintenant
Dim objOL As Outlook.Application
Dim objAppt As Outlook.AppointmentItem



et sinon j'ai utilisé allDayEvent et cela marche très bien

merci
Publicité
Poster une réponse
Anonyme