Autres tester si le Presse Papier (Clipboard) esi vide

[Usine à gaz]

Bonjour à toutes et à tous

Clipboard
vider Excel ok
vider Windows ok

Je cherche à tester si le Presse Papier (Clipboard) est vide.
Pour avertir avec un MsgBox, genre "rien à coller refaire le copier"

Malgré mes tests et nombreuses recherches (également sur des sites anglais), je n'ai pas trouvé.
Je suis sur office2021 (64k)
Je n'ai pas trouvé "la bibliothèque d'objets Microsoft Forms 2.0"

Auriez-vous le bon code ?
Je joins un petit fichier test et je continue mes recherches...
Dans le fichier, un code de @patricktoulon que je ne parviens pas à faire fonctionner.

Grand MERCI à toutes et à tous

 

[Cousinhub]

Bonjour,
N'apporte rien au fil, juste pour signaler que le préfixe 2021 a été rajouté dans la liste des versions utilisées
(Plus besoin de mettre "Autres")
Bonne apm

 

[Staple1600]

Bonjour

Glané sur le net

Sub CheckClipboard()
Dim myDataObject As DataObject
Set myDataObject = New DataObject
myDataObject.GetFromClipboard
If myDataObject.GetFormat(1) = True Then
MsgBox "Clipboard non vide"
Else
MsgBox "Clipboard vide"
End If
End Sub

• A propos de Microsoft Forms 2.0
Chez moi FM20.dll est dans C:\Windows\system32
(Windows 10)

 

[dysorthographie]

Bonjour,
T'es sérieux ?

If PressePapier=""Then

Autres - InputBox

Bonjour à toutes et à tous :) Je bute sur mon besoin suivant : Le contexte Au clic en col "G" sur un n° de téléphone, il est copié automatiquement en cellule "K1" J'ai une recherche (Sub Rechercher_youky()) qui me permet de chercher dans toutes mes feuilles Je colle ou je saisi la valeur...

excel-downloads.com

 

[Usine à gaz]

Bonjour

Glané sur le net

Sub CheckClipboard()
Dim myDataObject As DataObject
Set myDataObject = New DataObject
myDataObject.GetFromClipboard
If myDataObject.GetFormat(1) = True Then
MsgBox "Clipboard non vide"
Else
MsgBox "Clipboard vide"
End If
End Sub

• A propos de Microsoft Forms 2.0
Chez moi FM20.dll est dans C:\Windows\system32
(Windows 10)

Bjr JM
Merci d'être là.
Et merci pour ton code.
Malheureusement ça coince :

 

[Usine à gaz]

Bonjour,
T'es sérieux ?

If PressePapier=""Then

Autres - InputBox

Bonjour à toutes et à tous :) Je bute sur mon besoin suivant : Le contexte Au clic en col "G" sur un n° de téléphone, il est copié automatiquement en cellule "K1" J'ai une recherche (Sub Rechercher_youky()) qui me permet de chercher dans toutes mes feuilles Je colle ou je saisi la valeur...

excel-downloads.com

Bjr dysorthographie

Un peu fatigué le dimanche mais sérieux
Si tu veux me parler du code de Patrick :
#Post 1 "Dans le fichier, un code de @patricktoulon que je ne parviens pas à faire fonctionner."

 

[Staple1600]

Re

@Usine à gaz
Il faut activer la référence dans VBE
ALT+F11 -> Outils -> Références

 

[Usine à gaz]

Bonjour,
T'es sérieux ?

If PressePapier=""Then

Autres - InputBox

Bonjour à toutes et à tous :) Je bute sur mon besoin suivant : Le contexte Au clic en col "G" sur un n° de téléphone, il est copié automatiquement en cellule "K1" J'ai une recherche (Sub Rechercher_youky()) qui me permet de chercher dans toutes mes feuilles Je colle ou je saisi la valeur...

excel-downloads.com

Re
J'avais déjà tenté "If PressePapier=""Then" et pas réussi à le faire marcher

 

[dysorthographie]

Effectivement Getdata retournait nulle c'est réglé ! Désolé

Sub Test()
ClearPressePapier
If PressePapier = "" Then MsgBox "Non"
PressePapier = "toto"
MsgBox PressePapier
End Sub
Public Function ClearPressePapier()
 CreateObject("htmlfile").parentwindow.clipboardData.clearData "Text"
End Function
Public Property Let PressePapier(valeur)
 CreateObject("htmlfile").parentwindow.clipboardData.setData "Text", valeur
End Property

Public Property Get PressePapier()
 PressePapier = "" & CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property

 

[Usine à gaz]

Re

@Usine à gaz
Il faut activer la référence dans VBE
ALT+F11 -> Outils -> Références

Merci JM "ALT+F11 -> Outils -> Références" je connais ...
Mais je ne trouve pas la référence

 

[Staple1600]

Re

@Usine à gaz
Bah, il suffit de faire Parcourir et d'aller pointer sur FM20.dll

 

[Usine à gaz]

Re

@Usine à gaz
Bah, il suffit de faire Parcourir et d'aller pointer sur FM20.dll

LOL d'accord mais je ne l'ai pas dans dans les "Références" et je ne sais pas comment l'ajouter

 

[Usine à gaz]

Merci JM "ALT+F11 -> Outils -> Références" je connais ...
Mais je ne trouve pas la référence

Bon, c'est bon, j'ai trouvé.
Merci JM

 

[Staple1600]

Re

@Usine à gaz
Et donc?
Est-ce que désormais le code exemple du message#3 fonctionne sur ton PC?

 

[Usine à gaz]

Re dysorthographie

ça marche aussi, je l'ai fait comme ça :

Sub test()
'ClearPressePapier
'MsgBox PressePapier
'PressePapier = "toto"
If PressePapier = "" Then
MsgBox ("rien à coller refaire le copier")
End If
End Sub
Public Function ClearPressePapier()
 CreateObject("htmlfile").parentwindow.clipboardData.clearData "Text"
End Function
Public Property Let PressePapier(valeur)
 CreateObject("htmlfile").parentwindow.clipboardData.setData "Text", valeur
End Property

Public Property Get PressePapier()
 PressePapier = "" & CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property

Je joins le fichier avec les 2 solutions qui fonctionnent,

Merci à vous 2