Macro d'Ouverture pdf avec PDF-XChange Viewer

Bonjour,

J'ai un code pour ouvrir des pdf qui fonctionne chez moi, sur mon pc, mais je dois l'adapter pour un programme dans le cadre de mon travail. Hors là, ça fonctionne plus. Normal me direz-vous, car au boulot nous n'avons pas acrobat reader d'installé mais PDF-XChange Viewer. Et c'est là que j'ai un peu de mal. Transposez mon code pour ce logiciel.

Avez vous une idée ?

Voici le code :

Private Sub CommandButton1_Click()
Dim sFichier As String, WsShell As Object
    sFichier = Me.TextBox1
    If Len(sFichier) = 0 Then Exit Sub
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 " & sFichier
    Set WsShell = Nothing
End Sub

Bonjour,

Peux-tu essayer : WsShell.Run sFichier tout court ?

Ici, ça fonctionne quelque soit le lecteur de pdf ... sur excel 2016

laceline

Bonsoir,

Aucun besoin de tout cet attirail ! VBA dispose d'une fonction Shell capable d'ouvrir n'importe quel fichier et/ou lancer n'importe quelle application...

Une ligne de code !

Cordialement.

Bonjour à tous,

Merci pour vos réponses et vos retour.

Je n'ai pu vous répondre avant étant cloué au lit par une grippe, mais voilà, je viens de tester vos commandes et faire d'autres recherches. Et au final, j'ai trouvé une autre méthode que Shell que je n'arrivais pas à faire fonctionner.

Voilà le code final :

Private Sub UserForm_Initialize()
    ChDir ActiveWorkbook.Path
    Répertoire = ThisWorkbook.Path & "\Exemple\"
    masque = Répertoire + "\*.pdf"
    nf = Dir(masque) '
    Do While nf <> ""
      Me.ListBox1.AddItem nf
      nf = Dir() 
    Loop
 End Sub

Private Sub ListBox1_Click()
Me.TextBox1 = ListBox1.List(ListBox1.ListIndex)
End Sub

Private Sub CommandButton1_Click()
Dim Fichier As String
    Fichier = ThisWorkbook.Path & "\Exemple\" & Me.TextBox1.Value
    ThisWorkbook.FollowHyperlink (Fichier)
End Sub