simplifier un code ????

[dran_200]

Bonjour,
Grace à votre aide j'ai un code qui fonctionne, mais que je voudrais simplifier. Ce code me permet d'ouvrir un fichier pdf. Mon soucis est que suivant la version de reader, ça ne fonctionne plus. Et il possible d'avoir un code en spécifiant que le fichier à ouvrir sans dire avec quel logiciel ?

Voila le code :

Private Sub CommandButton1_Click()
Dim pdfdoc As String
Dim mypath As String

mypath = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe"
pdfdoc = TextBox1.Value
Shell mypath & " " & ActiveWorkbook.Path & "\Notice\" & pdfdoc, vbNormalFocus

End Sub

Merci pour votre aide

 

[job75]

Re : simplifier un code ????

Bonjour dran_200,

pdfdoc = TextBox1 'doit comporter l'extension du fichier
ThisWorkbook.FollowHyperlink ActiveWorkbook.Path & "\Notice\" & pdfdoc

A+

 

[dran_200]

Re : simplifier un code ????

Bonjour,

Merci pour ton aide. ça fonctionne