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-05-27

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ères nouvelles : Kutools pour Outlook lance une version gratuite !

Découvrez la toute nouvelle version GRATUITE de Kutools pour Outlook avec plus de70 fonctionnalités incroyables, à utiliser POUR TOUJOURS ! Cliquez pour télécharger maintenant !

🤖 Kutools IA : Utilise une technologie IA avancée pour gérer les emails sans effort, y compris répondre, résumer, optimiser, étendre, traduire et composer des emails.

📧 Automatisation des emails : Réponse automatique (Disponible pour POP et IMAP) / Programmation d'envoi d'emails / CC/BCC automatique par règle lors de l'envoi d'un email / Transfert automatique (Règle avancée) / Ajouter automatiquement une salutation / Diviser automatiquement les emails multi-destinataires en messages individuels...

📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujets et autres / Supprimer les emails en double / Recherche avancée / Organiser les dossiers...

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

🌟 Magie de l'interface : 😊Plus d'emojis jolis et cool / Vous rappeler lorsque des emails importants arrivent / Réduire Outlook au lieu de fermer...

👍 Merveilles en un clic : Répondre à tous avec pièces jointes / Emails anti-phishing / 🕘Afficher le fuseau horaire de l'expéditeur...

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

Déverrouillez instantanément Kutools pour Outlook d'un simple clic. Ne tardez pas, téléchargez maintenant et boostez votre efficacité !

kutools for outlook features1 kutools for outlook features2