lancer un fichier PDF

Blacksoul, le forum

Voici un code pris sur la toile du net, de Alain CROS sur le MPFE, merci a lui

Private Declare Function FindExecutable& Lib "shell32" Alias "FindExecutableA" _
(ByVal lpFile$, ByVal lpDirectory$, ByVal lpResult$)

Sub LancePDF(Fichier$)
Dim Exe$
Exe = Space(260&)
FindExecutable Fichier, vbNullString, Exe
Shell Left$(Exe, InStr(1, Exe, Chr$(0)) - 1) & " " & Fichier, vbNormalFocus
End Sub

Sub essai()
LancePDF "C:\MonRepPDF\MonFichier.pdf"
End Sub

Salut, G'Claire

Merci à toi G'Claire.

Je vais de suite essayer le code

@+

Bonjour G'Claire, BlackSoul, le Forum

Oui G'Claire, avec un Shell on peut lancer toutes sortes d'application, mais il ne faut pas occulter que pour ouvrir un fichier on peut se simplifier la vie avec un simple "FollowHyperlink".


Sub OpenPDF()
ThisWorkbook.FollowHyperlink "C:\mes documents\MonDocAcrobat.pdf"
End Sub


Bonne Journée
@+Thierry

@Thierry, Blacksoul et le forum

Et oui @Thierry, pourquoi faire simple quand on peu faire compliquer.

Merci de ton conseil, G'Claire