Merci c'est exectement ce que je voulais, j'étais en train de patauger avec :

Private Sub CommandButton3_Click()
FileToOpen = Application _
.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf", 1, "Rechercher...")
If FileToOpen = False Then
MsgBox "Operation annulée", vbExclamation
Exit Sub
End If
' manque un truc ?!
End Sub

Petite question maintenant le chemin du fichier est copié dans ma TextBox11 et quand je clique sur un bouton "compléter" la valeur de ma TextBox est recopiée dans une cellule, le code est :

Sheets("Feuil1").Cells(Lg, "I").Value = UserForm1.TextBox11.Value

Le chemin du fichier s'affiche bien mais pas sous forme de lien ce qui est pratique pour l'ouvrir en un seul clic.

C'est une option à cocher dans excel pour qu'il transforme un chemin en lien (je crois que word le fait tout seul quand on tape une adresse internet) ou c'est par VBA qu'il faut passer ?

En tout cas bravo et merci pour la rapidité et l'efficacité !

Bonsoir schont,

Je ne saisis pas le pourquoi de cette erreur, mais une solution simple et rapide est d'ajouter une ligne de traitement de l'erreur en début de la procédure ;

Private Sub CommandButton1_Click()
    On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        UserForm1.TextBox1.Text = .SelectedItems(1)
    End With

End Sub