Discussion :

[knecmotet]

Bonjour à tous,

J'aimerais savoir comment dans le langage VBA indiquer à une macro de vider le presse papier.

Merci d'avance !

[Olivier Regnier]

Bonjour Knecmotet

Cela peut sans doute t'aider :

La fonction EmptyClipboard permet de vider le presse-papier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Compare Database
Option Explicit
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Private Sub Commande0_Click()
    OpenClipboard Me.hwnd
    EmptyClipboard
    CloseClipboard
End Sub

Voilà

[ThierryAIM]

Me.hwnd en VBA, ca risque de tousser

[Nightfall]

Oui, on peut mettre 0 à la place, ça marche :

Code :

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

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

[abelman]

Vient de me sauver la vie ce post :-)

[méphistopheles]

la clipboard.clear ne marche pas en VBA?

[abelman]

la clipboard.clear ne marche pas en VBA?

no

[morobaboumar]

Oui, on peut mettre 0 à la place, ça marche :

Code :

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

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

Bonsoir membres du forum,
Vraiment ce code ne marche pas.
Je l'ai essayé avec toutes ses déclarations.

Code :

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

1
2
3
4
5
Private Sub viderlepressepapierVBA_Click()
  OpenClipboard 0
    EmptyClipboard
    CloseClipboard
End Sub

Je vous signale que j'utilise Access 2013.

Pourriez vous nous donner le pourquoi ?
Cordialement.

[Phil Free]

Bonjour,

alors pour commencer morobaboumar quand cela ne fonctionne pas il serait bien de donner plus d'info que "Vraiment ce code ne marche pas."
on en fait quoi de ça ? c'est un peu comme :

-Docteur j'ai mal !
-vous avez mal ou ?
-ben j'ai mal !
...

bref plus d'info aide à aider !

Note que pour vider le presse papier ce n'est pas natif dans excel il faut passer par les API windows en l’occurrence ici la DLL USER32
A partir de Excel2010 (VB7) pour la compatibilité 32bits/64bits la déclaration des librairies changes

Essais ceci :

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
17
18
19
20
21
22
Option Explicit
 
#If VBA7 Then
    Private Declare PtrSafe Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As LongPtr
    Private Declare PtrSafe Function CloseClipboard Lib "User32" () As LongPtr
    Private Declare PtrSafe Function EmptyClipboard Lib "User32" () As LongPtr
#Else
    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
#End If
 
'!!! Attention tout ce qui se trouve au dessus de cette ligne doit être placé en haut du module !!!
 
Sub ViderPP()
    'Ouverture du presse-papier
    OpenClipboard 0
    'On vide le presse-papier
    EmptyClipboard
    'Fermeture du presse-papier
    CloseClipboard
End Sub

[morobaboumar]

Bonjour,
bref plus d'info aide à aider !
Note que pour vider le presse papier ce n'est pas natif dans excel il faut passer par les API windows en l’occurrence ici la DLL USER32
A partir de Excel2010 (VB7) pour la compatibilité 32bits/64bits la déclaration des librairies changes
Essais ceci :

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
17
18
19
20
21
22
Option Explicit
 
#If VBA7 Then
    Private Declare PtrSafe Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As LongPtr
    Private Declare PtrSafe Function CloseClipboard Lib "User32" () As LongPtr
    Private Declare PtrSafe Function EmptyClipboard Lib "User32" () As LongPtr
#Else
    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
#End If
 
'!!! Attention tout ce qui se trouve au dessus de cette ligne doit être placé en haut du module !!!
 
Sub ViderPP()
    'Ouverture du presse-papier
    OpenClipboard 0
    'On vide le presse-papier
    EmptyClipboard
    'Fermeture du presse-papier
    CloseClipboard
End Sub

Bonsoir membres du forum,
bonsoir Phil Free,

Merci d'avoir pris un temps précieux pour donner suite à ma requête.
Je vous signale que j'utilise Access 2013 non pas Excel.
Encore une fois, il n'y a pas de réaction de la part de votre code ni message d'erreur.

Je suggère qu'il serait bon d'ajouter un code de message de confirmation indiquant que
le presse-papier a été vidé. On n'aperçoit pas non plus la fenêtre du presse-papier s'ouvrir et se refermer
après l'exécution du code.

Cordialement.

[Phil Free]

Bonsoir membres du forum,
Je vous signale que j'utilise Access 2013 non pas Excel.
Cordialement.

Pour excel ou access avec ce type de méthode c'est du pareil au même d'autan que j'ai bien précisé VB7 qui est commun au pack office 2013 encore une fois pour ce type de methode !

