ouvrir un fichier en format pdf sous excel en vba

[bruno66]

bonjour sous excel 2007 je peux , lorsque je selectionne une cellule quelconque dans une colonne determinée, ouvrir un fichier excel dans un dossier determinée.
je souhaite pouvoir lorsque je selectionne une cellule , dans la dite colonne , que cela m'ouvre un fichier quelconque dans un dossier mais en pdf..
j'arrive a ouvrir le fichier pdf... en xls... pas cool il me manque l'ouverture automatique adobe .exe dans la formule
j'ai mis en dessous la formule qui fonctionne et le programme a inclure si vous me comprenez

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Si le double clic est fait sur la colonne j
'alors on ouvre le fichier correspondant à la commande
'si il est présent dans le répertoire "pdf"
'sinon message d'erreur
If Target.Column = 10 Then

On Error Resume Next
Workbooks.Open ActiveWorkbook.Path & "\profil\" & Target.Value & ".pdf"
If Err.Number <> 0 Then
Call MsgBox("Le fichier " & Chr(34) & " " & Target.Value & ".pdf " & Chr(34) & " n'éxiste pas dans le répertoire commande en cours.", vbCritical, "Manque fichier commande")
Target.Select
End If
On Error GoTo 0

End If

End Sub
___________________________________________________________________________________________________________________________________________________
actuellement le fichier pdf s'ouvre sous excel... donc pas de visualisation du contenu

comment modifier cette formule en vba afin que mon fichier s'ouvre sachant que adobe est à cette emplacement dans mon ordinateur c\\Program Files\adbeRdr910-fr-FR.exe
merci d'avance
merci de vos reponse
je me demande aussi si avec un programme "free DWG viewer, je puisse eventuellement ouvrir des fichiers dans un dossier en dwg

 

[Kiseki]

Re : ouvrir un fichier en format pdf sous excel en vba

Bonsoir,

ThisWorkbook.FollowHyperlink "Chemin\Fichier.pdf"

 

[kiki29]

Re : ouvrir un fichier en format pdf sous excel en vba

Salut, à adapter à ton contexte

Option Explicit

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
Private Const SW_SHOWNORMAL = 1

Sub Tst
Dim sFichier As String
Dim hwnd As Long
	' .....
	sFichier = ' .....
	ShellExecute hwnd, "Open", sFichier, 0&, 0&, SW_SHOWNORMAL
	' .....
End Sub

 

[bruno66]

Re : ouvrir un fichier en format pdf sous excel en vba

le fichier etant trop volumineux je vous mets des imprim ecran de mon souci et le code actuelle qu'il me faut modifier

 

[bruno66]

Re : ouvrir un fichier en format pdf sous excel en vba

bonjour je fais remonter le sujet pour avoir une reponse en incorporant l'excecution d'adobe suivant mon 1er post encore merci je n'arrive pas a adapter les reponses a mon code

 

[MJ13]

Re : ouvrir un fichier en format pdf sous excel en vba

Bonjour à tous

Regarde peut-être ici:

https://www.excel-downloads.com/threads/ouverture-fichier-pdf.72584/

 

[bruno66]

Re : ouvrir un fichier en format pdf sous excel en vba

bonjour malgré vos code je ne parviens pas a ouvrir sous adobe le fichier pdf suivant mon code si quelqu'un a une solution car je clic sur la cellule correspondant au fichiers pdf a ouvrir dans un classeur excel dans une colonne a n'importe quel niveau merci d'avance encore

 

[MJ13]

Re : ouvrir un fichier en format pdf sous excel en vba

Re

Bon, après, comme tout code, c'est à adapté à ton contexte.

Sinon, joint un fichier avec sa structure pour ouvrir le fichier et le chemin de ton exe Adobe 😕.

 

[bruno66]

Re : ouvrir un fichier en format pdf sous excel en vba

je fichier s'ouvre sous excel mais pas avec adobe dont le chemin est mentionné dans mon premier post aussi c'est pour cela que j'ai remonté le post merci

 

[Kiseki]

Re : ouvrir un fichier en format pdf sous excel en vba

Bonjour,

Ouvre un répertoire, Onglet : Outils, option des dossier, onglet : Type de fichier, Lie le type pdf au programme souhaiter.

Sinon fait clic droit ouvrir avec et coche toujours utiliser ce programme.

Je pense que ça résoudra ton soucis.

 

[MJ13]

Re : ouvrir un fichier en format pdf sous excel en vba

Re

Alors remplace:

Workbooks.Open ActiveWorkbook.Path & "\profil\" & Target.Value & ".pdf"

par

Shell ("c:\Program Files\adbeRdr910-fr-FR.exe " & ActiveWorkbook.Path & "\profil\" & Target.Value & ".pdf")

 

[bruno66]

Re : ouvrir un fichier en format pdf sous excel en vba

bonsoir ,
j'ai essayer ta formule mets me renvoie a fichier non present dans le dossier ...... donc erreur a un moment quand je remet mon ancienne formule refonctionne mais ouvre sous excel... peut etre la positionde l'ouverture ou autre je bute merci

 

[MJ13]

Re : ouvrir un fichier en format pdf sous excel en vba

Re

Alors teste ceci en mettant un fichier Test.pdf dans le dossier "C:\Test", sinon on va pas s'en sortir 😕.

Shell ("c:\Program Files\adbeRdr910-fr-FR.exe" "C:\Test\Test.pdf")

Mais j'ai un doute, il faut voir à supprimer ou non les guillemets du milieu. Si cela ne fonctionne pas, j'ai un autre plan 🙂.

 

[bruno66]

Re : ouvrir un fichier en format pdf sous excel en vba

bonjour voici le fichier et dossier allrgé pour info

 

[bruno66]

Re : ouvrir un fichier en format pdf sous excel en vba

voila le fichier qui doit renvoyé au dossier profil et s'ouvrir sous adobe
merci

lien fichier effacé par moi



j'ai réussi a mettre le fichier sur le site

j'ai modifier le message profil si pas dans dossier
manque que l'ouverture sous sous PDF des fichier
c'est vrai qu'avec un fichier on avancera plus vite merci