Discussion :

[oscar.cesar]

bonjour
suite à mon derniers post, il serait plus propre de vider le presse papier avant d'y mettre qql chose.

mais il semblerait qu'un
clipbord.cleard ne marche pas

j'ai trouve un code sur le net mais y a t'il pas plus simple ,,,,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub ClearClipboard()
Dim oDataObject As DataObject
 
Set oDataObject = New DataObject
oDataObject.SetText ""
oDataObject.PutInClipboard
 
Set oDataObject = Nothing
End Sub

[ucfoutu]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CutCopyMode = False

aura un effet limité à la seule manoeuvre Edition/coller

Si tu veux réellement vider littéralement le presse-papier, y compris des données multiples qu'il a pu recevoir (notamment par des Edition/copîer succéssifs sans collage), il te faut aller à du plus cher, et :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.CommandBars("Clipboard").Controls("&Vider le
Presse-Papiers").Execute

devrait faire l'affaire et libérer réellement la mémoire ....

[oscar.cesar]

bonjour Ucfoutu

merci de ta reponse
je me suis orienté comme cela

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
16
 
 
'******declaration pour vider le presse papier*********************************
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
'*****************************************************************************
 
'***************procedure presse papier pour le vider*************
Private Sub videpressepapier()
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
 
End Sub
'****************************************************************

puis j'appelle ma procedure dans mon programme videpressepapier