XL 2019 gestion du presse papier

Sub ClearPressePapiersOffice()
    Dim maCmdBar As IAccessible, bHidden As Boolean
    Dim monStdAcc As stdAcc, monBouton As stdAcc
    On Error Resume Next
    Set maCmdBar = Application.CommandBars("Office Clipboard")
    bHidden = maCmdBar.Visible
    maCmdBar.Visible = True
    DoEvents: DoEvents
    Set monStdAcc = stdAcc.CreateFromIAccessible(maCmdBar)
'        monStdAcc.PrintChildTexts ' affiche les enfants
'        monStdAcc.PrintDescTexts ' affiche tous les descendants
        ' Set monBouton = monStdAcc.CreateFromPath("1.4.1.4.1.4.2").name 'utiliser le Path trouvé dans PrintDescTexts
    Set monBouton = monStdAcc.FindFirst(stdLambda.Create("$1.name=""Effacer tout"""))
    monBouton.DoDefaultAction
    maCmdBar.Visible = bHidden 'on restitue l'état de la CmdBar
End Sub

Sub DetectIAccessible()
While True
    Dim obj As stdAcc
    Set obj = stdAcc.CreateFromMouse()
'    If Not obj Is Nothing Then Debug.Print obj.name & " - " & obj.Role
    'Pour détecter tous les boutons
     If Not obj Is Nothing And obj.Role = "ROLE_PUSHBUTTON" Then
        Debug.Print obj.name & " - " & obj.Role
     End If
    DoEvents
Wend
End Sub

Sub ClearPressePapiersOffice2()
    Dim maCmdBar As IAccessible, bouton As IAccessible
    On Error Resume Next
    Set maCmdBar = Application.CommandBars("Office Clipboard")
    Set bouton = FindChildByRoleOrName(maCmdBar, "Effacer tout", 43, True) ' 43 = ROLE_PUSHBUTTON
    Debug.Print bouton.accName(ByVal 0&)
    Call bouton.accDoDefaultAction(ByVal 0&)
End Sub

Sub ClearPressePapiersOffice2()
    Dim maCmdBar As IAccessible, bouton As IAccessible
    'On Error Resume Next
    Set maCmdBar = Application.CommandBars("Office Clipboard")
    Set bouton = FindChildByRoleOrName(maCmdBar, "Effacer tout", 43, True) ' 43 = ROLE_PUSHBUTTON
   ' Debug.Print Not bouton Is Nothing
    'Call bouton.accDoDefaultAction(ByVal 0&)
End Sub
' Fonction privée pour rechercher d'un objet accessible à partir de son parent, son role et son nom
Private Function FindChildByRoleOrName(pParent As IAccessible, Optional pChildName As String = "*", Optional pChildRole As String = "*", Optional pRecursif As Boolean = False) As IAccessible
    Dim lName As String, lRole As Long
    Dim oChild As IAccessible
    Const NAVDIR_FIRSTCHILD = &H7&
    Const NAVDIR_NEXT = &H5&
    On Error GoTo gestion_erreurs
    Do
        If oChild Is Nothing Then
            Set oChild = pParent.accNavigate(NAVDIR_FIRSTCHILD, ByVal 0&)
            Debug.Print oChild.accName(ByVal 0&) & "---" & oChild.accRole(ByVal 0&)
        Else
            Set oChild = oChild.accNavigate(NAVDIR_NEXT, ByVal 0&)
            Debug.Print oChild.accName(ByVal 0&) & "---" & oChild.accRole(ByVal 0&)
        End If
        If pChildName <> "*" Then lName = oChild.accName(ByVal 0&)
        If pChildRole <> "*" Then lRole = oChild.accRole(ByVal 0&)
        If lRole Like pChildRole And lName Like pChildName Then
            Set FindChildByRoleOrName = oChild
            Exit Do
        End If
        If pRecursif Then
            Set FindChildByRoleOrName = FindChildByRoleOrName(oChild, pChildName, pChildRole, pRecursif)
            If Not FindChildByRoleOrName Is Nothing Then Exit Do
        End If
    Loop
gestion_erreurs:
    If Err.Number <> 0 Then
        Set FindChildByRoleOrName = Nothing
    End If
End Function

Set oChild = pParent.accNavigate(NAVDIR_FIRSTCHILD, ByVal 0&)

Sub ClearPressePapiersOffice2()
    Dim maCmdBar As IAccessible, bouton As IAccessible
    On Error Resume Next
    Set maCmdBar = Application.CommandBars("Office Clipboard")
    maCmdBar.Visible = True
    DoEvents: DoEvents
    Set bouton = FindChildByRoleOrName(maCmdBar, "Effacer tout", 43, True) ' 43 = ROLE_PUSHBUTTON
    Call bouton.accDoDefaultAction(ByVal 0&)
End Sub