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

le chat perché

XLDnaute Nouveau
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

XLDnaute Impliqué
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.
 

job75

XLDnaute Barbatruc
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 :
VB:
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+
 

Pièces jointes

  • Test.zip
    20.9 KB · Affichages: 2

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo