Gallery
Excel - Power Query - Power Pivot - VBA
Share
Explore
Pages
VB Excel

Boucle des fichiers d'un dossier

sNomFichier = Dir(sCheminCompletRecherche, vbNormal)
While sNomFichier <> ""
ReDim Preserve arrayFichier(UBound(arrayFichier) + 1) 'agrandi le tableau de 1
arrayFichier(UBound(arrayFichier)) = sCheminRecherche & sNomFichier
sNomFichier = Dir 'Dir sans argument recherche le suivant
Wend

Gallery
Share
 
Want to print your doc?
This is not the way.
Try clicking the ⋯ next to your doc name or using a keyboard shortcut (
CtrlP
) instead.