Bonjour,
mon code devrait restituer une valeur numérique, mais il me restitue du texte. Comment cela se fait t-il ?
Sub Calcul()
Dim chemin$, fichier$, a(), n&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "gestion*.xlsx")
ReDim a(1 To Rows.Count, 1 To 2)
While fichier <> ""
n = n...