Discussion :

[cobra38]

Bonjour à Toutes et Tous

Je viens vers vous pour m'indiquer comment sous VBA
lancer un lien hypertexte pour ouvrir un fichier PDF
La technique de l'hypertexte ( fichier JPG) fonctionne bien pour visualiser une vignette dans mon userform
mais je souhaite à partir d'un commande voir le document via un lien hypertexte
j'ai dévoré le forum et je bute sur la commande ad'hoc

actuellement mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
FichierPDF = Application.GetOpenFilename("Fichiers PDF , *.pdf")
    If FichierPDF = False Then Exit Sub
    DoEvents
    iPage = 1
    OuvrirPDF_Page FichierPDF, iPage

se contente d'ouvrir le répertoire mais il serait plus pratique qu'il ouvre directement le fichier
en pointant le lien hypertexte


Merci par avance

[kiki29]

Salut, sans lien hypertexte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub Tst()
Dim WsShell As Object
Dim FichierPDF As Variant
 
    FichierPDF = Application.GetOpenFilename("Fichiers PDF , *.pdf")
    If FichierPDF = False Then Exit Sub
 
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Run "AcroRd32 " & FichierPDF
    Set WsShell = Nothing
End Sub

[cobra38]

" La méthode de l'objet "run" a échoué " ?

Avec cette méthode je n'ouvre toujours qu'un répertoire, je crois
tandis qu'avec la méthode de l'hypertexte on peut ouvrir directement le fichier peut-être ??

Cordialement

[kiki29]

Re, ici cela fonctionne et ouvre le fichier pdf dans Acrobat Reader, fichier qui a été sélectionné via la boîte de dialogue.

[cobra38]

Je plaide coupable kiki29 , mon explication semble pas très claire j'en conviens
mon projet étant simplement d'ouvrir le fichier PDF à partir d'unserform (bouton) de façon directe
à l'aide soit d'un lien hypertexte ou soit par le contenu d'une variable (ici lefichier) contenant le chemin complet sous forme de texte
or la donnée FichierPDF est je crois sous forme "variant"
le fait dans le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FichierPDF = Application.GetOpenFilename(leFichier)

la variable "leFichier" contient bien le chemin complet mais cela me revoie une erreur
de type '1004' indiquant la méthode GetOpenFilename de l'objet Application a échoué
et c'est l'objet de ma question : comment ouvrir le fichier PDF directement sans que l'utilisateur ait à rechercher dans un repertoire

Mille mercis par avance
Cordialement

[kiki29]

Salut, tu as Acrobat Visualisation d'un PDF à la page x
Acrobat Reader Visualisation d'un fichier PDF dans une UserForm

Sinon je laisse tomber car visiblement tu ne comprends rien à ce que tu fais, et ne fais pas ce qu'on t'indique et qui lui fonctionne.