Bonjour,

J'ai un tableau à deux dimentions une pour le nom de dossier et une pour sa taille.
je désir renommer le dossier dont la taille est la plus grande.

Voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
For Each fold In SFld
FlNom = CStr(fold.Name)
FolSize = (fold.Size)
x = x + 1
ReDim Preserve Tableau(1 To 2, 1 To x)
Veriftab = UBound(Tableau)
Tableau(1, x) = FlNom
Tableau(2, x) = FolSize
Debug.Print (Tableau(1, x) & " ---> " & Tableau(2, x))
If Veriftab = SFldComp Then Exit For
Next
merci de m'éclairer