Private Sub CommandButton26_Click()
'recherche du CV de la sélection en cours
Dim MyVar As Variant, Prenom As Variant, Nom As Variant
UserForm4.ListBox8.TextColumn = 2
Prenom = UserForm4.ListBox8.Text
UserForm4.ListBox8.TextColumn = 1
Nom = UserForm4.ListBox8.Text
MyVar = Nom & " " & Prenom
Const ThePath As String = "C:\Program Files\Adobe\Reader 8.0\Reader\acrord32.exe"
Dim ThePDF As String
ThePDF = "R:\PARIS\Divers\CV\HELENE\CV\" & MyVar & ".pdf"
If Dir(ThePDF) <> "" Then
Shell ThePath + " " + ThePDF, vbNormalFocus
Else
MsgBox ("No CV found")
End If
End Sub