Bonjour,
J'ai cr=E9=E9 une macro sous vba excel 2010 pour cr=E9er des r=E9unions. Je=
voudrais connaitre le code pour indiquer que cette r=E9union est journ=E9=
e enti=E8re.
Quelqu'un peut-il m'aider ?
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
martine.leport
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
Le jeudi 11 février 2016 10:15:38 UTC+1, martine...@gmail.com 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
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
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 :
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
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 :
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...
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...
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
Bonjour,
Propriété "Duration" (en minutes).
Cordialement.
Daniel
Le jeudi 11 février 2016 10:15:38 UTC+1, martine...@gmail.com 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
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
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
Ou "AllDayEvent" (booléenne)
Daniel
Le jeudi 11 février 2016 10:15:38 UTC+1, martine...@gmail.com 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
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 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
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, martine...@gmail.com 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
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 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 :
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
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 :
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
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
