[ChTi160]

re arff
ensuite je ne comprends pas
ceci
For ii = 1 To 78 'tu fais une boucle sur ii pour des valeurs allants de 1 à 78
ii = ii + 1 'est ici tu ajoutes 1 Why alors tu boucles sur les valeurs 2 à 79
et supprime ii=ii + 1
NewName = "test" & ii & ".xls"
For i = 1 To .FoundFiles.Count
Fichier = .FoundFiles(i)
Name Fichier As TxbBrowseForFolder & "\" & NewName

Next i
Next ii

je crois si j'ai compris le raisonnement que tu boucles sur l'ensemble des fichiers
mais tu conserves la mmême valeur de ii
il faudrait essayer ceci

For i = 1 To .FoundFiles.Count 'pour chaque fichier
ii=ii+1 'initialise ii en fonction d la boucle
NewName = "test" & ii & ".xls" 'on crée le nom
Fichier = .FoundFiles(i) 'on choisi le fichier à renommer
Name Fichier As TxbBrowseForFolder & "\" & NewName
Next i

bonne fin de Soirée