Bouton avec Macro qui ouvre un PDF

[carocaro630]

Bonjour,


Je suis sous Windows 7 et Exel 2010. Je crée pour un projet scolaire un classeur Exel qui permet de gérer la veille globale d'une entreprise. J'ai créé plusieurs tableaux que je peux ouvrir comme je veux grâce à des boutons et des macros très simple. Seulement je dois aussi ouvrir des fiches techniques de produits qui sont en pdf ou bien des photos en jpg.
Je sais que je peux mettre des liens hypertextes mais je préfère l'aspect bouton. J'ai essayé pas mal de solution trouvées sur le forum mais aucune ne fonctionne réellement.
Quels codes dois je rentrer dans ma macro afin d'ouvrir mon fichier pdf qui est placé sur un serveur nommé P: et que ce fichier s'ouvre dans une nouvelle fenêtre (adobe reader 11.0). De même, quels codes utilisés pour ouvrir une image avec "la visionneuse de photos windows".

Merci à toutes et à tous.

Caroline.

 

[Gen Rose]

Re : Bouton avec Macro qui ouvre un PDF

J'ai trouvé ceci et je l'ai copié tel quel dans un module pour le tester:

Option Explicit

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long

Const SW_SHOWNORMAL = 1

Sub Ouvrir_pdf_api()

ShellExecute 0, "open", "C:\Nom de ton dossier\Nom de ton document.pdf", "", "", SW_SHOWNORMAL

End Sub

Tu dois t'assurer que ton doc est sur le C (moi au travail, c'est le H) ensuite tu copie-colle le trajet vers ton document (habituellement dossier\fichier), attention de bien mettre tout le chemin si tu as tout plein de sous-dossiers!

C'est la seule chose à modifier dans ce code et il marche très bien.


référence

 

[carocaro630]

Re : Bouton avec Macro qui ouvre un PDF

Ok merci je vais tester et je vous dis ca.

 

[MJ13]

Re : Bouton avec Macro qui ouvre un PDF

Bonjour à tous

Il ya 2 autres façons d'ouvrir un PDF. Pour ls Shell, l'intérêt est qu'on peut mettre la référence d'un autre lecteur de PDF.

Sub TestOuvrePDFHyperlink()
'NF contient le chemin et le nom du fichier PDf dans la cellule active
NF = ActiveCell.Value
ActiveWorkbook.FollowHyperlink (NF)
End Sub

Sub OuvrePDFShell()
'NF contient le chemin et le nom du fichier PDf dans la cellule active
NF = ActiveCell.Value
Shell ("C:\Program Files\Tracker Software\PDF-XChange Viewer\pdf-viewer\PDFXCview.exe " & Chr(34) & NF & Chr(34))
End Sub

 

[carocaro630]

Re : Bouton avec Macro qui ouvre un PDF RESOLU

Bon ça ne fonctionne pas vraiment comme je veux mais j'ai trouvé une solution. Merci à vous. Caro

 

[Gen Rose]

Re : Bouton avec Macro qui ouvre un PDF RESOLU

Bonjour Caro,

S.t.p., si tu as trouvé une solution, peux-tu la poster pour tous les autres qui tomberons sur ce fil? Ce serait super apprécié!

Un GROS merci

Bon ça ne fonctionne pas vraiment comme je veux mais j'ai trouvé une solution. Merci à vous. Caro

 

[carocaro630]

Résolu : Bouton avec Macro qui ouvre un PDF

Alors voici la solution qui fonctionne très bien dans mon cas.

J'ai créer un bouton dans lequel j'ai inséré le code suivant :

Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)

Const SW_SHOWNORMAL = 1
Sub Bouton1_Cliquer()
ShellExecute Application.hwnd, "open", "p:\Qualité 1\produits bio\prodbio.pdf", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Je tiens à remercier tout le monde.

Caro.