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

Version imprimable

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:

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

Bonjour,
Bienvenu sur le forum
:tagcode:
pour ton pb si tu connais la date du fichier ou tu l'a qq part ca donnerais ca:
Code:

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

17/04/2007, 16h02
olivertwist

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
17/04/2007, 16h15
gruget

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
17/04/2007, 16h24
olivertwist

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é ?
17/04/2007, 16h31
gruget

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
17/04/2007, 16h43
olivertwist

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 :oops:

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

Code:

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

teste et dis moi si ca marche
:D
rémi

17/04/2007, 17h29
olivertwist

Ca marche apres 2 ou 3 menues modifications :lol:

Merci beaucoup rémi.