Périodiquement, je parcours les fichiers de mes répertoires Word pour déterminer si l’un des anciens documents peut être supprimé en toute sécurité. Plusieurs fois, je dois ouvrir le fichier pour l’examiner avant de pouvoir décider s’il doit être supprimé.

Bien sûr, Word vous permettra de supprimer un fichier répertorié dans les boîtes de dialogue Ouvrir ou Enregistrer, mais il ne supprimera pas le document actif, celui qui est actuellement ouvert. Plutôt que de fermer le document actif puis de le supprimer en ouvrant les boîtes de dialogue Ouvrir ou Enregistrer, j’utilise la macro suivante pour supprimer un fichier ouvert.

Sub DeleteThisFile()

Dim MyFile As String

MyFile = ActiveDocument.Path & "\" & ActiveDocument.Name     If MsgBox(MyFile & " will be deleted permanently", _       vbYesNo, "Delete this File?") = vbYes Then         ActiveDocument.Close (wdDoNotSaveChanges)

Kill MyFile     End If End Sub

La macro vous invite à vous assurer que vous souhaitez supprimer le fichier et (si vous le faites) elle ferme le document sans l’enregistrer, puis le supprime.

Vous devez noter que le fichier ne va pas dans la corbeille, mais est immédiatement supprimé.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (11642) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Deleting_the_Open_Document_File [Suppression du fichier de document ouvert].