Récupérer des valeurs de fichiers excel dont le nom est incomplet

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Chris57

XLDnaute Occasionnel
Bonjour à tous,

dans un dossier d'archivage (1 dossier par an nommé pour cette année Archives UP78 2012) nous enregistrons chaque jours au moins 2 fichiers nommés ainsi :

pour le 5 septembre
CONTRAINTES TECHNIQUES UP 7&8 du 05092012_065654.xlsx
CONTRAINTES TECHNIQUES UP 7&8 du 05092012_065635.xlsx

pour le 4 septembre
CONTRAINTES TECHNIQUES UP 7&8 du 04092012_070752.xlsx
CONTRAINTES TECHNIQUES UP 7&8 du 04092012_070737.xlsx

pour le 3 septembre
CONTRAINTES TECHNIQUES UP 7&8 du 03092012_081341.xlsx
CONTRAINTES TECHNIQUES UP 7&8 du 03092012_064825.xlsx

Mais il peut arrivé qu'il y est plus que 2 fichiers certains jours ! (fallait pas que ce soit facile...)

exemple pour le 1er septembre
CONTRAINTES TECHNIQUES UP 7&8 du 01092012_074927.xlsx
CONTRAINTES TECHNIQUES UP 7&8 du 01092012_074911.xlsx
CONTRAINTES TECHNIQUES UP 7&8 du 01092012_074841.xlsx


La constante des noms de tous les fichier est CONTRAINTES TECHNIQUES UP 7&8 du puis s'en suit la date et l'heure d'enregistrement.


Je cherche maintenant à récupérer les données contenus dans ces fichier dans un autre classeur, et cela chaque jours également.
Donc je dois d'une part chercher le fichier à la bonne date mais aussi les dernier enregistré. Bref ça fait pas mal de conditions.

Inutile d'ouvrir ces fichiers, des liens hypertextes vers les valeurs qu'ils contiennent me suffiraient, car je ne récupère que 13 valeur par fichier.
Au pire s'il y a plus que 2 fichiers sur 1 jour, je peux très bien récupérer les liens hypertextes de tous les fichiers en vrac et faire un trie par la suite.


Si vous avez des pistes !!!
 
Re : Récupérer des valeurs de fichiers excel dont le nom est incomplet

Salut Chris57

Une boucle avec un DIR(Chemin\DebutNomFichier*) devrait te permettre de retrouver tous les noms de tes fichiers à une date donnée 😉

Une petite recherche sur le forum ...

a+
 
Re : Récupérer des valeurs de fichiers excel dont le nom est incomplet

J'ai tenté cela mais ça ne répond pas à mes besoins :

Code:
' RECHERCHE DES DERNIERS FICHIERS ENREGISTRES
        ' Détermination du nom du dossier d'archive des contraintes tech à récupérer
            DOSSIERarchive = "L:\UP78\CONTRAINTES TECHNIQUES\Archives UP78 " & Year(Date) & "\"
            [D54] = DOSSIERarchive
            
            
        ' Ouverture de la boîte de dialogue pour sélectionner les bon fichiers d'archive
            Application.Dialogs(xlDialogOpen).Show ("L:\UP78\CONTRAINTES TECHNIQUES\Archives UP78 2012")
        
        ' Détermination du nom du fichier d'archive des contraintes tech à récupérer
            FICHIERarchive = """" & "CONTRAINTES TECHNIQUES  UP 7&8 du " & Format(Date + 1, "dd") & Format(Date + 1, "mm") & Year(Date) & """"
            [D53] = FICHIERarchive
        
        
            FICHIERs = Dir(DOSSIERarchive)
            
            
        ' Recherche dans les archives
            a = 0
            Do Until FICHIERs = ""
                If FICHIERs Like "CONTRAINTES TECHNIQUES  UP 7&8 du " & Format(Date + 1, "dd") & Format(Date + 1, "mm") & Year(Date) & "*" Then
                    Workbooks.Open DOSSIERarchive & FICHIERs
                    a = 1
                    Exit Do
                End If
                FICHIERs = Dir()
            Loop
        ' Si l'archive n'est pas trouvée
        If a = 0 Then MsgBox ("pas trouvé")

Je peux effectivement ouvrir un fichier d'une date bien précise, mais ça s'arrête là...


Autre piste que j'explore, les liens :

Code:
    DOSSIERarchive = "='L:\UP78\CONTRAINTES TECHNIQUES\Archives UP78 " & Year(Date) & "\"
    FICHIERarchive = "[CONTRAINTES TECHNIQUES  UP 7&8 du "
    
    
    [B1] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]CT_UP_78'!$B$7"
    [B2] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]CT_UP_78'!$B$9"
    [B4] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]CT_UP_78'!$A$13"
    [C4] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]CT_UP_78'!$B$13"
    [D4] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]CT_UP_78'!$C$13"
    [E4] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]CT_UP_78'!$D$13"
    [F4] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]CT_UP_78'!$E$13"
    [G4] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]CT_UP_78'!$F$13"
    
    [B6] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]Calcul UP7_8'!$BB$5"
    [C6] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]Calcul UP7_8'!$BB$15"
    [D6] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]Calcul UP7_8'!$BB$25"
    [E6] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]Calcul UP7_8'!$BB$35"
    [F6] = DOSSIERarchive & FICHIERarchive & "05092012_065654.xlsx]Calcul UP7_8'!$BB$45"
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
587
Retour