shmider
XLDnaute Occasionnel
Bonjour,
Voilà, je souhaiterai regrouper 4 fichiers excel dans une feuille intérmediaire pour pouvoir faire des rechercheV plus facilement.
Pour l'instant j utilise ça comme script (Cf. en bas), mais ça ne prend pas toutes les lignes, et parfois meme les fichiers sont copier l un sur l autre !!!
Sub test3()
Dim Fich As String, Ligne As Double
Fich = Dir("C:\Documents and Settings\Bureau\SUIVI\*.xls")
Do While Fich <> ""
Ligne = Range("a65536").End(xlUp).Row + 0
Workbooks.Open "C:\Documents and Settings\SUIVI\" & Fich
Range("A1", Range("Z65536").End(xlUp)).Copy _
ThisWorkbook.Sheets(2).Cells(Ligne, 1)
ActiveWorkbook.Close False
Fich = Dir
Loop
End Sub
je ne comprends pas ce qui ce passe à vrai dire!!
Voilà, je souhaiterai regrouper 4 fichiers excel dans une feuille intérmediaire pour pouvoir faire des rechercheV plus facilement.
Pour l'instant j utilise ça comme script (Cf. en bas), mais ça ne prend pas toutes les lignes, et parfois meme les fichiers sont copier l un sur l autre !!!
Sub test3()
Dim Fich As String, Ligne As Double
Fich = Dir("C:\Documents and Settings\Bureau\SUIVI\*.xls")
Do While Fich <> ""
Ligne = Range("a65536").End(xlUp).Row + 0
Workbooks.Open "C:\Documents and Settings\SUIVI\" & Fich
Range("A1", Range("Z65536").End(xlUp)).Copy _
ThisWorkbook.Sheets(2).Cells(Ligne, 1)
ActiveWorkbook.Close False
Fich = Dir
Loop
End Sub
je ne comprends pas ce qui ce passe à vrai dire!!