si presse papier vide alors arrêter procédure

[jtitin]

Bonjour à toutes et tous.

je cherche à arrêter la procédure du lancement d'un userform si le presse papier est vide.

donc je clic sur un bouton. l'userform1 ne se lance pas mais un message apparait " Le presse papier est vide" et arrêt de la procédure.

merci pour votre aide

 

[MichelXld]

Re : si presse papier vide alors arrêter procédure

bonsoir

Quel type de données souhaites tu coller et à quel endroit?
s'il s'agit d'un texte, tu peux tester

Dim oDataObject As DataObject
Set oDataObject = New DataObject
 
oDataObject.GetFromClipboard
MsgBox oDataObject.GetText(1)

pour des formats plus complexes, tu peux par exemple adapter les procedures proposées sur ce site (Fait une recherche sur le mot clé EnumClipboardFormats)

VBnet™ Visual Basic Developers Resource Centrehttp://vbnet.mvps.org/index.html?code/avi/avifileinfo.htm




Bonne soirée
MichelXld

 

[jtitin]

Re : si presse papier vide alors arrêter procédure

bonsoir MichelXld

le presse papier doit contenir une copie d'écran
l'userform que je lance par un bouton charge une base de données
et enregistre l'image dans un dossier.

donc si rien dans le presse papier ne pas lancer l'userform

merci

 

[MichelXld]

Re : si presse papier vide alors arrêter procédure

rebonsoir

Tu pourras peut être adapter la macro proposée à notre ami Hellboy

https://www.excel-downloads.com/threads/recuperer-image-du-clipboard.46185/


Bonne soirée
MichelXld

 

[jtitin]

Re : si presse papier vide alors arrêter procédure

bonjour
merci MichelXld pour ton conseil.
c'est cette procédure que j'utilise pour enregistrer mon image.
mais le message apparait un peut tard aprés avoir rempli le formulaire (userform).
oui en effet je pense qu'il est posible d'ulisé une partie de ce code au lancement de l'userform.

merci