Bon alors j'ai commencé VBA hier et j'ai un petit probleme:
En gros j'ai un systeme de fichier comme suit:
dossier:train format numerique style xxxx
classeur: annee format: aaaa
feuille: mois format: janvier, fevrier ...
et je dois a partir d'une feuille(donc d'un mois) aller rechercher des données dans des autres feuilles dans un autre dossier et donc dans un autre classeur.
chaque classeur ou je dois aller chercher les donnees portent un nom du type: jjmmaa
et les feuilles du classeur possèdent un nom representant les noms de train

voici 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
22
23
24
25
26
27
28
29
30
31
 
typeA As Integer
typeA = 0
typeB As Integer
typeB = 0
Dim FeuillesTrain As String
FeuillesTrain = Dir("ThisWorkbook.Path/..")
 
Do Until FeuillesTrain = ""
if FeuillesTrain = nom_**&feuille&nomclasseur 
        Sub condition()
            if [FeuillesTrain]NOM_DOSSIER!$F$52>5 then
                Range("B(63+typeA)") = jour
                Range("C(63+typeA)") = references.AddFromFile("FeuillesTrain")
                Range("H(63+typeA)") = [FeuilleTrain]NOM_DOSSIER!$G$54
                typeA = typeA + 1
                Sub condition()
            if [FeuillesTrain]NOM_DOSSIER!$F$52>15 then
 
                typeB = typeB + 1
                Range("G(63+typeA)") = B
                'ici je veu ajouter la lettre B dans le tableau; je sais pas s'il va accepter le(63+typeA) pque je veu faire une liste en fait...
            Else
                Range("G(63+typeA)") = A
            End If
            End Sub
 
        End If
        End Sub
End If
Loop

bon il y a encore quelques problèmes mais la réponse qui m'interresse le plus ici c'est: comment aller chercher toutes les feuilles portant un nom égal a: **mmaa ?

où ** sont les tous les jours, mm sont les mois (janvier février ...) retranscris en type mm(si c'est possible), et aa sont les années soit: les deux derniers chiffres du nom du classeur.


PS:
- Je suis sur une version anglaise d'excel
- S'il y a des erreurs flagrantes ou des choses a changer hésitez pas^^'