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