Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Toubabou

XLDnaute Impliqué
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?
VB:
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

XLDnaute Barbatruc
Repose en paix
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 ?!...
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…