Discussion :

[titi95]

Bonjour

Je souhaite ouvrir un fichier PDF à partir d'un formulaire (à l'aide d'un bouton).
Le nom du fichier est variable suivant l'enregistrement affiché et il stocké dans un champ de la table utilisée par le formulaire.
Comment faire ?

(je n'ai pas réussi à trouver qq chose sur le site, sauf "ShellExecute" mais que je n'arrive pas à faire fonctionner)

Merci d'avance de votre aide !

[Invité]

Bonjour

Pourtant ShellExecute est la solution idéale, c'est que tu dois avoir un problème d'utilisation de cette API.

Mets ce que tu as fait, et regardes bien dans la FAQ.

Philippe

[titi95]

Pour commencer, j'ai tout bêtement fait un copier-coller des deux lignes du FAQ, puis exécuté.
Résultat : fenêtre "macros" ouverte

???

[Invité]

Bonjour
Mets ce que tu as fait

[titi95]

Code :

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

1
2
3
4
5
6
7
Private 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
 
    ShellExecute Me.hwnd, "open", "http://www.developpez.com", "", CurrentProject.Path, 1
 
End Function

[Invité]

Re

Tu as mal lu la FAQ.

Déclaration de l'API en entête de module.

Code :

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

1
2
3
Private 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

Donc pas de End Function

La fonction ne s'utilise pas comme cela, il faut la mettre par exemple sur le clique d'un bouton de commande, donc cette partie :

Code :

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

ShellExecute Me.hwnd, "open", "http://www.developpez.com", "", CurrentProject.Path, 1

Et il faut remplacer http://www.developpez.com par le chemin et le nom de ton fichier PDF.

Les solutions qui se trouvent dans la FAQ sont à adapter au cas par cas.

Philippe

[titi95]

A quoi correspond

Code :

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

Me.hwnd

?
Que dois-je mettre à la place de

Code :

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

Me

?

[Tofalu]

Remplace : Me.hwnd par 0

[titi95]

C'est toujours mystérieux... mais ça marche !

Un grand merci à ceux qui viennent en aide à des développeurs "basic" comme moi.

titi95

[Accessifiante]

Bonjour Philippe,

Je reprends cette discussion car j'ai exactement le même problème mais quelque chose m'échappe...

J'ai copié toute la partie "Private declare function... As Long" dans le code du formulaire où se trouve le champ avec le nom du fichier PDF (appelé Fichier_Scanne).

J'ai ensuite copié

ShellExecute Me.hwnd, "open", "http://www.developpez.com", "", CurrentProject.Path, 1

dans le "Sur clic" de mon bouton.

J'ai modifié mon code ainsi :

ShellExecute Me.hwnd, "open", "C:\Users\Moi\Documents\GFaucher\PDF", "", CurrentProject.Path, 1

Ma question est la suivante : comment j'indique le champ qui contient le nom de mon PDF ? Je présume que c'est à la place des "" (avant Current Project.Path), mais je ne sais pas comment l'écrire...

Merci !

[Accessifiante]

On oublie tout ! J'ai trouvé les éléments que je cherchais ici et là sur le forum.