Comment définir le statut par défaut des événements « Toute la journée » sur « Occupé » dans Outlook ?
Par défaut, Outlook définit le statut des réunions sur « Occupé », mais celui des événements sur toute la journée sur « Libre » (voir la capture d’écran ci-dessous). Vous devez donc modifier manuellement le statut « Afficher comme » en « Occupé » chaque fois que vous créez un événement sur toute la journée. Pour définir « Occupé » comme statut par défaut pour ce type d’événement, cet article vous propose deux méthodes.

Définir le statut par défaut des événements sur toute la journée sur « Occupé » en créant un formulaire personnalisé
Un formulaire personnalisé vous permet de créer un événement toute la journée dont le statut « Afficher comme » est défini par défaut sur « Occupé ». Voici la marche à suivre.
1. Passez en vue Calendrier en cliquant sur « Accueil » > « Rendez-vous ».
2. Dans la fenêtre Rendez-vous, cliquez sur « Développeur » > « Concevoir ce formulaire ».
Conseil : Si l’onglet « Développeur » n’apparaît pas dans le Ruban, suivez les méthodes décrites dans cet article pour l’afficher.

3. La fenêtre de rendez-vous bascule alors en mode conception. Cliquez sur l’onglet « (P.2) ».

4. Faites glisser les champs « Événement sur toute la journée » et « Occupé » depuis le volet « Sélecteur de champs » vers la zone située sous l’onglet « (P.2) ».

5. Cliquez avec le bouton droit sur le champ « Événement sur toute la journée » que vous venez de déplacer, puis choisissez « Propriétés » dans le menu contextuel.

6. Dans la boîte de dialogue « Propriétés », effectuez les réglages suivants.

7. Cliquez avec le bouton droit sur la zone de liste déroulante du champ « Occupé », puis sélectionnez « Propriétés » dans le menu contextuel.

8. Dans la boîte de dialogue « Propriétés », effectuez les réglages suivants.

9. Cliquez sur « Publier » > « Publier le formulaire sous » dans le ruban.

10. Dans la boîte de dialogue « Publier le formulaire sous », suivez les étapes ci-dessous :

11. Fermez la fenêtre de rendez-vous sans enregistrer vos modifications.
12. Désormais, pour créer un événement sur toute la journée avec le statut « Afficher comme » défini par défaut sur « Occupé », passez en vue « Calendrier », puis cliquez sur « Accueil » > « Nouveaux éléments » > « Formulaires personnalisés » > « Nom du formulaire personnalisé ».

Remarque : Pour créer un événement sur toute la journée dont le statut « Afficher comme » est défini par défaut sur « Libre », procédez comme d’habitude : cliquez sur « Accueil » > « Rendez-vous », puis cochez la case « Événement sur toute la journée » dans la fenêtre « Rendez-vous ».
Définir le statut par défaut des événements sur toute la journée sur « Occupé » à l’aide de VBA
La méthode précédente implique trop d’étapes. Si vous créez fréquemment des événements sur toute la journée avec le statut « Afficher comme » défini par défaut sur « Occupé », le code VBA ci-dessous vous permettra de le faire en toute simplicité.
1. Lancez Outlook, puis appuyez simultanément sur les touches « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
2. Dans la fenêtre « Microsoft Visual Basic pour Applications », double-cliquez sur « Projet1 » > « Objets Microsoft Outlook » > « ThisOutlookSession » pour ouvrir la fenêtre « ThisOutlookSession (Code) », puis y copiez le code suivant.

Code VBA : Définir le statut des événements sur toute la journée par défaut sur « Occupé »
Public WithEvents GInspectors As Inspectors
Public WithEvents GAppointmentItem As AppointmentItem
Private Sub Application_Startup()
'Updated by Extendoffice 20220413
Set GInspectors = Application.Inspectors
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
Select Case Inspector.CurrentItem.Class
Case olAppointment
Set GAppointmentItem = Inspector.CurrentItem
End Select
End Sub
Private Sub GAppointmentItem_Open(Cancel As Boolean)
Select Case GAppointmentItem.AllDayEvent
Case True
GAppointmentItem.BusyStatus = olBusy
End Select
End Sub
Private Sub GAppointmentItem_PropertyChange(ByVal Name As String)
If Name = "AllDayEvent" Then
Select Case GAppointmentItem.AllDayEvent
Case True
GAppointmentItem.BusyStatus = olBusy
End Select
End If
End Sub 3. Enregistrez le code VBA et redémarrez Outlook.
Désormais, dès qu’un rendez-vous ou une réunion est converti(e) en événement sur toute la journée, le statut « Afficher comme » passe automatiquement à « Occupé ».

Articles associés
Modifier l’heure de rappel par défaut des événements sur toute la journée dans Outlook
Par défaut, l’heure de rappel d’un événement sur toute la journée est fixée à 18 heures dans Outlook 2007/2010 et à 0,5 jour dans Outlook 2013. Cette heure de rappel par défaut ne correspond pas toujours à votre emploi du temps. Découvrez comment modifier facilement l’heure de rappel par défaut des événements sur toute la journée dans Microsoft Outlook !
Modifier l’heure de suivi par défaut dans Outlook
Comme vous le savez, lorsque vous ajoutez un rappel de suivi à un e-mail dans Outlook, l’heure de suivi par défaut est fixée à 16 h 30 (ou à une autre heure selon vos horaires de travail). Mais imaginez pouvoir être alerté(e) dès le début de votre journée — par exemple à 9 h 00 ! Dans cet article, je vous explique précisément comment modifier cette heure de suivi par défaut dans Outlook.
Modifier l’emplacement d’archivage par défaut dans Outlook
Par défaut, Outlook utilise un emplacement prédéfini pour stocker vos fichiers d’archivage. Mais vous n’êtes pas obligé de vous y tenir ! Vous pouvez définir votre propre emplacement d’archivage. Ce tutoriel vous explique pas à pas comment modifier l’emplacement d’archivage par défaut dans Outlook.
Modifier la zone de sauvegarde par défaut des pièces jointes dans Outlook
En avez-vous assez de devoir chercher à chaque fois l’emplacement où vous avez enregistré vos pièces jointes au lancement d’Outlook ? Ce tutoriel vous explique comment définir un dossier de sauvegarde par défaut pour vos pièces jointes. Dès lors, ce dossier s’ouvrira automatiquement chaque fois que vous enregistrerez des pièces jointes — même après avoir redémarré Outlook.
Modifier l’heure par défaut pour l’envoi différé dans Outlook
Ce tutoriel vous propose un code VBA pour personnaliser facilement l’heure par défaut de l’envoi différé dans Outlook.
Meilleurs outils de productivité Office
Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !
📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...
📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…
📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…
🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...
👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…
👩🏼🤝👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…
Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !


🚀 Téléchargement en un clic — Obtenez tous les compléments Office
Fortement recommandé : Kutools for Office (5-en-1)
Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !
- ✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
- 🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
- 🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint