Remplissage de tableau

**Kutoh** · 15/07/2013, 15h09

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