Vider automatiquement le presse-papier

Bonjour à tous,

3e fois que je demande de l'aide sur le même projet sur ce forum, mais j'en viens à bout!

Il s'agit cette fois de la dernière phase : je souhaite rendre possible à l'utilisateur d'enregistrer une image de l'userform complété afin de pouvoir l'imprimer si besoin.

Pour ce faire j'ai bricolé une macro trouvée sur le net qui me permet de faire une capture d'écran, ouvrir une nouvelle feuille et copier l'image à l'intérieur (dans un format adapté à une feuille A4 en paysage) en la rognant pour ne conserver que l'userform.

Mon problème vient du fait que si un copier-coller a été effectué et que des données se trouvent donc dans le presse papier, la macro va coller les données du presse papier plutôt que la capture d'écran, c'est frustrant...

Ma question est donc la suivante : sauriez vous comment faire en sorte que la macro renvoie systématiquement la capture d'écran ?

Merci d'avance pour votre aide !

Je joins mon fichier au message, la macro qui commande le screenshot est tout en bas du code.

Pour vider le presse-papier

    Set MSForm = New DataObject
    MSForm.SetText ("")
    MSForm.PutInClipboard
    Set MSForm = Nothing

Bonjour Thev, merci de ta réponse et pardon de répondre si tard...

Ce code fonctionne parfaitement merci de ton aide !

Bonjour

Essaie ça :