[VBA-E]ouvrir un fichier dont le nom est determiné par sa date de création

**olivertwist** · 17/04/2007, 15h28

Bonjour,

je cherche à créer une macro qui doit ouvrir un fichier .txt afin de récupérer des données journalières qui viennent remplir mon fichier;

Mon problème réside dans savoir comment faire trouver à excel le fichier du jour dans le dossier consacré.
Le nom du fichier est"P1_annéemoisjour"

Voilà où j'en suis de mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    ChDir "Y:\FTSE\End_of_Day\Position_Files"
    Workbooks.OpenText Filename:= _
        "Y:\FTSE\End_of_Day\Position_Files\P1_*.txt", Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
    Range("B3:D3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("EOD_Template_FTSE.xls").Activate
    Range("A5").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Windows("P1_20070416_16_48_04.txt").Activate
    ActiveWindow.Close
 
End Sub

Merci d'avance

**gruget** · 17/04/2007, 15h34

Bonjour,
Bienvenu sur le forum

pour ton pb si tu connais la date du fichier ou tu l'a qq part ca donnerais ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Workbooks.OpenText Filename:= _
"Y:\FTSE\End_of_Day\Position_Files\P1_" & variable_date & ".txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True

à condition bien sur que ta
variable date soit du bon format ce que tu dois pouvoir réaliser en regardant la (enfin je pense)
rémi

**olivertwist** · 17/04/2007, 16h02

Ce lien permet de changer les formats de date dans une feuille excel, mais pas dans le nom du fichier hélas.

Une solution serait peut être de trier les fichiers par leur nom et compte tenu du format de date, il faudrait que je prenne le plus"grand" pour avoir le dernier fichier (P1_20070417 est plus grand que P1_20070416) mais je ne sais pas comment y parvenir...

Merci encore

**gruget** · 17/04/2007, 16h15

Bon avec les fonctions qu'il te donne tu dois pouvoir faire qqchose
le programme que tu fais est bien un prog sous Excel??
en fait pour cibler ce que tu veux tu veux ouvrir le fichier de date aujourdhui??
d'une date connue stockée quelque part
avec un msg box?
parcourir tous les jours depuis un jour donné
...
rémi

**olivertwist** · 17/04/2007, 16h24

C'est bien un prog sous excel...

Sinon, pour contourner la difficulté, n'y a t il pas une manip pour ouvrir le fichier le plus récent à l'intérieur d'un dossier specifié ?

**gruget** · 17/04/2007, 16h31

non mais c pas vraiment une difficulté ta pas trop répondu à ma question
tu veux donc ouvrir le fichier le plus récent uniquement
as-tu un moyen de connaitre présicément le date du fichier? est-ce censé être la date de aujourd'hui?
rémi

**olivertwist** · 17/04/2007, 16h43

J'ai 3 types de fichiers P1_"date au format aaaammjj" , P2_date et P3_date pour chaque jour ouvré.

Cependant je ne dois reprendre que les fichiers à partir d'aujourd'hui, avant c'était fait manuellement.

Je dois mettre une partie des données issues de P1_20070417 dans une feuille excel où elles servent de base de calcul. etc

Il faut donc seulement que j'aide excel à trouver le fichier P1 du jour pour importer mes données et idem avec P2 et P3

Avec une MsgBox ou de manière transparente , ca ne change rien pour ce que j'ai à faire

Merci de ta pztience rémi

**gruget** · 17/04/2007, 16h54

donc si la tache que tu programme ne doit qu'ouvrir le fichier portant la date du jour même ca donnerais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
variable_date = Format(Now, "yyyymmdd")
 
Workbooks.OpenText Filename:= _
"Y:\FTSE\End_of_Day\Position_Files\P1_" & variable_date & ".txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True