Générer pdf depuis Excel

Bonjour,

Je viens vous solliciter pour un petit soucis que j'ai. Je voulais savoir si c'était possible de générer un document pdf existant en cliquant sur un bouton interractif.

Je vous joins un modèle en pièce jointe.

Je vous remercie en avance,

Houda

Bonjour,

As-tu essayé de faire ceci

Exemple : ===>NomFichierOuvrir = TEST.pdf

ActiveWorkbook.FollowHyperlink Address:=NomFichierOuvrir

ce qui donne :

ActiveWorkbook.FollowHyperlink Address:=TEST.pdf

et/ou

ThisWorkbook.FollowHyperlink "C:\lescheminscompletsdetonpdf"

‪C:\Users\NOMUTILISATEURDETONPC\Desktop\TEST.pdf

(si ton .pdf est sur le bureau d'ou Desktop)

à modifier : NOMUTILISATEURDETONPC par ton nom User de ton PC

crdlt,

André

Si c'est pour générer un PDF depuis Excel, j'ai ça en stock

Sub Save_xls_to_pdf()
Dim dest As String
dest = "C:\utilisateurs\toto\Desktop\Test_xls\"
ActiveSheet.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
dest & Format(Date, "dd ") & ActiveWorkbook.ActiveSheet.Name & Format(Time, " hh""h""mm"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Bonjour,

Il s'agit d'ouvrir le document si je comprends bien...

Exemple en utilisant Shell :

Sub OuvrirTest()
    Dim Applic$, Fich$
    Fich = "E:\Documents\TEST.pdf"
    Applic = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    Shell Applic & " " & Fich, vbNormalFocus
End Sub

Vérifier le chemin de l'exécutable (l'ajuster le cas échéant).

Indiquer le chemin du fichier avec son nom.

Cordialement.

Bonjour MFerrand,

MFerrand a écrit :

Bonjour,

Il s'agit d'ouvrir le document si je comprends bien...

Je n'ai pas tout compris alors car le titre "Générer pdf depuis Excel" me laissait penser le contraire.

Bonjour,

Ton deuxième code foncitonne parfaitement.

Seulement si j'ai bien compris, le document ne peut être ouvert que depuis mon ordinateur n'est ce pas ? Est ce qu'il y'a un moyen de l'ouvrir depuis un autre ordinateur ?

Andre13 a écrit :

Bonjour,

As-tu essayé de faire ceci

Exemple : ===>NomFichierOuvrir = TEST.pdf

ActiveWorkbook.FollowHyperlink Address:=NomFichierOuvrir

ce qui donne :

ActiveWorkbook.FollowHyperlink Address:=TEST.pdf

et/ou

ThisWorkbook.FollowHyperlink "C:\lescheminscompletsdetonpdf"

‪C:\Users\NOMUTILISATEURDETONPC\Desktop\TEST.pdf

(si ton .pdf est sur le bureau d'ou Desktop)

à modifier : NOMUTILISATEURDETONPC par ton nom User de ton PC

crdlt,

André

Merci à tous pour votre précieux aide.

J'ai essayé le test suivant :

Sub test3()

ThisWorkbook.FollowHyperlink "C:\Users\Desktop\TEST.pdf"

End Sub

Ca fonctionne parfaitement, le seul souci c'est qu'il ne peut etre ouvert que depuis un seul ordinateur. Je me demande s'il y'a un moyen de l'ouvrir depuis d'autres pc ?