Accéder au contenu principal

Comment définir les événements d'une journée entière par défaut sur « Occupé » dans Outlook ?

Author: Siluvia Last Modified: 2025-08-06

Par défaut, Outlook définit le statut des rendez-vous et réunions sur « Occupé », mais les événements d'une journée entière sur « Libre » (voir capture d'écran ci-dessous). Vous devez manuellement changer le statut « Afficher comme » à « Occupé » chaque fois que vous créez un événement d'une journée entière. Pour changer le statut par défaut des événements d'une journée entière en « Occupé », cet article vous propose deux méthodes.

changing the all-day event default to busy in Outlook

Changer le statut par défaut des événements d'une journée entière en « Occupé » en créant un formulaire personnalisé

Un formulaire personnalisé peut vous aider à créer un événement d'une journée entière avec le statut « Afficher comme » défini par défaut sur « Occupé ». Veuillez suivre les étapes ci-dessous.

1. Passez à la vue Calendrier. Cliquez sur « Accueil » > « Nouveau Rendez-vous ».

2. Dans la nouvelle fenêtre de Rendez-vous, cliquez sur « Développeur » > « Concevoir ce Formulaire ».

Remarque : Si l'onglet « Développeur » n'apparaît pas dans le ruban, veuillez suivre les méthodes décrites dans cet article pour l'afficher.

steps on changing the all-day event default to busy by creating a custom form

3. Ensuite, la fenêtre de rendez-vous passe en mode conception. Vous devez cliquer sur l'onglet « (P.2) ».

steps on changing the all-day event default to busy by creating a custom form

4. Faites glisser le champ « Événement toute la journée » et le champ « Afficher l'heure comme » depuis le volet « Sélecteur de champs » séparément vers le tableau sous l'onglet « (P.2) ».

steps on changing the all-day event default to busy by creating a custom form

5. Cliquez avec le bouton droit sur le champ « Événement toute la journée » déplacé et sélectionnez « Propriétés » dans le menu contextuel.

steps on changing the all-day event default to busy by creating a custom form

6. Dans la boîte de dialogue « Propriétés », vous devez configurer comme suit.

6.1) Allez à l'onglet « Valeur » ;
6.2) Dans la section « Valeur initiale », cochez la case « Définir la valeur initiale de ce champ à » ;
6.3) Entrez une valeur « True » dans la zone de texte ;
6.4) Cliquez sur le bouton « OK ». Voir capture d'écran :
steps on changing the all-day event default to busy by creating a custom form

7. Cliquez avec le bouton droit sur la liste déroulante du champ « Afficher l'heure comme » et cliquez sur « Propriétés » dans le menu contextuel.

steps on changing the all-day event default to busy by creating a custom form

8. Dans la boîte de dialogue « Propriétés », vous devez configurer comme suit.

8.1) Allez à l'onglet « Valeur » ;
8.2) Dans la section « Valeur initiale », cochez la case « Définir la valeur initiale de ce champ à » ;
8.3) Entrez un nombre « 2 » dans la zone de texte ;
8.4) Cliquez sur le bouton « OK ». Voir capture d'écran :
steps on changing the all-day event default to busy by creating a custom form

9. Cliquez sur « Publier » > « Publier le Formulaire Sous » dans le ruban.

steps on changing the all-day event default to busy by creating a custom form

10. Dans la boîte de dialogue « Publier le Formulaire Sous », vous devez :

10.1) Sélectionner un dossier de destination pour le formulaire personnalisé dans la liste déroulante « Regarder dans ». Ici, je choisis l'élément « Bibliothèque de Formulaires Personnels » ;
10.2) Nommez le formulaire personnalisé dans la zone de texte « Nom affiché » ;
10.3) Cliquez sur le bouton « Publier ». Voir capture d'écran :
steps on changing the all-day event default to busy by creating a custom form

11. Fermez la fenêtre de Rendez-vous sans enregistrer.

12. Dès maintenant, lorsque vous devez créer un événement d'une journée entière avec le statut « Afficher comme » défini par défaut sur « Occupé », passez à la vue « Calendrier » et cliquez sur « Accueil » > « Nouveaux Éléments » > « Formulaires Personnalisés » > « Le nom du formulaire personnalisé ».

