Code Vba

Résolu/Fermé

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 21 oct. 2017 à 13:27
jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 - 21 oct. 2017 à 18:18

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

A voir également:

Code Vba
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Code windows 10 - Guide

13 réponses

Réponse 1 / 13

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
21 oct. 2017 à 13:40

Bonjour,
Il faudrait rajouter l’extension du fichier PDF à ouvrir

& Siret &".PDF"

Réponse 2 / 13

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
21 oct. 2017 à 13:45

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"

Réponse 3 / 13

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
21 oct. 2017 à 14:01

Re,
Teste comme ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Siret As String
Dim 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 If
End Sub

Réponse 4 / 13

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
21 oct. 2017 à 14:04

Re,
Même problème à ChDir

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 13

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
21 oct. 2017 à 14:09

Autant pour moi, il faut l'ôter le CHDIR

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Siret As String
Dim 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 If
End Sub

Réponse 6 / 13

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
21 oct. 2017 à 14:17

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

Réponse 7 / 13

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
21 oct. 2017 à 14:22

Re,

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

Idem pour Adobe

Réponse 8 / 13

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
21 oct. 2017 à 14:31

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

Réponse 9 / 13

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
21 oct. 2017 à 14:51

Re

Teste Ceci, sinon je ne vois pas

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 Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Siret As String
Dim 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

Réponse 10 / 13

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
21 oct. 2017 à 14:56

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

Réponse 11 / 13

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
21 oct. 2017 à 17:34

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

Réponse 12 / 13

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
21 oct. 2017 à 18:00

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

Réponse 13 / 13

jean300 Messages postés 374 Date d'inscription jeudi 11 août 2016 Statut Membre Dernière intervention 13 janvier 2020 14
21 oct. 2017 à 18:18

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

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Acces à snapchat temporairement désactivé

code d'activation GTA 5 steam

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters