Macro récupération de fichier

Bonjour,

Je souhaite récupérer des tableaux sur des fichiers et les mettre sur des feuilles sur mon fichier final
Le problème c'est que j'écrase ma feuille 1 à chaque fois, je ne sais pas dire que le fichier 2 doit aller sur la feuille 2
Voici mon code
Quelqu'un sait m'aider avant que je trouve moi même :)

Sub macro1()

Workbooks.Open Filename:= _
"C:\Users\AD\Documents\TEST VBA\classeur1.xlsx"
ThisWorkbook.Worksheets("Feuil1").Range("1:15").Value = Range("1:15").Value
ActiveWorkbook.Close

Workbooks.Open Filename:= _
"C:\Users\AD\Documents\TEST VBA\classeur2.xlsx"
ThisWorkbook.Worksheets("Feuil1").Range("1:15").Value = Range("1:15").Value
ActiveWorkbook.Close

Workbooks.Open Filename:= _
"C:\Users\AD\Documents\TEST VBA\classeur3.xlsx"
ThisWorkbook.Worksheets("Feuil1").Range("1:15").Value = Range("1:15").Value
ActiveWorkbook.Close

End Sub

Edit modo : merci de mettre le code entre balises SVP avec le bouton </>

bonjour,

tu remplaces feuil1 par feuil2 pour ton classeur 2 et feuil1 par feuil3 pour ton classeur 3, dans le code que tu as mis.

Je ne suis pas sur d avoir compris, merci de m avoir répondu

J ai 3 classeurs avec une seule feuille. Et je souhaite mettre la feuille 1 de ces 3 classeurs dans mon classeur final. Classeur 1 feuille 1 dans classeur final feuille 1

classeur 2 feuille 1 dans classeur final feuille 2

etc

rebonjour,

il faut que feuil1, feuil2 et feuil3 existent dans ton classeur de "récupération"

Sub macro1()

Workbooks.Open Filename:= _
"C:\Users\AD\Documents\TEST VBA\classeur1.xlsx"
ThisWorkbook.Worksheets("Feuil1").Range("1:15").Value = Range("1:15").Value
ActiveWorkbook.Close

Workbooks.Open Filename:= _
"C:\Users\AD\Documents\TEST VBA\classeur2.xlsx"
ThisWorkbook.Worksheets("Feuil2").Range("1:15").Value = Range("1:15").Value
ActiveWorkbook.Close

Workbooks.Open Filename:= _
"C:\Users\AD\Documents\TEST VBA\classeur3.xlsx"
ThisWorkbook.Worksheets("Feuil3").Range("1:15").Value = Range("1:15").Value
ActiveWorkbook.Close

End Sub

Merci h2s04

pour quelles raisons les couleurs et la mise en forme ne s importent pas ?

peux t on importer la feuille entière sans sélection de lignes?

Merci

bonjour,

pour quelles raisons les couleurs et la mise en forme ne s importent pas ?

parce que l'instruction utilisée ne les copie pas. il faut utiliser la méthode .copy et pas l'instruction d'affectation =

peux t on importer la feuille entière sans sélection de lignes?

oui

adaptation de la macro pour répondre aux 2 points mentionnés (non testé !)

Sub macro1()

Workbooks.Open Filename:= _
"C:\Users\AD\Documents\TEST VBA\classeur1.xlsx"
ActiveSheet.UsedRange.Copy ThisWorkbook.Worksheets("Feuil1").Range("A1")
ActiveWorkbook.Close

Workbooks.Open Filename:= _
"C:\Users\AD\Documents\TEST VBA\classeur2.xlsx"
ActiveSheet.UsedRange.Copy ThisWorkbook.Worksheets("Feuil2").Range("A1")
ActiveWorkbook.Close

Workbooks.Open Filename:= _
"C:\Users\AD\Documents\TEST VBA\classeur3.xlsx"
ActiveSheet.UsedRange.Copy ThisWorkbook.Worksheets("Feuil3").Range("A1")
ActiveWorkbook.Close

End Sub

Merci pour ton aide précieuse h2so4

Je vais essayer de me débrouiller maintenant

En tout cas je te remercie de nouveau pour le temps et l'aide accordé