Bonjour,
En ce moment je crée une petite base de données qui permet de mettre à jour les tables liés des bases de données sur un serveur. Je suis arrivé à quelques choses qui tourne. Maintenant je reprend mon code et je remarque des imperfections (parfois très génante!!!)
Dans un de mes modules ACCESS, Je parcours le liste des fichiers mdb sur le serveur. Je met le résultat de ce parcours dans un tableau. Seulement je ne connais pas à l'avance le nombre d'élèments que j'aurai dans ce tableau.
C'est un tableau à 2 dimensions. J'ai essayé avec des, des
Code : Sélectionner tout - Visualiser dans une fenêtre à part Redim Preserve, etc ... Je n'arrive à rien !
Code : Sélectionner tout - Visualiser dans une fenêtre à part UBound
Voici (une partie de) mon code :
Comment faire ? Avez vous une idée ?
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 Dim tablo() As Variant Private Sub scanner(ByVal dossier As Folder) On Error GoTo Err_scanner For Each fichier In dossier.Files If UCase(Right(fichier.Name, 3)) = UCase("mdb") Then tablo(i, 0) = fichier.Path tablo(i, 1) = Left(fichier.Name, (Len(fichier.Name) - 4)) i = i + 1 continuer: End If Next For Each sousdossier In dossier.SubFolders scanner sousdossier Next
Partager