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