Adaptation d'une macro pour copier une feuille d'un autre classeur

[bobjazz]

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

 

[Efgé]

Re : Adaptation d'une macro pour copier une feuille d'un autre classeur

Bonjour bobjazz_peut être en changeant tous les :_classeurSource.Sheets("Import")_par classeurSource.Sheets(1)_Cordialement