Bonjour à tous,

Après de multiples tentatives pour vider le presse-papier d'Excel, les solutions des versions précédentes d'Excel ne fonctionnent pas:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub ViderPresse_Papier()
 
Range("H1").Copy 'cellule vide
Application.CutCopyMode = False
 
OpenClipboard 0
EmptyClipboard
CloseClipboard
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub ViderPressePapier()
'Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library." => c'est bien le cas...
Dim Cible As dataObject
 
Set Cible = New dataObject
Cible.setText ""
Cible.putInClipboard
 
Set Cible = Nothing
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#If Win64 Then
Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As LongPtr) As Long
Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
#Else
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function EmptyClipboard Lib "user32" () As Long
#End If
 
Public Sub ClearClipboard()
   OpenClipboard (0&)
   EmptyClipboard
   CloseClipboard
End Sub
Sauriez-vous comment réaliser cette tâche ?
Je n'ai rien trouvé non plus sur les forums Microsoft. Est-ce même possible ?