Code Vba Résolu/Fermé

Question

Bonjour chers amis, 

J'essaie  en double cliquant en colonne A qui contient cette formule : =SI(ESTVIDE(F27);"";A26+1) 
sur le numéro d'ordre (ex. 20) pour que ça m’ouvre la facture 20.pdf enregistrée dans le même dossier et qui se trouve sur le bureau.
Ce pour chaque numéro d'enregistrement quel que soit le logiciel PDF.
J'ai essayer ce code, mais il ne fonctionne pas.
Ne maitrisant pas le Vba je suis perdu.
Je vous remercie de bien vouloir m'éclairer.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Dim Siret As String
Dim CheminDOc As String
 CheminDOc = ChDir("E:\Utilisateurs\Castor\Bureau\Facture rénovation maison")
Siret = Target
    If Siret <> "" Then
         Shell "C:\Program Files\Foxit Software\Foxit Reader\FoxitReader.exe " & CheminDOc & "\" & Siret
         Shell "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & CheminDOc & "\" & Siret
     Else
        MsgBox "La cellule est vide, veuillez double cliquer sur une autre cellule"
    End If
End Sub

Configuration: Windows / Firefox 56.0

M-12 · Answer

Bonjour,
Il faudrait rajouter l’extension du fichier PDF à ouvrir

& Siret &".PDF"

jean300 · Answer

Bonjour M-12
Je te remercie de t'intéresser à ma demande
J"ai fonction ou variable attendu ici
 CheminDOc = ChDir("E:\Utilisateurs\Castor\Bureau\Facture rénovation maison") & Siret & ".PDF"

M-12 · Answer

Re,
Teste comme ceci
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Dim Siret As StringDim CheminDOc As String  If Target.Column = 1 Then    CheminDOc = ChDir("E:\Utilisateurs\Castor\Bureau\Facture rénovation maison")    Siret = Target    If Siret <> "" Then      Shell "C:\Program Files\Foxit Software\Foxit Reader\FoxitReader.exe " & CheminDOc & "\" & Siret & ".pdf"      Shell "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & CheminDOc & "\" & Siret & ".pdf"    Else      MsgBox "La cellule est vide, veuillez double cliquer sur une autre cellule"    End If  End IfEnd Sub

jean300 · Answer

Re,
Même problème à ChDir

M-12 · Answer

Autant pour moi, il faut l'ôter le CHDIR 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Dim Siret As StringDim CheminDOc As String  If Target.Column = 1 Then    CheminDOc = "E:\Utilisateurs\Castor\Bureau\Facture rénovation maison"    Siret = Target    If Siret <> "" Then      Shell "C:\Program Files\Foxit Software\Foxit Reader\FoxitReader.exe " & CheminDOc & "\" & Siret & ".pdf"      Shell "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & CheminDOc & "\" & Siret & ".pdf"    Else      MsgBox "La cellule est vide, veuillez double cliquer sur une autre cellule"    End If  End IfEnd Sub

jean300 · Answer

Re,
Cette ligne est surlignée en jaune
      Shell "C:\Program Files\Foxit Software\Foxit Reader\FoxitReader.exe " & CheminDOc & "\" & Siret & ".pdf"

M-12 · Answer

Re,

As-tu FOXIT Reader installé sur ta machine ?
Si OUI
Le chemin d'accès est -il le bon ?

Idem pour Adobe

jean300 · Answer

Re,
Oui tout ce chemin est bon
J'ai corrigé
C:\Program Files(x86)\Foxit Software\Foxit Reader\FoxitReader.exe
et c'est pareil

M-12 · Answer

Re

Teste Ceci, sinon je ne vois pas

Option ExplicitPrivate 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 LongPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Dim Siret As StringDim CheminDOc As String  If Target.Column = 1 Then    CheminDOc = "E:\Utilisateurs\Castor\Bureau\Facture rénovation maison"""    Siret = Target    If Siret <> "" Then      Const SW_SHOWMAXIMIZED = 3      ShellExecute 0&, "open", CheminDOc & "\" & Siret & ".pdf", 0&, 0&, SW_SHOWMAXIMIZED    Else      MsgBox "La cellule est vide, veuillez double cliquer sur une autre cellule"    End If  End If  End Sub

jean300 · Answer

Re,
Non il ne se passe rien, désolé

Frenchie83 · Answer

Bonjour
En reprenant votre code du début, après CHDIR, il ne doit pas y avoir de parenthèses
ChDir "E:\Utilisateurs\Castor\Bureau\Facture rénovation maison" 
Siret = Target 
Peut-être que cela solutionnera votre problème.
Cdlt

jean300 · Answer

Bonjour Frenchie83,
Je te remercie mais ça met : Attendu fin d'instruction

jean300 · Answer

Re,
J'ai trouvé ceci :
https://www.excel-downloads.com/threads/ouvrir-un-fichier-pdf.220639/
Je vais essayer demain.
Bonne soirée à vous.

Code Vba

13 réponses

Discussions similaires