Bonjour la communauté, encore moi, le grand nullard en VBa
Je re-re-reviens vers vous pour une aide
J’ai un dossier avec 100 fichiers Excel et je voulais tous les reunir sur un seul , tous sur la meme feuille
J’ai copié ce code sur le forum mais je bloque
Les autres fichiers ne s’ajoutent pas.
A l’aide svp
Option Explicit
Dim wD, f, i, n, nf, derLnf, derLng, derColf, lng
Sub Importer()
Set wD = ThisWorkbook
f = Application.GetOpenFilename(, , , , True)
For i = 1 To UBound(f)
Workbooks.Open (f(i))
For n = 1 To 4
nf = Choose(n, "Feuil1")
With ActiveWorkbook.Sheets(nf)
derLnf = .Range("A" & Rows.Count).End(xlUp).Row
derColf = .UsedRange.Columns.Count 'Cells(1, Columns.Count).End(xlToLeft).Column
lng = ThisWorkbook.Sheets(nf).Range("A" & Rows.Count).End(xlUp)(2).Row
.Range(.Cells(2, 1), .Cells(derLnf, derColf)).Copy wD.Sheets(nf).Range("A" & lng)
End With
Next n
ActiveWindow.Close
Next i
End Sub
Sub essai()
ActiveSheet.UsedRange.Select