Ouvrir un Pdf depuis Excel

Bonjour,

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

Code:

---

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

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:

---

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:

---

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?

Ouaip merci beaucoup :king:

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

Dans le module du fichier excel:

Code:

---

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:

---

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

---

Et voilà c'est top comme çà

Merci pour ton aide