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

  • Initiateur de la discussion Initiateur de la discussion bobjazz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bobjazz

XLDnaute Impliqué
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
218
Réponses
5
Affichages
263
Réponses
2
Affichages
334
Réponses
4
Affichages
199
Retour