Parcourir les fichiers d'un répertoire
m
Bonjour, je possède dans un répertoire un fichier en .xlsm, celui ci contient une macro qui effectue une action sur tout les fichiers en .xlsx du répertoire.
Je souhaiterais désormais que l'action s'effectue sur tout les fichiers .xlsx et .xlsm du répertoire (fichier contenant la macro exclu).
Dans le code, on boucle les fichiers via
fich = Dir(rep & "\" & "*.xlsx")
Do While fich <> w1.Name And Len(fich) > 0
.....Comment modifier la première ligne pour qu'elle recherche aussi les fichiers en .xlsm ?
Merci d'avance et bon après midi à tous.
Bonjour.
Des pros auront peut-être une meilleure solution, mais je te conseillerais de mettre ton code dans une fonction
Et après
fich = Dir(rep & "\" & "*.xlsx")
fonction(fich)
fich = Dir(rep & "\" & "*.xlsm")
fonction(fich)Bonne journée.
Bonjour
essaie ceci :
fich = Dir(ThisWorkbook.Path & "\" & "*.xls*")
Do While fich <> w1.Name And Len(fich) > 0 and fich <> thisworkbook.nameCrdlt