Ouvrir un fichier PDF en VBA sous excel suivant les premières valeurs de la cellule

[bruno66]

bonjour je reviens sur le forum et afin de ne pas brouiller mes message , j'ai preferé en recreer un nouveau , qui sera le prolongement de l'autre initialement
voila je vous mets un fichier qui vous parleras, je et j'essaie d'ouvrir en vba un ou plusieurs fichier PDF suivant les valeurs contenu en debut dans ma cellule
merci de votre coup de main que vous pourrez m'apporter

 

[bruno66]

Re : Ouvrir un fichier PDF en VBA sous excel suivant les premières valeurs de la cell

complement de fichier

 

[bruno66]

Re : Ouvrir un fichier PDF en VBA sous excel suivant les premières valeurs de la cell

j'aurais du faire un zip éventuellement

 

[bruno66]

Re : Ouvrir un fichier PDF en VBA sous excel suivant les premières valeurs de la cell

le dernier pour mes essais
merci d'avance a vous

 

[MJ13]

Re : Ouvrir un fichier PDF en VBA sous excel suivant les premières valeurs de la cell

Bonjour Bruno

Tu peux essayer un code de ce type à remplacer dans le code de la feuille:

Code VBA:
Public NAO
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 "profil"
'sinon message d'erreur
'Stop
If Target.Column = 3 Then
On Error Resume Next
Trouve_Fichier
'Workbooks.Open ActiveWorkbook.Path & "/commandes contrôlées/" & Target.Value & ".pdf"
'Shell ("C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & ActiveWorkbook.Path & "\commandes contrôlées\" & Target.Value & ".pdf"), vbMaximizedFocus
Shell ("C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & NAO), vbMaximizedFocus
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 profil")
Target.Select
End If
End If
'C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe
End Sub

Private Sub Trouve_Fichier()
NAT = ActiveCell.Offset(0, -2)
'Stop
Dim i As Double, z As String
ChDrive Left(ThisWorkbook.Path, 1)
ChDir ThisWorkbook.Path
Set fs = CreateObject("Scripting.FileSystemObject")
i = 1
z = Dir("*.*", 1)
While z <> ""
If z Like "*" & NAT & "*" Then NAO = ThisWorkbook.Path & "\" & z: Exit Sub
i = i + 1
z = Dir
Wend
End Sub

 

[bruno66]

code vba ouvrir fichierPDF nom partielle dans cellule(resolu)

il me fallait juste rajouter dans mon code & "*" dans deux des ligne pour qu'il ne me prenne que le contenu de la cellule ce qui me donne en code finale pour mon fichier Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Si le double clic est fait sur la colonne a
'alors on ouvre le fichier correspondant à la commande
'si il est présent dans le répertoire "commandes controlées"
'sinon message d'erreur
If Target.Column = 1 Then
On Error Resume Next
'Workbooks.Open ActiveWorkbook.Path & "/commandes contrôlées/" & Target.Value & ".pdf"
Shell ("C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & ActiveWorkbook.Path & "\commandes contrôlées\" & Target.Value & "*" & ".pdf"), vbMaximizedFocus
If Err.Number <> 0 Then
Call MsgBox("Le fichier " & Chr(34) & " " & Target.Value & "*" & ".pdf " & Chr(34) & " n'éxiste pas dans le dossier commande controlées.", vbCritical, "Manque fichier pdf")
Target.Select
End If
End If
'C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe
End Sub