Afficher PJ dans un UserForm

[hawk91]

Bonjour à tous,

J'ai trouver un code pour integrer un fichier joint dans excel a partir d'un UserForm

rivate Sub CommandButton4_Click()
Dim x As Integer

'**********************************************
'sélection possible de plusieurs fichiers
'**********************************************
che = Application.GetOpenFilename(, , , , True)
For x = 1 To UBound(che)
Call InsererFichier(che(x))
Next x
End Sub

Sub InsererFichier(ByVal Chemin As String)
Dim Fichier As String
Dim Obj As OLEObject
Dim n As Integer

'*******************************************
'détermine le nombre de fichiers sur la page
'*******************************************
n = ActiveSheet.OLEObjects.Count

'*******************************************
'détermine le nom du fichier
'*******************************************
tabc = Split(Chemin, "\")
Fichier = tabc(UBound(tabc))

'*******************************************
'insère le fichier
'*******************************************
Set Obj = ActiveSheet.OLEObjects.Add(Filename:=Chemin, Link:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{AC76BA86-7AD7-1036-7B44-A70900000002}\PDFFile.ico", _
IconIndex:=0, IconLabel:= _
Fichier _
)

With Obj
'****************************************
'placement en fonction du nombre d'objets
'****************************************
.Top = Cells(1).Top
.Left = Cells(1).Left
End With
End Sub

a la base je souhaitais pouvoir integrer le fichier joins dans outlook mais je ne trouve pas car j'utilise se code pour envoyer le classeur actif et donc pas de fichier joins possible

Private Sub CommandButton3_Click()

lenom = ThisWorkbook.Name
Workbooks(lenom).SendMail Recipients:="j@france.pe.com", _
                          Subject:=" à valider", _
                          ReturnReceipt:=True

Mon problème est que je souhaiterai que l'objet dans le 1er code soit indiquer dans l'UserForm.
Comment dois je proceder?? Passer par un combo qui affiche la cellule ou est envoyer le fichier?
Merci de votre aide