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

Créer une discussion

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 !

S'inscrire

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)
Trier par date Trier par votes
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)
 
Vote positif 0 Vote négatif
Solution
Bonjour,
T'es sérieux ?
Code: 
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
 
Vote positif 0 Vote négatif
Bjr JM 🙂
Merci d'être là.
Et merci pour ton code.
Malheureusement ça coince :

🙂
 
Dernière édition:
Vote positif 0 Vote négatif
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."
🙂
 
Vote positif 0 Vote négatif
Re 🙂
J'avais déjà tenté "If PressePapier=""Then" et pas réussi à le faire marcher 🙂
 
Vote positif 0 Vote négatif
Effectivement Getdata retournait nulle c'est réglé ! Désolé😡

VB: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
Re dysorthographie 🙂

ça marche aussi, je l'ai fait comme ça :
VB: 
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 🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

E
  • Question Question
XL 2019 gestion du presse papier
3 4 5
Réponses
66
Affichages
2 K
patricktoulon
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
638
Valter
V
J
  • Question Question
XL 2019 PB de copier de valeur dans le presse papier
Réponses
6
Affichages
2 K
JPaul78
J
  • Question Question
Microsoft 365 Selon de cellule : je n'ai pas la main
Réponses
3
Affichages
534
Dranreb
  • Question Question
Microsoft 365 tester si valeur dans le presse-papier ou ClipBoard est numérique ou non
2 3
Réponses
37
Affichages
4 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Remplacer le 33 du numéro de téléphone (Petite dernière du WE )
2
Réponses
23
Affichages
3 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Sauvegarder et fermer le fichier et + application si c'est le dernier fichier à fermer
2
Réponses
19
Affichages
2 K
Usine à gaz
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
1 K
VirginieG
V
  • Résolu(e)
Microsoft 365 copier le contenu d'une cellule dans mon textbox
2
Réponses
18
Affichages
2 K
Usine à gaz
  • Question Question
XL 2016 vba si cellule ne contient pas un mot dans un texte
Réponses
10
Affichages
7 K
Usine à gaz
A
  • Question Question
XL 2013 Presse papier et windows 8.1 : "??" [Résolu]
Réponses
1
Affichages
2 K
Alza
A
  • Question Question
Word Enregistrer sous (Macro Word) / avec lien contenu dans Excel ou Presse-papier
Réponses
0
Affichages
1 K
gregory2710
E
  • Question Question
Vider le presse papier avant de fermer le fichier
Réponses
2
Affichages
3 K
Boo2bafoot
B
B
  • Question Question
Problème presse papier
Réponses
0
Affichages
685
Bobif
B
  • Question Question
Coller les valeurs du presse papier sur la premiere ligne vide
Réponses
2
Affichages
617
chris6999
G
  • Question Question
Presse papier se vide quand bascule sur autre tableur
Réponses
2
Affichages
920
guigui971
G
N
  • Question Question
RECHERCHEV ou INDEX/EQUIV avec critère première col vide dans le tableau de recherche
2
Réponses
16
Affichages
2 K
Nico93
N
C
  • Question Question
Supprimer une ligne si cellule vide dans n'importe quelle colonne
2
Réponses
15
Affichages
2 K
eddylle
E
L
  • Question Question
protection, validation via VBA et presse-papier -- DrawingObjects UserInterfaceOnly
2
Réponses
19
Affichages
5 K
luigiF
L
K
  • Question Question
"Impossible d'ouvrir le presse papier"
Réponses
1
Affichages
16 K
Gareth
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…