XL 2016 Lien hypertexte vers le fichier le plus récent d'un dossier

[le chat perché]

Bonjour à tous,

Je souhaite insérer un lien hypertexte renvoyant au fichier pdf le plus récent d'un dossier (soit par date de création dudit fichier, soit au pire en nommant les fichiers pdf par date de création). L'idée étant que l'ajout d'un nouveau document dans le dossier en question prenne automatiquement la place de l'ancien dans le fichier Excel via le lien hypertexte.

Est-ce envisageable?

Merci d'avance

 

[gbinforme]

Bonjour,
Comme l'ajout d'un nouveau document dans le dossier n'interfèrera aucunement avec Excel,
je pense que tu ne prends pas la bonne méthode.

Il serait plus judicieux de ne pas mettre le lien mais à la place une procédure qui t'ouvrira le fichier le plus récent lorsque tu voudras le consulter.

 

[le chat perché]

Merci de ta réponse !

Peux-tu détailler ladite procédure stp? merci

 

[gbinforme]

re
Tu mets l'information que tu veux dans la cellule, par exemple le répertoire ou nom du fichier à trouver, et la sélection de cette cellule va chercher le fichier le plus récent et l'ouvre comme ferait le lien.

 

[job75]

Bonjour le chat perché, gbinforme,

Téléchargez le fichier et le dossier zippés joints sur le bureau.

Vous mettrez tous les fichiers à étudier dans le dossier "Fichiers".

La formule matricielle en D3: D4 utilise cette fonction VBA :

Function DernierFichier()
Application.Volatile
Dim chemin$, a(1 To 2, 1 To 1), fso As Object, dossier As Object, f As Object
chemin = ThisWorkbook.Path & "\Fichiers" 'à adapter
a(1, 1) = ""
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.getfolder(chemin).Files
    If f.DateCreated > a(2, 1) Then
        a(1, 1) = f.Name
        a(2, 1) = f.DateCreated
    End If
Next
DernierFichier = a 'vecteur colonne
End Function

Elle est volatile, appuyez sur la touche F9 pour qu'elle se recalcule si l'on ajoute des fichiers.

A+

 

[le chat perché]

Merci à vous deux je vais essayer les astuces suscitées !

M