Discussion :

[Clairant]

Bonjour chers amis,
Je suis un débutant en VBA excel, mais je veux votre soutien. En effet, j'ai lu déjà sur le forum une discussion qui prenait en partie en compte ma question mais malheureusement je n'ai pas compris grande chose. En fait, je veux sur clique de l'onglet "Aide" du Menu Help (?) ci-dessous en image, qu'on puisse avoir accès à un fichier pdf ou word externe à l'application.Voici l'userform :




Merci d'avance.

[Theze]

Bonjour,

Avec Api :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Declare Function ShellExecute _
                Lib "shell32.dll" _
                Alias "ShellExecuteA" ( _
                ByVal hWnd As Long, _
                ByVal lpszOp As String, _
                ByVal lpszFile As String, _
                ByVal lpszParams As String, _
                ByVal lpszDir As String, _
                ByVal FsShowCmd As Long) As Long
 
Private Declare Function FindWindow _
                Lib "user32" _
                Alias "FindWindowA" ( _
                ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long
 
Private Sub CommandButton1_Click()
 
    Dim Fichier As String
 
    'adapter le chemin et nom du fichier
    Fichier = "D:\Dossier 1\Dossier 2\Mon fichier d'aide.doc ou .pdf"
 
    ShellExecute FindWindow(vbNullString, Application.Caption), _
    "open", Fichier, vbNullString, vbNullString, 1
 
End Sub

[cobra38]

Bonjour à tous et toutes

Je m'invite dans le débat et j'avoue ne pas comprendre
Pouvez-vous m'éclairer sur la démarche utilisée (API ?)
y aurait-il une autre façon d'ouvrir un "pdf" à partir d'un userform ?

Cordialement

[cerede2000]

Il me semble pourtant qu'avec ceci ça suffit :

Code :

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

ActiveWorkbook.FollowHyperlink "chemin du pdf"

[cobra38]

Désolé mais dans mon cas cela ne semble pas marcher
retour au debogage "impossible d'ouvrir le fichier spécifié"

Code :

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

1
2
3
chemin = ThisWorkbook.Path
FichierPDF = ThisWorkbook.Path & "\" & leFichier
ActiveWorkbook.FollowHyperlink ("FichierPDF")

J'ai du oublier qquchose ..

Cordialement

[kiki29]

Salut, pour cela il y a l'aide en ligne

[Clairant]

Bonsoir,
Merci d'avoir répondu à ma préoccupation, mais je mets toujours avec "API". je dois copier le code "Api" sous le code de mon userform et lancer à nouveau ou bien il y a d'autres démarches?
Sinon, l'approche de "cerede2000" marche parfaitement !!!
Encore Merci. Mais je suis bien curieux de mieux savoir sur "API".

[kiki29]

Salut, pour savoir ce que cache ce terme : API ou chez MicroSoft