[VBA-E] probleme de recherche de fichier
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:
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^^'