Bonjour à tous,

J'ai des fichiers (toujours le même nom) dans des répertoires sous la forme JJ_MM_AA où je souhaite récupérer des cellules de ces fichiers pour mettre dans un fichier en fonction de dates que je demande par formulaire.
La date de départ est récupérée via le formulaire en A4 pour le jour, B4 pour le mois et C4 pour l'année.
A9=DATE(C4;B4;A4) C11=A9+1 et A6=TEXTE(A9;"jj")&CAR(95)&TEXTE(A9;"mm")&CAR(95)&TEXTE(A9;"aa")
A7=TEXTE(C11;"jj")&CAR(95)&TEXTE(C11;"mm")&CAR(95)&TEXTE(C11;"aa") et A10=DATE(C5;B5;A5)
le tout dans ma feuil1.

J'ai fait une macro pour tester si mon répertoire existe (toutes les dates n'existent pas) et si oui ouvrir les fichiers un par un et récupérer les données que je veux.

Ci-dessous le début de la macro :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub Macro1()
 
Dim MyPath As Variant
Dim A6 As String
Dim A7 As String
Dim A9 As Date
Dim C11 As Date
Dim A10 As Date
Dim i As Variant
 
MyPath = "C:\...\" & Sheets("feuil1").[A6] & ""
 
    If DIR(MyPath, vbDirectory) = "" Then
        MsgBox "Le répertoire n'existe pas"
 
        MkDir MyPath
 
         For i = A9 To A10
            Sheets("feuil1").Range("C11") = A9 + 1
 
            Next i
            A7 = A6
            Range("A6").Activate
            Else
 
 
        If A10 < A9 And A10 > Sheets("feuil1").Range("D10") Then
 
        MsgBox "Date incorrect"
 
        Else
 
        Range("A6").Activate
 
        If DIR(MyPath, vbDirectory) <> "" And Sheets("feuil1").Range("A6") < Sheets("Feuil1").Range("A10") Then
 
 
 
        Workbooks.Open Filename:="C:\...\" & Sheets("feuil1").[A6] & "\Monfichier.xls"
 
        Windows("Monfichier.xls").Sheets("1ère_feuille").Activate
 
 
        MsgBox "fichier monfichier ouvert"
 
Else
 
                MsgBox "fin d'essai"
                End If
            End If
 
         End If
End Sub
Le problème c'est que mon fichier ne s'ouvre pas avec A6+1

Merci de votre aide

Bonne journée

Marine