Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel PDF

PDF

2 réponses
Avatar
Jean
J'aimerais ouvrir un document PDF
à partir d'une macro.
Est ce possible ?
Merci
Guy
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
j
ThisWorkbook.FollowHyperlink "c:rien.pdf", , True


http://jacxl.free.fr/



"Jean" a écrit dans le message de news:
brvkvu$1f45t$
J'aimerais ouvrir un document PDF
à partir d'une macro.
Est ce possible ?
Merci
Guy




Avatar
Alain CROS
Bonjour.

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:MonRepPDFMonFichier.pdf"
End Sub

Alain CROS.

"Jean" a écrit dans le message de news: brvkvu$1f45t$
J'aimerais ouvrir un document PDF
à partir d'une macro.
Est ce possible ?
Merci
Guy