Valeur de press papier

Bonjour

j'essaie de faire une impression écran et de l'intégrer dans une feuille de calcul cependant lorsque j’exécute le code si le presse papier est vide le code plante a la fonction "paste" et si le presse papier contient quelque chose il me colle la valeur precédente, merci de votre aide.

 Private Sub tstimp_click()
Dim objFeuilPass As Worksheet
UserForm1.MultiPage1.Value = 0 ' on donne le focus à l'onglet voulu, 1ère page = 0
Me.MultiPage1.Value = 0

Me.Repaint 'La méthode Repaint est utile si le contenu ou l'aspect d'un objet change
        'de façon significative, et si vous ne voulez pas attendre que le système redessine automatiquement la zone.
        'indispensable ici, sinon l'USF n'est pas rafraîchi assez vite.
keybd_event vbKeySnapshot, 1, 0&, 0& ' capture de l'USF
DoEvents 'permet de donner le temps à l'image d'être chargée / mémoire
'Sheets.Add.Name = "PassImp"  'on ajoute une feuille temporaire au classeur

Set objFeuilPass = Sheets("Photovoltaique")
objFeuilPass.Paste  ' on copie notre Snapshot
With objFeuilPass.Shapes(1)  'on redimetionne l'image à volonté
    .Top = 815
    .Left = 10
    .Height = 800
    .Width = 640
End With

Personne n'as une idée?

Bonjour,

À tester :

 Private Sub tstimp_click()
Dim objFeuilPass As Worksheet
UserForm1.MultiPage1.Value = 0 ' on donne le focus à l'onglet voulu, 1ère page = 0
Me.MultiPage1.Value = 0

Me.Repaint 'La méthode Repaint est utile si le contenu ou l'aspect d'un objet change
        'de façon significative, et si vous ne voulez pas attendre que le système redessine automatiquement la zone.
        'indispensable ici, sinon l'USF n'est pas rafraîchi assez vite.
keybd_event vbKeySnapshot, 1, 0&, 0& ' capture de l'USF
DoEvents 'permet de donner le temps à l'image d'être chargée / mémoire
'Sheets.Add.Name = "PassImp"  'on ajoute une feuille temporaire au classeur

Set objFeuilPass = Sheets("Photovoltaique")
On Error Resume Next
objFeuilPass.Paste  ' on copie notre Snapshot
With objFeuilPass.Shapes(1)  'on redimetionne l'image à volonté
    .Top = 815
    .Left = 10
    .Height = 800
    .Width = 640
End With