Recherche et afficher le fichier
Bonjour, je me lance dans le vba depuis 1 semaine et je travail sur un fichier pour mon club de sport
se fichier nous permet d'évaluer nos membres, dans ce fichier il est possible d'enregistrer des feuilles en PDF dans le dossier personnel du membre.
j'aimerai afficher les PDF antérieur à la date du jour à la fin du tableau d'évaluation pour avoir une sorte d'historique
cette historique serait donc visible et cliquable
j'arrive a faire une recherche pour afficher les PDF antérieur mais j'affiche tous les PDF, il y a plusieurs évaluation possible; ( évalLV1, évalLV2,...)
je cherche donc a n'afficher que les PDF de l'évalLV1 sur la feuille "évalLV1", les pdf évalLV2 sur la feuille "évalLV2"........
aujourd'hui j'ai tous les PDF ( évalLV1, évalLV2,...) qui s'affiche à la suite
je vous joint le code de ma recherche
If IsEmpty(Sheets("Data").Range("E3")) = False Then
Dim Archer As String
Dim Adresse As String
Dim Dossier As String, Fichier As String, i As Integer
Archer = Range("E2").Value
Adresse = Sheets("Data").Range("E3").Value
Range("A14:A30").ClearContents
repertoire = Adresse & Archer & "\"
ligne = 14
nf = Dir(repertoire & "*.pdf")
Do While nf <> ""
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ligne, 1), Address:=repertoire & "\" & nf, TextToDisplay:=nf
ligne = ligne + 1
nf = Dir ' fichier suivant
LoopJe vous remercie pour votre aide et vous souhaites un très bon WE
Bonsoir Nathann83 et
Une petite présentation ICI serait la bienvenue
Je pense que vous ne l'avez pas encore fait, je vous invite donc à lire :
- La charte du forum
- Quelques fonctionnalités du forum à connaître
Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)
J'attire donc votre attention sur ce fil resté en suspend
https://forum.excel-pratique.com/excel/dupliquer-un-classeur-selon-un-liste-175838
Merci pour votre participation
Cordialement