Function ChoixLienFactAchat()
Dim sFilter As String, VPath As String, VPathFic As String
Dim NumFac As String
' Initialisation des variables
VPath = Sheets("shOptions").Range("C3").Value
sFilter = "Facture PDF (*.PDF)" & Chr(0) & "*.pdf" & Chr(0)
' Choix du fichier
VPathFic = GetFileName(sFilter, VPath, "Choix du fichier PDF")
' Si aucun fichier n'a été choisi
If VPathFic = "" Then
ChoixLienFactAchat = ""
Else
' Retour du lien vers la facture
NumFac = Mid(VPathFic, InStrRev(VPathFic, "\") + 1)
ChoixLienFactAchat = VPathFic
End If
End Function