Demander l'insertion d'un fichier pdf pou inserer des pieces jointe dans un mail

Bonjour,

J'ai récement créé un fichier excel qui permet de renseigner des informations necessaires et ensuite de generer un mail en html via une macro. Je me demandais comment faire pour demander aux utilisatuer d'inserer un pdf directement dans mon fichier excel qui sera ensuite repris en piece jointe de mon mail.

Jai essayé avec ca mais ca ne semble pas fonctionner :
Sub CommandButton1_Click()


With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
If .Show = 0 Then Exit Sub

UserForm1.TextBox1.pdf = .SelectedItems(1)
End With
End Sub

Merci de votre aide.

David