Dans cet article, nous allons vous montrer une astuce intéressante pour insérer une date future ou passée dans votre document Word via les codes VBA.
Généralement, nous n'avons aucune difficulté à insérer une date courante dans notre document Word. Pourtant, de temps en temps, nous pourrions être en train de préparer le document nécessaire la semaine ou le mois prochain ou même plus tard. Alors voici le problème que vous ne pouvez pas contourner. Comment pouvez-vous insérer une date future dans un fichier Word ? Et parfois que diriez-vous d'un passé même?
C'est pourquoi nous pensons que vous devez saisir cette méthode utile pour mieux remplir vos tâches de travail.
Utiliser les codes VBA pour insérer une date future ou coller
- Pour commencer, ouvrez votre document Word.
- Ensuite, cliquez sur l'onglet "Développeur".
- Cliquez ensuite sur "Visual Basic" pour ouvrir l'éditeur VBA. Si l'onglet "Développeur" n'est pas disponible dans votre ruban Word, vous pouvez appuyer sur "Alt + F11" pour ouvrir l'éditeur à la place.
- Maintenant, dans l'éditeur, cliquez sur "Normal" sur le côté gauche.
- Cliquez ensuite sur "Insérer" dans la barre d'outils.
- Ensuite, choisissez "Module" dans le menu-liste.
- Maintenant, double-cliquez sur le module nouvellement inséré et la zone d'édition sera disponible sur le côté droit.
- Collez-y simplement les codes suivants :
Sub InsertFutureOrPastDate()
Dim strNumberOfDays As String
' Input the number of days you want to insert from today to the future or past date.
strNumberOfDays = InputBox("Please input the number of days you want to insert", "future or past date", "Input here.For exemple,input 1 to insert the date of tomorrow")
' Insert the future or past date according to the inputed number of days
If strNumberOfDays <> "" Then
Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")
End If
End Sub
- Ensuite, cliquez sur le bouton "Enregistrer" et fermez l'éditeur VBA.
- Revenez maintenant à l'écran du document Word et placez votre curseur à l'endroit où se trouve la date future ou passée.
- Cliquez ensuite à nouveau sur l'onglet "Développeur".
- Et cliquez sur "Macros" dans le groupe "Code" pour ouvrir la fenêtre "Macros". Encore une fois si l'onglet "Développeur" n'est pas affiché, il vous suffit d'appuyer sur "Alt + F8".
- Maintenant, dans la fenêtre "Macros", recherchez et sélectionnez la macro "InsertFutureOrPastDate".
- Cliquez ensuite sur "Exécuter".
- Ensuite, vous serez accueilli par une boîte de message. Vous pouvez entrer un nombre dans la zone de texte au bas de la zone pour représenter les jours restants jusqu'à la date future. Par exemple, si vous souhaitez insérer la date de demain, vous devez y saisir "1". De même, si vous avez besoin d'une date passée, ajoutez simplement un signe moins avant la valeur, comme "-1" pour hier.
- N'oubliez pas de cliquer sur "OK".
Remarque : Dans les codes "Selection.TypeText Text:=Format(Date + strNumberOfDays, "dddd, MMMM dd, yyyy")", le "dddd, MMMM dd, yyyy" représente le format de date où "M" signifie "mois" , "d" pour "jour", "y" pour "année" et "dddd" pour "semaine", vous êtes donc libre de le changer comme vous le souhaitez.
Récupérez vos précieux fichiers
Word est susceptible de s'effondrer, ce qui met nos fichiers Word en danger. De temps en temps, certaines de nos données inestimables disparaissent. Mais ce qui est parti n'est pas complètement parti. Vous pouvez vous asseoir pour vous lamenter sur la perte de vos fichiers critiques ou vous pouvez choisir un expert outil de récupération Word endommagé pour les récupérer.
Introduction de l'auteur:
Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris Réparation d'un problème de fichier Excel xls et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com