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

G

gbinforme

XLDnaute Impliqué

• 23 Juin 2022

• #2

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.

 

Vote positif 0 Vote négatif

L

le chat perché

XLDnaute Nouveau

• 23 Juin 2022

• #3

Merci de ta réponse !

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

 

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 23 Juin 2022

• #4

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Juin 2022

• #5

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

Vote positif 0 Vote négatif

L

le chat perché

XLDnaute Nouveau

• 28 Juin 2022

• #6

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

M

 

Vote positif 0 Vote négatif