Coller print screen à partir du presse papier

Bonjour Tous le monde
je travail sur un programme en Visuel basic et je veux quand je clique sur print screen pour un fichier Excel je le colle automatiquement dans le cors d'un message et l'envoyer par la suite

****voici le code*****

-----------------------------------------------
Dim OLApp As Outlook.Application
Dim OLMail As Outlook.MailItem
Set OLApp = New Outlook.Application
Set OLMail = OLApp.CreateItem(olMailItem)

****ici je passe des valeur pour l'objet et le corps****


OLMail.Subject = " " & TxtMontant & " " & CmbDevise & " " & CmbSrhClient & " " & CmbNature & " " & DxtDateCaisse & " " & DxtHeureCaisse & " " & V_User & " "
'Set rs = New Recordset
'DynRst rs
'If rs.State = 1 Then rs.Close
'rs.Open "Select * From MailTo", DB
' If Not (rs.EOF And rs.BOF) Then
'Sql = ""
'Do Until rs.EOF
'Sql = Sql + rs("MailTo") + ";"
'rs.MoveNext
'Loop
' Sql = Mid(Sql, 1, Len(Sql) - 1)
'End If
'OLMail.To = "MailTo"
OLMail.To = "i.sbihi@casasweethome.com"
OLMail.CC = "sbihissam@gmail.com"
OLMail.BCC = "sbihissam@yahoo.fr;sbihissam@gmail.com"
' OLMail.To = "bekkmm@gmail.com"
s = ""
s = s + "Client : " & CmbSrhClient & "" + Chr(10)
s = s + "Séjour Du : " & MSF(0).TextMatrix(MSF(0).Row, V_FlxS.Dt_Debut) & " Au : " & MSF(0).TextMatrix(MSF(0).Row, V_FlxS.Dt_Debut) & "" + Chr(10)
s = s + "Séjour Du : " & CmbAppartement & " " + Chr(10)
s = s + "Receveur : " & V_User & " " + Chr(10)
s = s + "Date d'encaissement : " & DxtDateCaisse & " " + Chr(11)
s = s + "Heure D'encaissement : " & DxtHeureCaisse & " " + Chr(10)
s = s + "Nature : " & CmbNature & " " + Chr(10)
s = s + "Devise : " & CmbDevise & " " + Chr(10)
s = s + "Taux : " & TxtTaux & " " + Chr(10)
s = s + "Montant : " & TxtMontant & " " + Chr(10)

*****ici j'essaye de récupérer le print screen à partir du presse papier*******
s = Clipboard.GetData(vbCFBitmap)


OLMail.Body = s
OLMail.Send
Set OLMail = Nothing
Set OLApp = Nothing
FrameSend.Visible = False
Call Form_Load

Nb j'ai pas d'erreur pour l'envoie mes dans l'email je ne trouve que les valeurs mais pas le contenu du presse papier

si quelqu'un peut m'aider et merci d'avance

Configuration: Windows XP
Firefox 2.0.0.6