Discussion :

[jean30]

Bonjour à tous,
J'ai bien regardé tous les sujets et même davantage et la conclusion est que pour environ 5000 factures (il y en a de très petites) le lien hypertexte semble lourd à gérer.
Je me tourne donc vers une macro comme celle ci-dessous, mais qui ne fonctionne pas. De plus, il faudrait qu'elle puisse fonctionner avec tous lecteurs de Pdf.
Sur mon PC j'ai Foxit Reader
En vous remerciant de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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"   'mon dossier
    Siret = Target
    If Siret <> "" Then
      Shell "C:\Program Files(x86)\Foxit Software\Foxit Reader\FoxitReader.exe " & CheminDOc & "\" & Siret & ".pdf"   'chemin de Foxit Reader
      Shell "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe " & CheminDOc & "\" & Siret & ".pdf" 'chemin supposé pour Adobe Reader
    Else
      MsgBox "La cellule est vide, veuillez double cliquer sur une autre cellule"
    End If
  End If
End Sub

http://www.cjoint.com/c/GJwmJkteJLO

[RyuAutodidacte]

Bonjour,

Voir ce lien : https://www.developpez.net/forums/d7...i/#post4539911
Ce qui est intéressant c'est que apparemment on a pas besoin de préciser l'exécutable et donc faut juste indiqué l'emplacement du fichier quelqu'il soit

[kiki29]

Salut, kif kif

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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, hwnd As Long
    sFichier = ThisWorkbook.Path & "\" & "Test.pdf"
    ShellExecute hwnd, "Open", sFichier, 0&, 0&, SW_SHOWNORMAL
End Sub

[jean30]

Bonjour RyuAutodidacte,
Je te remercie c'est exactement ce dont j'avais besoin.
Bonne fin de journée.

[jean30]

Re,
Si, au lieu de la colonne A je souhaite que ce soit dans la colonne D que dois-je changer svp.
En vous remerciant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_BeforeDoubleClick(ByVal C As Range, Cancel As Boolean)
    Dim fichier_nom As String, fichier_emplacement As String
    Cancel = -1
    If C.Column = 1 And C.Row > 7 Then
        On Error GoTo fin
        fichier_nom = Selection.Value & ".pdf"
        ' chemin adapter
        fichier_emplacement = "C:\Travaux\"
        CreateObject("WScript.Shell").Run fichier_emplacement & fichier_nom
        Exit Sub
    End If
fin: MsgBox "Fichier Pdf inexistant."
End Sub

[unparia]

Bonjour
quand je "tombe" sur une telle question, à savoir :

Si, au lieu de la colonne A je souhaite que ce soit dans la colonne D que dois-je changer

je me dis que j'ai bien raison de ne pas croire que les codes distribués "tout-cuits" sont un apprentissage; qu'ils sont analysés et compris.
On en a là une preuve manifeste.
Que faire, dans un tel cas ? Je préfère quant à moi ne pas être complice de l'entretien d'un certain état.
On me dira que je suis rude ? Il est pire d'être d'une certaine manière assez "malhonnête"
Bonne nuit.

EDIT : je devine hélas la réaction (du grand "classique" - chanson devenue habituelle) probable de jean30. Elle sera du genre "si tu ne veux pas m'aider, passe ton chemin. Je n'ai que faire de tes réponses, etc... etc ...").
J'observe qu'il est sur ce forum depuis plusieurs années et qu'il ne semble pas avoir commencé à apprendre les rudiments-mêmes de VBA.

[clementmarcotte]

Normalement cela devrait générer un instinct de recherche

Column

Et puis Excel 2003 n'est pas Excel 2016. La touche mène à l'aide interne