Comment créer auto un lien hypertexte d'après màj dossier

[libellule85]

Bonjour le forum,

J'aimerais créer automatiquement un lien hypertexte dans un fichier excel suivant un dossier.
En effet, j'aimerais que si on met un nouveau fichier (quelque soit l'extension de celui-ci) dans un dossier un lien se crée automatiquement dans le fichier Excel.
Et que le lien soit supprimer si le fichier n'est plus dans le dossier.
Est-ce possible ?
Si oui, d'avance merci pour votre aide

 

[job75]

Re : Comment créer auto un lien hypertexte d'après màj dossier

Bonsoir libellule85,

Curieux que vous n'ayez pas de réponse, c'est pourtant simple :

Sub CreerLiens()
Dim chemin$, fichier$, lig&
With Feuil1 'CodeName de la feuille
  chemin = .Parent.Path & "\Création lien\"
  fichier = Dir(chemin & "*") '1er fichier du dossier
  lig = 2
  .Range("A2:A" & .Rows.Count).Delete xlUp 'RAZ
  While fichier <> ""
    .Hyperlinks.Add .Cells(lig, 1), chemin & fichier, TextToDisplay:=fichier
    lig = lig + 1
    fichier = Dir 'fichier suivant
  Wend
End With
End Sub

Vous pouvez faire exécuter cette macro par une Workbook_Open et/ou une Worksheet_SelectionChange.

A+

 

[libellule85]

Re : Comment créer auto un lien hypertexte d'après màj dossier

Bonsoir Job75,

Un grand grand merci pour ta solution, je viens de l'essayer elle fonctionne impeccablement.

Encore merci et bonne soirée