Discussion :

[carocaro630]

Bonjour,

Je souhaite ouvrir un fichier pdf avec une macro exel. J'ai essayé plusieurs solutions trouvées sur le forum.

La première étant :

Code :

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

ThisWorkbook.FollowHyperlink "C:\leFichier.pdf"

Cela fonctionne correctement puisque c'est tout simplement un lien hypertexte. Seulement j'ai un message qui apparaît " Certains fichiers peuvent contaminer ou endommager votre ordinateur. Il est important de s'assurer que vos fichiers proviennent d'une source sûre. Voulez ouvrir ce fichier ?"

Comment faire disparaître ce message?

La deuxième solution trouvée étant

Code :

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

Shell "C:\Program Files\Adobe\Acrobat 11.0\Reader\acrord32.exe "

Quelle est la suite du code à mettre : est ce le chemin de mon fichier ?

J'ai essayé autre chose du genre

Code :

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

Shell "cmd /c start acrord32.exe ""D:\Temp\NomFichier.pdf"""

Mais là je n'ouvre que l'application.

Merci de vos réponses.

Caro

[PMO2017]

Bonjour,

Essayez le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
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)
 
Const SW_SHOWNORMAL = 1
 
Sub aa()
ShellExecute Application.hwnd, "open", "C:\leFichier.pdf", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

[carocaro630]

Bonjour,

Alors j'ai essayé

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Bouton1_Cliquer()
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)
 
Const SW_SHOWNORMAL = 1
 
Sub aa()
ShellExecute Application.hwnd, "open", "p:\qualité 1\produits bio\prodbio.pdf", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Et j'ai le message suivant qui apparaît

Erreur de compilation. Seuls des commentaires peuvent apparaître après End sub, end function ou end property..

Caro

[luca.donati]

Je crois que tu as inséré le code au mauvais endroit, Carocaro.
C'était un code pour une macro, à insérer dans un module, et même en début de module, puisqu'il commence avec des déclarations de constantes et autres.
Ensuite, la macro commence avec "Sub aa()" et se termine par "End Sub".
Donc "aa" est son nom, qui doit être rappelé là où tu as inséré le code tout entier (l'évènement clic du bouton).
J'ai essayé et ça marche.

[carocaro630]

Super merci, ça fonctionne correctement. Je vais être obligée de revoir un peu l'architecture de mes fichiers mais je vous remercie tous sans exception.

Caro.