steps on changing the all-day event default to busy by creating a custom form

Remarque : Pour créer un événement d'une journée entière avec le statut « Afficher comme » défini par défaut sur « Libre », procédez comme d'habitude : cliquez sur « Accueil » > « Nouveau Rendez-vous », puis cochez la case « Événement toute la journée » dans la fenêtre « Rendez-vous ».


Changer le statut par défaut des événements d'une journée entière en « Occupé » en utilisant VBA

La méthode ci-dessus comporte trop d'étapes. Si vous avez toujours besoin de créer un événement d'une journée entière avec le statut « Afficher comme » défini par défaut sur « Occupé », le code VBA suivant peut vous y aider facilement.

1. Lancez votre Outlook, appuyez simultanément sur les touches « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic for Applications ».

2. Dans la fenêtre « Microsoft Visual Basic for Applications », double-cliquez sur « Projet1 » > « Objets Microsoft Outlook » > « ThisOutlookSession » pour ouvrir la fenêtre « ThisOutlookSession (Code) », puis copiez le code suivant dans cette fenêtre de code.

steps on changing the all-day event default to busy by using VBA

Code VBA : Définir le statut des événements d'une journée entière 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ès maintenant, après avoir converti un rendez-vous ou une réunion en un événement d'une journée entière, le statut « Afficher comme » sera défini par défaut sur « Occupé ».

steps on changing the all-day event default to busy by using VBA

Articles connexes

Modifier l'heure de rappel par défaut des événements d'une journée entière dans Outlook
Normalement, l'heure de rappel par défaut des événements d'une journée entière est de 18 heures dans Outlook 2007/2010 et de 0,5 jour dans Outlook 2013. Parfois, l'heure de rappel par défaut des événements d'une journée entière peut ne pas correspondre à votre emploi du temps. Nous allons ici vous présenter comment modifier l'heure de rappel par défaut des événements d'une journée entière dans Microsoft Outlook.

Modifier l'heure de suivi par défaut dans Outlook
Nous savons que lorsqu'on ajoute un rappel de suivi à un e-mail dans Outlook, l'heure de suivi par défaut est 16h30 (ou une autre heure selon vos heures de travail). Cependant, vous souhaiterez peut-être changer l'heure de suivi par défaut et être rappelé au début des heures de travail, comme 9h00. Dans cet article, je vais vous montrer comment modifier l'heure de suivi par défaut dans Outlook.

Modifier l'emplacement d'archivage par défaut dans Outlook
Par défaut, Outlook dispose d'un emplacement par défaut pour les fichiers d'archivage. Outre cet emplacement par défaut, vous pouvez définir votre propre emplacement d'archivage pour vos fichiers d'archivage. Dans ce tutoriel, nous vous montrerons comment modifier l'emplacement d'archivage par défaut dans Outlook en détail.

Modifier l'emplacement de sauvegarde des pièces jointes par défaut dans Outlook
En avez-vous assez de rechercher l'emplacement des pièces jointes que vous avez spécifié à chaque fois que vous lancez Outlook ? Dans ce tutoriel, nous vous montrerons comment modifier l'emplacement de sauvegarde des pièces jointes par défaut. Après cela, le dossier de sauvegarde des pièces jointes spécifié s'ouvrira automatiquement chaque fois que vous sauvegarderez les pièces jointes, même après avoir redémarré Outlook.

Modifier l'heure par défaut pour le délai de livraison dans Outlook
Ce tutoriel fournit un code VBA pour vous aider à modifier l'heure par défaut pour l'option de délai de livraison dans Outlook.


Meilleurs outils de productivité pour Office

Dernière nouvelle : Kutools pour Outlook lance une version gratuite !

Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !

🤖 Kutools IA : Utilise une technologie avancée d’intelligence artificielle pour gérer vos emails en toute simplicité, notamment répondre, résumer, optimiser, étendre, traduire et rédiger des emails.

📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...

📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...

🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...

👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...

👩🏼‍🤝‍👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...

Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !

Débloquez instantanément Kutools pour Outlook en un seul clic. N’attendez plus, téléchargez maintenant et augmentez votre productivité !

kutools for outlook features1 kutools for outlook features2