Autres tester si le Presse Papier (Clipboard) esi vide

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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
🙂
 

Pièces jointes

Dernière édition:
Solution
Bonjour

Glané sur le net
Code:
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)
Bonsoir Lionel, le fil,

Tu peux aussi utiliser cette macro :
VB:
Sub Test()
Application.ScreenUpdating = False
On Error Resume Next
Workbooks.Add 'document auxiliaire
ActiveSheet.Paste
ActiveWorkbook.Close False
MsgBox IIf(Err, "Rien à", "Vous pouvez") & " coller..."
End Sub
A+
 
re
bonsoir
juste en passant
Attention a la notion de vide avec le dataobject
il ne capte pas par exemple une éventuelle capture
donc le clip n'est pas vide mais il le donne comme tel
je préfère passer soit le le htmlfile.parentwindow getcliborddata qui lit absolument tout sorte de contenu
ou alors par les apis openclipbord / getclipboarddata / closeclipboard
😉

attention tout de même pour certains le htmlfile (qui est un object HTMLDOCUMENT) ne fonctionne pas en late binding sur certaines configs très récentes 365 avec 2021 ou 2019 (observé très récemment )
surtout ceux a qui IE a été shunté par la mise ajour

il faut donc l'utiliser en earlybinding
dim htm as htmldocument
set htm =new htmldocument
with htm.parentwindow........
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour