Lien hypertexte ou code vba

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2017

• #2

Bonsoir le fil, le forum

La réponse est oui.
Et il y a profusion d'exemples à ce sujet sur le forum...

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 20 Octobre 2017

• #3

Bonsoir Staple1600
Merci de me répondre, j'avais déjà effectué des recherches mais je n'ai pas trouvé.
As-tu un lien à me communiquer ?
En te remerciant

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2017

• #4

Re,

castor30 à dit:

Bonsoir Staple1600
Merci de me répondre, j'avais déjà effectué des recherches mais je n'ai pas trouvé.

Cliquez pour agrandir...

Dans ce cas, pourquoi ne pas l'avoir signalé dès ton premier message ?!?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Octobre 2017

• #5

Re,

Entre la poire et le fromage, déjà trois liens en guise d'inspiration
https://www.excel-downloads.com/thr...-avec-lien-hypertexte.20014183/#post-20106231

https://www.excel-downloads.com/thr...-vers-une-feuille-pdf.20005373/#post-20039857

https://www.excel-downloads.com/thr...-pdf-a-partir-dune-cellule-excel-2010.192564/

 

Dernière édition: 20 Octobre 2017

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 20 Octobre 2017

• #6

Merci Staple1600, je vais étudier cela.
Bonne soirée.

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 21 Octobre 2017

• #7

Re,
J'ai bien regardé tous ces liens 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 d'autre lecteur de Pdf.
En vous remerciant de votre aide.

VB:

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"   [COLOR=#006633]'mon dossier[/COLOR]
    Siret = Target
    If Siret <> "" Then
      Shell "C:\Program Files(x86)\Foxit Software\Foxit Reader\FoxitReader.exe " & CheminDOc & "\" & Siret & ".pdf"   [COLOR=#006633]'chemin de Foxit Reader[/COLOR]
    Else
      MsgBox "La cellule est vide, veuillez double cliquer sur une autre cellule"
    End If
  End If
End Sub

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2017

• #8

Bonsoir le fil, le forum

Fonctionne chez moi

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If InStr(Target.Text, ".pdf") > 0 Then
    With CreateObject("WScript.Shell")
        .Run Chr(34) & Target.Text & Chr(34), 1, False
    End With
End If
End Sub

(Dans les cellules => chemin complet et nom fichier (sans hypertexte) )

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 22 Octobre 2017

• #9

Re,
Merci de me répondre Staple,
Mais ça ne marche pas chez moi, je me demande quel ordi j'ai à moins que ce soit moi...
Pas possible par double clic en colonne A puis sur le n° d'ordre ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2017

• #10

Re

J'avais précisé
(Dans les cellules => chemin complet et nom fichier (sans hypertexte) )

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 22 Octobre 2017

• #11

Re,
Je dois être complétement bouché aujourd'hui, je ne comprend pas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2017

• #12

Re

Avec une image, tu comprends mieux?


PS: Rappel: Le nom de ma macro est Worksheet_SelectionChange

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Octobre 2017

• #13

Bonjour, castor30, Staple1600 😀, le Forum,

Autre possibilité avec le code ci-après, dans le module de l'onglet listant les factures :

Code:

Option Explicit
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:\Users\DoubleZero\Downloads\"
        CreateObject("WScript.Shell").Run fichier_emplacement & fichier_nom
        Exit Sub
    End If
fin:     MsgBox "Fichier inexistant."
End Sub

A bientôt 🙂

P. S. : fichier et PDF doivent être dans le même répertoire.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Octobre 2017

• #14

Bonjour 00

Pourquoi pas ?
fichier_nom = c.Value & ".pdf"

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 22 Octobre 2017

• #15

Re-bonjour,

Staple1600 à dit:

...Pourquoi pas ?
fichier_nom = c.Value & ".pdf"

Cliquez pour agrandir...

En effet, c'est "plus mieux bien" !

A bientôt 🙂🙂

 

Vote positif 0 Vote négatif