Creer un lien hypertexte automatique

Bonjour à tous,

Je me présente brièvement, j'ai 36 ans de la région Rhône Alpes.

J'utilise depuis peu Excel 2010 et c'est devenu mon outil de travail.

Je ne fais de tâches complexes mais plus je l'utilise et plus je me rends compte des énormes possibilités pour améliorer son travail au quotidien.

J'ai bien tenté de chercher sur Google et j'ai pas mal bidouillé mais en vain.

Je vous expose mon problème.

je suis fonctionnaire et je rédige des arrêtés municipaux liés aux animations.

j'ai créé un ficher qui recense toutes les animations ainsi qu'un numéro d'arrêté par animation. Lorsque je rédige un arrêté, je note le numéro d'arrêté correspondant sur Excel. Cet arrêté par en signature puis reviens plusieurs jours après. Une fois revenu de signature, il est enregistré dans un dossier au format PDF.

Je souhaite donc crée un lien hypertexte automatique qui me permette en cliquant sur le numéro d'arrêté que l'arrêté signé en format PDF s'ouvre.

Je sais créer le lien hypertexte manuellement pour chaque numéro arrêté mais cela prend énormément de temps

Je rappelle que je suis novice et que j'ai beaucoup de mal avec les formules, macros...

Le raccourci ou se trouvent tous les arrêtés en PDF: C:\Users\hami_mc\Desktop\2019\Arretés signés 2019

J'espère avoir été clair et compréhensible. J'ai un joint le fichier Excel et une capture du dossier ou sont les arrêtés PDF pour aider à comprendre.

Je vous remercie d'avance pour votre aide.

Bien cordialement,

Chouk

Bonjour,

Tu peux aussi utiliser une macro liée à un bouton !

Code à mettre dans un module standard :

Declare Function ShellExecute _
        Lib "shell32.dll" _
        Alias "ShellExecuteA" ( _
        ByVal hWnd As Long, _
        ByVal lpszOp As String, _
        ByVal lpszFile As String, _
        ByVal lpszParams As String, _
        ByVal lpszDir As String, _
        ByVal FsShowCmd As Long _
        ) As Long

Declare Function FindWindow _
        Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String _
        ) As Long

Sub Ouvrir()

    Dim WSShell As Object
    Dim PDF As Object
    Dim Adobe As String
    Dim Dossier As String
    Dim FichierPDF As String

    Dossier = "C:\Dossier Parent\Dossier Enfant\"
    FichierPDF = ActiveCell.Value & ".pdf"

    If Dir(Dossier & FichierPDF) = "" Then MsgBox "Nom de fichier invalide !": Exit Sub

    ShellExecute FindWindow(vbNullString, Application.Caption), _
                "open", Dossier & FichierPDF, vbNullString, vbNullString, 1

End Sub

Insérer dans la feuille un bouton "Formulaire" et lui attacher la procédure. pour que le fichier soit ouvert, il te faut au préalable sélectionner la cellule contenant le nom du fichier !

Petite précision, il te faut adapter le chemin du dossier dans le code donc adapter ici :

Dossier = "C:\Dossier Parent\Dossier Enfant\"

Merci pour ta réponse rapide Theze, mais comme je le disais je maitrise pas du tout les macros. je crains de ne pas te suivre.

j'ai bien modifié le chemin du dossier mais je ne vois pas ou sélectionner la cellule contenant le nom du fichier...

Voila ou j'en suis...

Dans l'attente de te lire.

Merci encore!

Bonjour chouk,

Voyez si le fichier joint peut vous aider, il utilise les formules ci-dessous, éliminez celle qui ne vous sera pas utile du fichier

Pour Calc:

=LIEN.HYPERTEXTE(CONCATENER(E$1;C2;".pdf");C2)

Pour Excel:

=LIEN_HYPERTEXTE(CONCATENER(E$1;C2;".pdf");C2)

Bonjour njhub,

Votre formule fonctionne à merveille! BRAVO.

Un grand merci, un travail laborieux m'attendais...

J’espère que ça pourra servir à d'autres lecteurs.

Encore merci !

Avec plaisir