Discussion :

[Mikayel]

Bonjour,

J'ai un tableau qui contient une liste d'investissements réalisés avec un identifiant de la demande et le montant associé. Afin d'éviter d'avoir à ressaisir trop d'informations, je souhaiterais créer des liens vers des fichiers PDF qui portent le même nom que la valeur contenue dans la colonne A + l'extension PDF.

Colonne A              Colonne B
2014_01_01_A        1000 €              (2014_01_01_A.pdf)
2014_01_01_B        1000 €
2014_01_01_C        1500 €
2014_01_01_D        1750 €

VBA permettrait-il de convertir automatiquement lors de la modification de la feuille les valeurs d'une plage de cellules (A4 à A10000) en liens hypertextes afin que les valeurs soient cliquables et que les PDF s'ouvrent?

Je vous remercie d'avance pour votre aide précieuse,

Michaël

[Marc-L]

Bonjour,

c'est réalisable sans créer de lien en utilisant l'évènement de feuille de calculs Worksheet_BeforeDoubleClick.

Utiliser aussi la propriété Column et la méthode ThisWorkbook.FollowHyperlink.

Voir dans les discussions de ce forum comme par exemple celle-ci
et pour l'ouverture du fichier .pdf, voir aussi cette discussion …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[vinc_bilb]

Bonjour,

Quelquechose de ce style :

Code :

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

1
2
3
4
5
6
 
' Wsh = worksheet 
Wsh.Hyperlinks.Add _
                        Anchor:=Wsh.Cells(RowN, ColAnchHL), _
                        Address:=PdfPath &  Wsh.Cells(RowN, 1).value & ".pdf" 'PdfPath = chemin ou sont vos pdf c:\pdf_data\ par exemple
                        TextToDisplay:=Wsh.Cells(RowN, 1) & ".pdf"

Bonne journée

[Mikayel]

Merci beaucoup pour vos réponses.

J'ai repris le code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Chemin = "R:\Engagements\"
    Extension = ".pdf"
    If Target.Value > "" And Target.Column = 1 And Target.Row > 3 Then
        Cancel = True
        On Error Resume Next
        ThisWorkbook.FollowHyperlink (Chemin & Target.Value & Extension), , True
    End If
End Sub

Bonne journée à vous

[Marc-L]

Félicitations pour l'adaptation !

A défaut de placer les chaînes directement dans la ligne n°7, je modifierais les lignes n°2 & 3 ainsi :

Code :

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

    Const Chemin$ = "R:\Engagements\", Extension$ = ".pdf"