Je suggère qu'il serait bon d'ajouter un code de message de confirmation indiquant que
le presse-papier a été vidé. On n'aperçoit pas non plus la fenêtre du presse-papier s'ouvrir et se refermer
après l'exécution du code.

Cordialement.

Ben y a plus qu'à vous retroussez les manches ! Quand à moi, je ne suis pas ici pour répondre à vos besoins, envies ou même suggestions mais pour aider,aiguiller et ce bénévolement ... pour les besoin,envies ou autre suggestions il faut payer !!!

[morobaboumar]

Bonjour Phil Free,

Ben y a plus qu'à vous retroussez les manches ! Quand à moi, je ne suis pas ici pour répondre à vos besoins, envies ou même suggestions mais pour aider,aiguiller et ce bénévolement ... pour les besoin,envies ou autre suggestions il faut payer !!!
17/07/2020, 19h50
morobaboumar

Ça ne coûte pas cher d'aider les gens; surtout que
le site développez. net a cela comme but 1er.

Appelons la souris souris et chat chat.
Je dis que ton code n'est pas bon.
Et je ne suis pas le seul à avoir fait ce constat.

Soyons sage dans nos propos.
Comment payer ce qui n'est pas bon ?

Si tu veux être payé, produis du bon.
Cordialement.

[loufab]

Bonjour,

Ce code vide parfaitement bien le presse-papier.

C'est un appel API sur le User32 un appel système, je ne vois pas le rapport avec un Excel Access ou autre VBA-Like.

Cordialement,

[morobaboumar]

Bonjour loufab,
Merci pour la réponse!

Je suggère qu'il serait bon d'ajouter un code de message de confirmation indiquant que
le presse-papier a été vidé. On n'aperçoit pas non plus la fenêtre du presse-papier s'ouvrir et se refermer
après l'exécution du code.

Pourriez vous tenir compte de ce que je suggére ?
Cordialement.

[loufab]

Bonjour morobaboumar,

Les contributions sont faites pour être améliorées cela peut-être fait par toute personne qui en éprouve le besoin.

N'hésites pas à nous faire partager ton code une fois le message ajouté.

Cordialement,

[morobaboumar]

Bonjour morobaboumar,
Les contributions sont faites pour être améliorées cela peut-être fait par toute personne qui en éprouve le besoin.
N'hésites pas à nous faire partager ton code une fois le message ajouté.
Cordialement,

Bonjour membres du forum,
Voici ma modeste contribution que laisse à votre appréciation.

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
17
18
19
20
21
22
23
24
 
Sub VIDERPPAPIERS()
On Error GoTo OUMAR
Dim CANCEL As String
 
If MsgBox("ATTENTION !!" & vbCrLf & "VOULEZ-VOUS OUVRIR " & vbCrLf & "LA BOITE DU PRESSE-PAPIER ?", vbQuestion + vbYesNo + vbDefaultButton2, "MODIFICATION") = vbNo Then
CANCEL = True
                 'Ouverture du presse-papier
    OpenClipboard 0
ElseIf MsgBox("ATTENTION !!" & vbCrLf & "VOULEZ-VOUS VIDER " & vbCrLf & "LE PRESSE-PAPIER ?", vbQuestion + vbYesNo + vbDefaultButton2, "MODIFICATION") = vbNo Then
 'On vide le presse-papier
    EmptyClipboard
 
  Else
       MsgBox "ATTENTION !" & vbCrLf & "LE PRESSE-PAPIER" & vbCrLf & " " & "EST VIDE.", vbExclamation + vbOKOnly, "VIDE"
    End If
   'Fermeture du presse-papier
    CloseClipboard
 
    Exit Sub
OUMAR:
   MsgBox "Erreur n° " & Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, "Une erreur est survenue"
 
End Sub

Cordialement.

[iBenny]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Option Compare Database
Option Explicit
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Private Sub Commande0_Click()
    OpenClipboard Me.hwnd
    EmptyClipboard
    CloseClipboard
End Sub

Bonjour Olivier,

Merci pour ton tuyau. C'est valide en VBA Word 2003 sous W10 je présume ?

Si je veux seulement vider le presse papier, suis-je obligé de l'ouvrir avant et le fermer après ou EmptyClipboard tout seul marcherait-il ?

Merci à l'avance pour tes lumières,
iBenny

[iBenny]

Je propose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Declare Function OpenClipboard Lib "user32" (optional ByVal hwnd As Long=0) As Long
Declare Function EmptyClipboard Lib "user32" () As Long
Declare Function CloseClipboard Lib "user32" () As Long
 
Sub MaProcédure()
    OpenClipboard
    doevents
    EmptyClipboard
    doevents
    CloseClipboard
    doevents
End Sub

Salutations
iBenny