Recherche d'un fichier en fonction d'une date

[Trolin]

Bonjour,

j'ai besoin d'un morceau de code qui me permettrait d'ouvrir un fichier en fonction de sa date.
Le nom du fichier se présente comme ceci : "Articles manquants pour approche - 2011-11-17.xls"

Je voudrais que la macro ouvre le fichier avec la date la plus récente (ce n'est pas forcément la veille), pour y rechercher une information avec un vlookup.

voilà je n'y arrive pas donc toute aide sera la bienvenue!!!

merci!

P.S. J'utilise la version 2003 de Excel

 

[Paritec]

Re : Recherche d'un fichier en fonction d'une date

Bonsoir trolin le forum
sans avoir l'adresse de ton dossier ou se trouve tes fichiers cela va être difficile!!!
a+
papou🙂

 

[Trolin]

Re : Recherche d'un fichier en fonction d'une date

Bon d'accord je mets tout 😛

voilà pour le chemin : "V:\Commun\Appros\Fichier Simplifié"
ce dossier comporte que des fichiers intitulés comme dans mon premier post, avec seulement les dates qui varient.

🙂

 

[Paritec]

Re : Recherche d'un fichier en fonction d'une date

Bonjour trolin le forum
donc "pas ton fichier en retour" puisque tu n'as pas daigné seulement travailler un peu !!!!
bref décompresse le dossier joint sur ton bureau, tu as dedans un fichier manquant etc et un fichier trolin, tu ouvres le trolin et tu cliques sur le bouton ouvrir et tu iras recherché le dernier fichier et l'ouvrir dans mon exemple tu n'as qu'un fichier mais daté du mois d'octobre
Ouvres testes et redis moi
a+
papou🙂

 

[Paritec]

Re : Recherche d'un fichier en fonction d'une date

Re Trolin le forum
donc toujours "pas ton fichier en retour" puisque tu n'as pas daigné seulement travailler un peu !!!!
bref décompresse le dossier joint sur ton bureau, tu as dedans un fichier manquant etc et un fichier trolin.xls, tu ouvres le trolin.xls et tu cliques sur le bouton ouvrir et tu iras recherché le dernier fichier et l'ouvrir
une autre version ou je tiens compte d'un changement d'année au cas ou
a+
papou🙂

 

[Trolin]

Re : Recherche d'un fichier en fonction d'une date

Merci Papou, je vais tester ça cet après-midi!

à vrai dire je ne suis pas super calé en VBA, et je ne voyais pas trop comment m'y prendre pour résoudre ce soucis!

merci de ton aide 🙂

 

[Trolin]

Re : Recherche d'un fichier en fonction d'une date

Ca marche nickel pour ouvrir le bon fichier dans mon répertoire, merci!

Par contre, je coince maintenant sur le paramètrage de ma recherchev (j'obtiens une erreur #REF!). Je n'arrive pas à trouver l'erreur, donc si qq'un veut bien y jeter un coup d'oeil, merci!
j'ai essayé avec et sans la fonction Indirect sans résultat 🙁
(Ma cible est en colonne H dans les 2 fichiers, et la valeur à ramener est dans la colonne O)

Voici la macro :

Sub Macro1()
Dim chemin$, fichier$, Frécent$, x$, y$, z$
fichier = "Articles manquants pour approche - "
chemin = "V:\Commun\Appros\Fichier Simplifié"
x = Format(Date, "-mm"): y = Format(Date, "-dd"): z = Format(Date, "yyyy")
1 If FileExiste(chemin & "\" & fichier & z & x & y & ".xls") Then
Workbooks.Open (chemin & "\" & fichier & z & x & y & ".xls")
Else
If z = 2000 Then Exit Sub
If x = -1 And y = -1 Then
z = z - 1: x = -12: y = -31: GoTo 1
End If
If y = -1 Then
y = -31: x = x + 1: GoTo 1
Else
y = y + 1: GoTo 1
End If
End If

' Fichier le plus récent :
Frécent = fichier & z & x & y & ".xls"

Windows("MACRO Fichier Simplifié.xls").Activate

Range("P2").Select
Selection.Value = "[" & Frécent & "]" & "Feuil1!C8:C15"
Range("O2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-7],INDIRECT(R2C16),8,0)"
Range("O2").Select
Selection.AutoFill Destination:=Range("O2:O500")
Columns("O:O").Select
Selection.Copy
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows(Frécent).Activate
ActiveWindow.Close

End Sub

Function FileExiste(nom$) As Boolean
FileExiste = Dir(nom) <> ""
End Function

Merci!

 

[Trolin]

Re : Recherche d'un fichier en fonction d'une date

J'ai mis à jour la Macro ci-dessus

J'ai une erreur #REF! lorsque ca tourne et je ne trouve pas d'ou ça vient. help plz 🙂

 

[Trolin]

Re : Recherche d'un fichier en fonction d'une date

mise à jour!

 

[Paritec]

Re : Recherche d'un fichier en fonction d'une date

Bonjour Trolin le forum
moi perso je ne te répondrai plus, le fichier c'est moi qui ai du faire l'exemple la dernière fois, et là tu redemandes en n'envoyant que la macro, tu penses que je vais faire les fichiers pour toi à chaque fois? la réponse est non !!! donc bonne chance
a+
papou🙂

 

[Trolin]

Re : Recherche d'un fichier en fonction d'une date

Bonjour!

dsl Papou comme je suis encore débutant sur ce forum je n'avais pas réalisé que c'était plus partique d'avoir un fichier entier, même si j'aurais pu m'en douter 🙄

Bref dans le zip joint vous trouverez la macro qui me pose un soucis.
Je pense que mon pb vient du paramètrage de la fonction indirect dans la recherchev, j'ai essayé plein de choses sans arriver à avoir autre chose qu'une erreur #REF! 😡

Merci d'avance si qq'un veut bien y jetter un coup d'oeil!

 

[Paritec]

Re : Recherche d'un fichier en fonction d'une date

Bonsoir trolin le forum
ton fichier en retour
a+
papou🙂

 

[Trolin]

Re : Recherche d'un fichier en fonction d'une date

Merci Papou!

ça marche Nickel, faut maintenant que je décrypte comment t'as fait pour la prochaine fois, car au premier coup d'oeil c'est très différent de ce que j'avais tenté 😉

Juste par curiosité, Recherchev + Indirect, ça ne peut pas fonctionner dans mon cas?

Bon WE à tous!

 

[Paritec]

Re : Recherche d'un fichier en fonction d'une date

Bonjour trolin le forum
si cela pourrait marcher mais moi je suis fin nul en formules alors je fais tout par macro
plus rapide moins lourd pour les fichiers car je passe par des tableaux
a+
papou🙂

 

[Trolin]

Re : Recherche d'un fichier en fonction d'une date

hehe oki merci!