[XL-2003] Renvoi de valeurs en fonction d'un choix

[flo300]

Bonjour à tous,

Je dispose de plusieurs fichiers de données.
Dans un fichier récapitulatif, je voudrai obtenir les résultats suivants :
Lorsque je choisis une année, les données d'un tableau correspondant à cette années apparaissent dans mon fichier récapitulatif.

Tous mes fichiers de données sont nommés de la même manière, il y a juste la fin du nom qui change en fonction de l'année.
Par exemple, si je veux afficher les résultats de 2010, il faut que mon fichier aille rechercher les données des fichiers terminant par 2010.

Merci

[dodo69]

Si j'ai bien compris, tu veux aller chercher des données dans des fichiers dont le noms se termine pas la date que tu choisi ?

Donc pour trouver ces fichiers et les ouvrir utilise le code suivant en l'adaptant à ton problème:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Dim MonRepertoire As String
Dim fso As Object
Dim fichier As Object
Dim i As Integer
 
Set fso = CreateObject("Scripting.FileSystemObject")
MonRepertoire = "C:\Dossier"  'adapte le dossier a ton problème
For Each fichier In fso.GetFolder(MonRepertoire).Files
    If Right(fichier.Name, 8) = "2010.xls" Then  'modifie si nécessaire si tu utilise xslm 
    Workbooks.Open MonRepertoire & fichier.Name
    End If
Next fichier

[flo300]

Bonjour dodo69,

Déjà merci pour ta réponse.

Mais mon problème est plus complexe car mon "fichier récapitulatif" comporte un tableau du genre mois*jour le plus fréquenté du mois.
Dans mon tableau j'ai donc une formule qui va me rechercher le jour du mois le plus fréquenté. Chaque cellule comporte donc une formule du même type mais allant chercher la donnée dans un fichier différent vu que j'ai un fichier pour chaque mois de chaque année...

Par exemple, janvier2010; février2010, ... janvier2011; ...

Pour le moment, mon fichier est OK pour 2010, car je l'ai configuré pour cette année-là.
Maintenant, ce que je veux obtenir c'est qu'en sélectionnant l'année 2011 de mon fichier récapitulatif [disons, que j'ai créé une liste des années en A1 par exemple], les données de mon tableau doivent être modifiée pour correspondre aux données de 2011.

Pour info, voici un exemple de formule contenue dans mon tableau :

=RECHERCHEV(D10;'[Janvier2010.xls]Données mois'!$A$773:$B$803;2;FAUX)

Il s'agit donc que lorsque je sélectionne 2011, automatiquement mes formules changent de Janvier2010 à Janvier2011; de Février2010 à Février2011, etc.

Suis-je bien explicite?

Merci à vous.

[Theze]

Bonjour,

J'ai bien peur que tu soit obligée de passer par VBA car Excel fait sa mauvaise tête même avec la fonction INDIRECT.
Sur l'évennement "Change" de la feuille concernée. Attention, dans la formule j'ai mis la lettre du lecteur (D:\), adapte :

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Address(0, 0) = "A1" Then
 
        Range("D3").FormulaR1C1 = "=VLOOKUP(R10C4,'D:\[janvier" & Target.Value & ".xls]Données mois'!R1C773:R803C2, 2, false)"
 
    End If
 
End Sub

Hervé.

[flo300]

Super! je vais essayer ça.
Cela me paraît clair, donc je ne devrais pas avoir de grosses difficultés.

Merci!