Lien hypertexte ou code vba

[castor30]

Bonjour amis du forum,
Je suis en train d'enregistrer mes factures concernant la rénovation de la maison.
Facture et enregistrement des factures sont dans un même dossier.
N° ordre
Date Facture n° Fournisseur Libellé Montant
Cumulé
1 xx xxx xxxx xxxxx xxxxxx xxxxxxx

Est-il possible de placer un lien hypertexte qui m'enverrait vers la facture en .pdf correspondant au numéro d'ordre n° 1 = 1.pdf etc.
En vous remerciant.

 

[Staple1600]

Bonsoir le fil, le forum

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

 

[castor30]

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

 

[Staple1600]

Re,

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

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

 

[Staple1600]

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/

 

[castor30]

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

 

[castor30]

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.

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

 

[Staple1600]

Bonsoir le fil, le forum

Fonctionne chez moi

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) )

 

[castor30]

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 ?

 

[Staple1600]

Re

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

 

[castor30]

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

 

[Staple1600]

Re

Avec une image, tu comprends mieux?

PS: Rappel: Le nom de ma macro est Worksheet_SelectionChange

 

[DoubleZero]

Bonjour, castor30, Staple1600 , le Forum,

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

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.

 

[Staple1600]

Bonjour 00

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

 

[DoubleZero]

Re-bonjour,

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

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

A bientôt