XL 2016 Fichier EXCEL pour archiver docs PDF

cathodique à dit:

Bonjour,

tu crées sur ton fichier des liens hypertextes, en veillant à ne pas modifier l'emplacement de tes fichiers pdf.Regarde la pièce jointe 988289

Cliquez pour agrandir...

cathodique à dit:

Bonjour,
Tu le fais au moment de la création du lien (voir image)Regarde la pièce jointe 988413

Cliquez pour agrandir...

JCGL à dit:

Bonjour à tous,
Salut Cathodique,

Je pense que notre ami souhaiterait une copie du Logo PDF sur chaque ligne de la colonne B pour lesquelles une valeur est présente en colonne A. Et que le lien hyper se fasse automatiquement...

A+ à tous

Cliquez pour agrandir...

JCGL à dit:

Bonjour à tous,

Pour mettre en pratique ce que je préconisais (les *.pdf dans le même répertoire que ce fichier) :

VB:

Option Explicit

Sub Creation()
    Dim DerL&, Lig&, Image As Object
    DerL = Feuil1.Range("A" & Rows.Count).End(3).Row
    Cells.Columns.AutoFit
    Cells.RowHeight = 26

    For Each Image In ActiveSheet.DrawingObjects
        If Image.Name <> "Logo" Then Image.Delete
    Next Image

    For Lig = 2 To DerL
        ActiveSheet.Shapes("Logo").Copy
        Cells(Lig, 2).Select
        ActiveSheet.Pictures.Paste.Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=ThisWorkbook.Path & "\" & Cells(Lig, 1).Text & ".pdf"
    Next Lig
    [A1].Select
End Sub

A+ à tous

Cliquez pour agrandir...