Discussion :

[devvba]

bonjour,

Pour vider le presse papier, j'ai trouvé plusieurs solutions. Mais je ne comprend pas pourquoi les données dans le presse papier sont toujours visibles. Or quand on clique sur le bouton "effacer tout", tout disparaît.
N'est-il pas possible de valider ce bouton en VBA?

j'ai testé avec les procedures suivantes :

Code :

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

1
2
  On Error Resume Next
  Application.CommandBars("clipboard").Controls(4).Execute

( j'ai cherché la signification du 4 sans succes)

l'autre procedures:

Code :

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

1
2
  'Permet de désactiver le presse papier
  Application.CutCopyMode = False

J'ai essayé avec celle de SilkyRoad:Mais la macro s'arrête en mettant en surbrillant "Dim Cible As DataObject".

Code :

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

1
2
3
4
5
6
7
 'Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
Dim Cible As DataObject
 
Set Cible = New DataObject
Cible.setText ""
Cible.putInClipboard
Set Cible = Nothing

merci d'avance si vous avez une explication.

bonne soirée

[fring]

Bonjour,

Une piste peut-être ICI

[SilkyRoad]

bonsoir

'Nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library"

dans l'éditeur de macros:
Menu Outils
références
coche la ligne "Microsoft Forms 2.0 Object Library"
Clique sur le bouton OK pour valider


bonne soirée
michel

[devvba]

bonsoir et merci,

j'ai essayé mais je vois toujours des fichiers dans mon presse papier excel. Je pense que je suis trop fatiguée. J'étudirai vos solutions demain et merci encore. SI je comprend bien la fonction "Application.CutCopyMode = False" ne fais que bloqué le presse papier mais le vide pas de son contenu.

merci et bonne soirée

[Abed_H]

Bonjour
pour vider le presse papier en VBA,ce code devrait te convenir

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As 
Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
 
Sub Test()
      OpenClipboard 0
	EmptyClipboard
    CloseClipboard
End Sub

Bonne journée

Abed_H

[devvba]

je n'arrive pas à les faire fonctionner. Je pense que je manque de connaisances. Je fais donc étudiez dans le tutoriel puis revenir cette question
plus tard quand je maitriserai mieux

merci pour votre aide et bonne soirée