XL 2010 Ouvrir un fichier PDF à partir d'une ComboBox

[Toubabou]

Bonsoir à tous
J'aurai aimé à partir d'une ComboBOX ouvrir un fichier PDF chaleureusement il semble avoir une erreur dans le code.
Pourriez-vous nous aider?

Private Sub Choix_des_Cours_Change()
Chemin = "C:\Users\djodj\Documents\MEGA\Mycologie\Cours JM\Cours\"
            ' CHANGER TON chemin ICI avec le slash à la fin >  \
Direction = Dir(Chemin & "*.pdf")

Do While Len(Direction) > 0
fichierpdf = Choix_des_Cours & ".pdf"
If Direction = fichierpdf Then
Shell ("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " _
  & Chemin & fichierpdf), vbMaximizedFocus
  GoTo fin
End If
Direction = Dir()
Loop
End Sub

Merci par avance
Toubabou

 

[Robert]

Bonjour Toubabou, bonjour le forum,

Même si l'erreur est chaleureuse, il faut préciser quelle est la ligne qui provoque cette erreur et quel est le message d'erreur affiché. Cela nous permet de mieux la cerner et de pouvoir t'aider de manière plus efficace.
Heu... Une question : As-tu bien vérifié que le logiciel Acrobat Reader se trouve bien dans ton PC au chemin indiqué par le code ?!...

 

[kiki29]

Salut, à titre de curiosité voir ici

 

[Toubabou]

Oups pardon, je ne voulais pas écrire chaleureuse, malheureuse.
Ce sont les lignes en rouge qui ne fonctionne pas.
Oui j'ai bien acrobate reader.
Lors de l'ouverture d'acrobate, le fichier n'est pas trouvé