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
Partager