Bonjour,
 
Je cherche desesperemment à écrire une macro VBA d'ouverture de fichier.
La particularité est que ce fichier, déposé quotidiennement sur un serveur change de nom. Il prend le nom de la date du jour, au format : aaaammjj.txt.
 
Voici la macro actuelle, qui pointe vers un nom de fichier fixe.
Savez-vous comment je pourrais modifier cette macro pour qu'elle ouvre de facon dynamique le fichier du jour ?
 
Merci.      
 
 
Workbooks.OpenText Filename:= _
        "R:\20051003.TXT", Origin _
        :=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 4), Array(12, 4), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1)), _
        TrailingMinusNumbers:=True

bonjour apeter,
 
je pense que ceci devrait t'aider pour mettre ton nom de fichier en variable :

@+ et bon courage

Bonjour,
 
Merci pour ton message, mais je ne vois pas comment inserer cela dans ma macro. Je suis un tout petit débutant... Je mets CES TROIS LIGNES  avant Workbooks.OpenText  ???
Merci.

Oups,
 
bon voila, si tu modifies ton bout de macro comme ci dessous :

 
je pense que ça ira. Si tu as un problème, indiques nous l'endroit ou ça bloque et le type d'erreur.
@+ et bon courage

WaTaShi,
 
MILLE MERCIS. CA MARCHE, et meme que ca marche tres bien.
Je vais passer une excellente nuit!

Cool !    
 
Si tu édite le titre de ton post avec résolu ça pourra en aider d'autres

Oui, tu as tout à fait raison.
J'avais d'ailleurs vu qu'on pouvait le faire...mais..je ne trouve pas comment, et pourtant, j'ai cherché!
Comment dois je faire pour valider la résolution ?
Merci.

tu édite ton premier message (clique sur la petite feuille avec la gomme au bout du crayon) et tu ajoutes juste un "(résolu)" dedans
 
bon courage