zeltron24
XLDnaute Impliqué
Bonsoir le Forum
A toute fin utile voici une petite macro trouvée sur la toile, permettant de supprimer les documents récemment ouverts.
A toute fin utile voici une petite macro trouvée sur la toile, permettant de supprimer les documents récemment ouverts.
Code:
Sub Fichier_Recent()
Dim vReponse As String
Dim Nb As Integer, A As Integer
Nb = Application.RecentFiles.Count
If Nb = 0 Then
MsgBox "Il n'y a pas de fichiers récents à supprimer !!!", vbOKOnly + vbQuestion, "Liste Vide."
Exit Sub
End If
vReponse = MsgBox("Voulez-vous effacer la liste" & Chr(10) & "de fichiers ouverts récemment ?", _
vbYesNo + vbQuestion, "Suppression liste.")
If vReponse = vbYes Then
For A = Nb To 1 Step -1
Application.RecentFiles(A).Delete
Next
End If
End Sub