Bonsoir le Forum
J'utilise cette macro pour importer des données d'un autre classeur (les 2 feuilles ont la même mise en forme) qui fonctionne parfaitement.
Les onglets ont le même nom, mais pour ma nouvelle application, j'essaie de l'adapter pour importer une feuille d'un fichier export en csv et qui ne porte jamais le même nom et là j’atteins ma limite VBA.
Le plus simple copier la feuille
Voici la macro pour ceux qui peuvent m'aider.
Sub MAJ()
Dim classeurSource As Workbook, classeurDestination As Workbook, Fichiers, Filtre$, i%, DerLigne As Long
Feuil1.Rows("2:40000").ClearContents
Set classeurDestination = ThisWorkbook
Fichiers = Application.GetOpenFilename(Filtre, 1, "Sélection des fichiers", , True)
If IsArray(Fichiers) = False Then Exit Sub
For i = LBound(Fichiers) To UBound(Fichiers)
Set classeurSource = Application.Workbooks.Open(Fichiers(i))
DerLigne = classeurSource.Sheets("Import").Range("b" & Rows.Count).End(xlUp).Row
classeurSource.Sheets("Import").Range("b2:q" & DerLigne).Copy
classeurDestination.Sheets("Import").Range("b" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
classeurSource.Close False
Next
End Sub
Merci d'avance
Bojazz