vidange presse papiers

[excalibur]

bonjour par simple curiosite existe t il un moyen efficace de vider le presse papier en developpant un peu je recupere des donnees sur un serveur je fais des copier coller j ouvre le fichier copy & coller j ai l impresion que cela ralentis a bout de vingt minutes 2 fichiers minute je sors de l application & ok ca repart correct ces donnees je les traite en fonction de entre dates avec la methode find ect j ai l impression d avoir moins de memory je sors de l application ok recherche <3 secondes j utilise ce code que j ai pris sur un site Sub vide_pp()
On Error Resume Next
Application.CommandBars("clipboard").Controls(4).Execute
End Sub sous delphi il existe du code dans le genre free memory equivalence en vba salutations a+

 

[michel]

bonsoir Excalibur

tu peux tester

Sub viderPressPapier()
'necessite d'activer la reference Microsoft 0ffice x.x Objet Library
With New DataObject
.SetText ""
.PutInClipboard
End With
End Sub


bonne soiree
MichelXld

 

[excalibur]

je te remercie pour ce renseignement je ferais des essais la semaine prochaine pour voir si gain interessant bonne soiree a toi aussi a+ salutations

 

[denis]

Bonjour Excalibur, Michel et le Forum
tu peux également essayer ceci:

On Error Resume Next
Application.CommandBars("Clipboard").Controls(4).Execute

bon courage et à +
Denis