Discussion :

[liop49]

Bonjour,

J'ai un petit problème pour ouvrir un fichier Pdf depuis excel voici mon cde pour ouvrir un document word

Code :

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

1
2
3
 Set WordApp = CreateObject("Word.Application")
            WordApp.Visible = True
            Set WordDoc = WordApp.Documents.Open(myrep2 & "\" & nomfich2, ReadOnly:=True)

Je voudrais le faire pour ouvrir un pdf;

Est ce que quelqu'un peut m'aider?

Merci d'avance

Nini la loose

[Pierre Fauconnier]

Bonjour

Il faut voir si tu dois gérer le pdf via Excel ou si tu dois seulement l'ouvrir.

Si tu dois seulement l'ouvrir, tu peux utiliser une api de Windows.

Dans un module standard, déclare ceci

Code :

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

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

Puis, pour ouvrir ton fichier pdf, tu utilises

Code :

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

1
2
3
 
    Reponse = ShellExecute(hwnd:=Me.hwnd, lpOperation:="open", lpFile:=NomComplet, _
        lpParameters:=vbNullString, lpDirectory:=CurrentProject.Path, nShowCmd:=3)

Code dans lequel Reponse est un entier long, et NomComplet est le nom du fichier avec son chemin d'accès. L'opération Open de ShellExecute correspond à l'ouverture du fichier dans l'explorateur, et cela ouvre l'application liée au fichier que tu souhaites ouvrir.

Cela te convient-il?

[liop49]

Ouaip merci beaucoup

Je venais juste de bidouiller un truc dans le même genre que voici :

Dans le module du fichier excel:

Code :

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

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

Dans l'onglet du fichier :

Code :

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

1
2
 fich = "D:\MesDoc\test.pdf" 'à adapter
            ShellExecute 0, "open", fich, "", "", 0

Et voilà c'est top comme çà

Merci pour ton aide