Discussion :

[Kutoh]

Bonjour,

J'ai écris un code VBA permettant de me récupérer le nom, le chemin et la date de dernières modifications des fichiers contenus dans un dossier et de les stocker dans un tableau

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
32
33
34
35
 
Sub essaie123()
 
    Dim i As Integer, j As Integer
    Dim dimension1 As Integer
 
 
 
    Dim oCom1 As Scripting.FileSystemObject
    Dim oCom1Fd As Folder
 
Set oCom1 = New Scripting.FileSystemObject
Set oCom1Fd = oCom1.GetFolder("Chemin d'accès du dossier")
 
dimension1 = oCom1Fd.Files.Count
 
 
Dim ImTableau1() As String, ImTableau2() As String, ImTableau3() As Date
Dim affichage As Variant, Fichier As File
 
 
If dimension1 > 0 Then
    affichage = ""
        For Each Fichier In oCom1Fd.Files
            i = i + 1
                ImTableau1(i) = Fichier.Name
                ImTableau2(i) = Fichier.Path
                ImTableau3(i) = Fichier.DateLastModified
                affichage = affichage & vbCrLf & ImTableau1(i) & ImTableau2(i) & ImTableau3(i)
        Next Fichier
End If
 
MsgBox affichage
 
End Sub

le problème c'est que lorsque j'exécute ma macro, un message d'erreur s'affiche en me disant:

l'indice n'appartient pas à la selection

au niveau de la ligne de code suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ImTableau1(i) = Fichier.Name

J'aimerai savoir s'il vous plait ce qui ne vas pas avec mon programme.
Merci d'avance

[Invité]

il faut redimensionner ton tableau: ReDim Preserve ImTableau1(i)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ReDim Preserve ImTableau1(i)

j'ai défini un type c'est plus lisible:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Type infoFichier
    Name As String
    Path As String
    DateLastModified As Date
 End Type  
Dim ImTableau1() As infoFichier

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
Type infoFichier
    Name As String
    Path As String
    DateLastModified As Date
 End Type
Sub essaie123()
 
    Dim i As Integer, j As Integer, n As Long, d As Variant
    Dim s As String, nbre As Integer, dimension1 As Integer
    Dim c1 As Long, c2 As Long
 
 
    Dim oCom1 As Scripting.FileSystemObject
    Dim oCom1Fd As Folder
 
Set oCom1 = New Scripting.FileSystemObject
Set oCom1Fd = oCom1.GetFolder("Chemin d'accès du dossier")
 
dimension1 = oCom1Fd.Files.Count
 
 
Dim ImTableau1() As infoFichier
Dim affichage As Variant, Fichier As File
 
 
If dimension1 > 0 Then
    affichage = ""
        For Each Fichier In oCom1Fd.Files
             ReDim Preserve ImTableau1(i)
                ImTableau1(i).Name = Fichier.Name
                ImTableau1(i).Path = Fichier.Path
                ImTableau1(i).DateLastModified = Fichier.DateLastModified
                affichage = affichage & vbCrLf & ImTableau1(i).Name & " " & ImTableau1(i).Path & " " & ImTableau1(i).DateLastModified 
        Next Fichier
End If
 
MsgBox affichage
 
End Sub

[SMBeccaria]

Bonjour,

Essaie comme cela:

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
 
Sub essaie123()
 
    Dim i As Integer, j As Integer, n As Long, d As Variant
    Dim s As String, nbre As Integer, dimension1 As Integer
    Dim c1 As Long, c2 As Long
 
 
    Dim oCom1 As Scripting.FileSystemObject
    Dim oCom1Fd As Folder
 
Set oCom1 = New Scripting.FileSystemObject
Set oCom1Fd = oCom1.GetFolder("Chemin d'accès du dossier")
 
dimension1 = oCom1Fd.Files.Count
 
 
Dim ImTableau1() As String, ImTableau2() As String, ImTableau3() As Date
Dim affichage As Variant, Fichier As File
 
If dimension1 > 0 Then
    affichage = ""
    i = 0
        For Each Fichier In oCom1Fd.Files
                ReDim Preserve ImTableau1(i)
                ReDim Preserve ImTableau2(i)
                ReDim Preserve ImTableau3(i)
                ImTableau1(i) = Fichier.Name
                ImTableau2(i) = Fichier.Path
                ImTableau3(i) = Fichier.DateLastModified
                affichage = affichage & vbCrLf & ImTableau1(i) & ImTableau2(i) & ImTableau3(i)
                i = i + 1
        Next Fichier
End If
 
MsgBox affichage
 
End Sub

[Kutoh]

Merci ça marche.
Pourrai-je donc considérer que mon tableau défini comme suit?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ImTableau(i,3)
'avec i étant le nombre de fichiers dans mon dossier, et 3 qui est le nombre de
'colonnes composées respectivement du nom, du chemin, et de la date de
'dernière modification

[Invité]

je sais pas si tu parle de ma proposition, mais en ce qui me concerne je proposai de créer ton propre type de variable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Type infoFichier
    Name As String
    Path As String
    DateLastModified As Date
 End Type  
Dim ImTableau1() As infoFichier
ReDim Preserve ImTableau1(i)
ImTableau1(i).Name = Fichier.Name
ImTableau1(i).Path = Fichier.Path
ImTableau1(i).DateLastModified = Fichier.DateLastModified

[Kutoh]

Ok merci

[Kutoh]

Bonjour,
j'ai voulu changer le code précédent en écrivant celui-ci

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
Sub essaie123()
 
    Dim i As Integer
 Dim oCom1 As Scripting.FileSystemObject
    Dim oCom1Fd As Folder
 
Set oCom1 = New Scripting.FileSystemObject
Set oCom1Fd = oCom1.GetFolder("Chemin d'accès fichiers")
 
dimension1 = oCom1Fd.Files.Count
Dim ImTableau() As Variant
 
Dim affichage As Variant, Fichier As File
 
 
If dimension1 > 0 Then
    affichage = ""
        For Each Fichier In oCom1Fd.Files
             ReDim Preserve ImTableau(1 To i, 1 To 3)
 
                ImTableau(i, 1) = Fichier.Name
                ImTableau(i, 2) = Fichier.Path
                ImTableau(i, 3) = Fichier.DateLastModified
 
        affichage = affichage & vbCrLf & ImTableau(i, 1) _
                 & "        " & ImTableau(i, 2) & "        " & ImTableau(i, 3) & vbCrLf
 
         Next Fichier
End If
 
MsgBox affichage

Je voudrai donc savoir quel est le soucis ici s'il vous plait. Le message d'erreur me dit au niveau de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ReDim Preserve ImTableau(1 To i, 1 To 3)

que "l'indice n'appartient pas à la sélection"