Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres tester si le Presse Papier (Clipboard) esi vide

Usine à gaz

XLDnaute Barbatruc
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

  • Clipboard test si vide.xlsm
    22.8 KB · Affichages: 2
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)
Trier par date Trier par votes

job75

XLDnaute Barbatruc
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+
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
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........
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Vider presse Papier VBA
Réponses
11
Affichages
134
Nounours
N
V
  • Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
549
Valter
V
F
  • Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
175
fuioplde
F
R
  • Question
Autres Copie dans le presse-papier d'une sélection multiple
2
Réponses
16
Affichages
1 K
Renaud22
R
  • Question
XL 2021 Formule compter les cellules vides lusqu'à la dernière ligne NON vide
Réponses
10
Affichages
569
Usine à gaz
C
  • Question
XL 2016 Coller plusieurs fichiers 'entiers' dans le presse papier
2 3
Réponses
37
Affichages
2 K
TooFatBoy
O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
222
Olihoes
O
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
155
AlCapone
J
  • Question
XL 2019 PB de copier de valeur dans le presse papier
Réponses
6
Affichages
2 K
JPaul78
J
  • Résolu(e)
XL 2021 Calendrier : à l'affichage ne pas sélectionner de date
2
Réponses
29
Affichages
1 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…