bonjour à tous et merci par avance
j'ai trouvé un script sur developpez.com qui me permet de "fusionner" dans un fichier tous les fichiers se trouvant dans un repertoire
Malheureusement, le code :
dernier_ligne = FL1.Range("A" & Rows.Count).End(xlUp).Row + 1
ne permet pas de trouver la dernière ligne si les cellules de la colonne A sont vides
ex :
toto pierre
titi paul
jacques
jean
il trouvera 2 au lieu de 4
est ce que vous pouvez me depanner ?
si dans la formule je mets B au lieu de A, ca marche dans ce cas, mais pas dans les cas ou des cellules dans la colonne B sont vides ;-)
je joints les fichiers excel avec la macro dans _test.xls
pour le test il faudra créer un repertoire C:\excel_vba_test
mettre tous les fichiers dedans et lancer la macro
Merci par avance
j'ai trouvé un script sur developpez.com qui me permet de "fusionner" dans un fichier tous les fichiers se trouvant dans un repertoire
Malheureusement, le code :
dernier_ligne = FL1.Range("A" & Rows.Count).End(xlUp).Row + 1
ne permet pas de trouver la dernière ligne si les cellules de la colonne A sont vides
ex :
toto pierre
titi paul
jacques
jean
il trouvera 2 au lieu de 4
est ce que vous pouvez me depanner ?
si dans la formule je mets B au lieu de A, ca marche dans ce cas, mais pas dans les cas ou des cellules dans la colonne B sont vides ;-)
je joints les fichiers excel avec la macro dans _test.xls
pour le test il faudra créer un repertoire C:\excel_vba_test
mettre tous les fichiers dedans et lancer la macro
Merci par avance