Suppression liste "Documents récents"

[Electron24]

Bonsoir,

Je cherche une solution par macro VBA pour effacer la liste de documents récents dans la fenêtre qui s'ouvre lorsque je clique en haut à gauche dans un classeur excel 2007 (Bouton Office)
J'ai 10 classeurs inscrit et je souhaiterai par macro pouvoir effacer cette liste . Je sais que l'on peut la supprimer en passant par l'explorateur mais ce serait plus rapide par macro.
Merci d'avance pour votre réponse.

 

[mapomme]

Bonsoir Electron24,
Essayez ce code: ?

Sub SupFichierRecent()
Dim x As RecentFile
  For Each x In Application.RecentFiles
    x.Delete
  Next x
End Sub

 

[Electron24]

Bonsoir mapomme


cela me donne l'erreur 1004 !!

 

[Electron24]

voici ce que je viens de trouver et qui fonctionne :

Sub SupFichierRecent()
Dim A As Integer, Nb As Integer
With Application.RecentFiles
Nb = .Count
For A = Nb To 1 Step -1
.Item(A).Delete
Next
End With
End Sub

 

[JCGL]

Bonjour à tous,
Salut TaPomme 🙂,

Fonctionne chez moi bien que la mise à 0 des fichiers récents dans les paramètres règle le problème.

A+ à tous

 

[Electron24]

Bonsoir JCGL

Je suis d'accord avec toi sur les paramètres mais comme dit plus haut je prêche pour la rapidité et je veux de temps à autre conserver une trace des fichiers récemment ouvert.

 

[JCGL]

Bonjour à tous,

Peux-tu essayer ceci, juste pour voir où cela péche :

Option Explicit

Sub SupFichierRecent()
Dim A As Integer, Nb As Integer
With Application.RecentFiles
Nb = .Count
MsgBox Nb
For A = Nb To 1 Step -1
MsgBox .Item(A).Name
'.Item(A).Delete
Next
End With
End Sub

A+ à tous

 

[Electron24]

Bonsoir à tous

aprés un peu de réflexion, voici ma petite soupe.
merci à JCGL pour son implication.

Sub SupFichierRecent()
Dim A As Integer, Nb As Integer
Dim vRep As String

    vRep = MsgBox("Voulez-vous supprimer la liste" & Chr(10) & " de documents récents ?", _
    vbYesNo + vbQuestion, "Suppression liste récente..")
   If vRep = vbYes Then

    With Application.RecentFiles
    Nb = .Count
    For A = Nb To 1 Step -1
    .Item(A).Delete
    Next
End With
    MsgBox "La liste est bien effacée."
Else
Exit Sub
End If
End Sub

Je considère donc comme résolu ce fil merci à vous.