Extraire 2 feuilles classeur Excel en xlsx

Bonjour,

J'ai un classeur excel.

Je voudrais extraire des feuilles de ce classeur dans un nouveau avec une macro VBA.

Est ce que quelqu’un peut m'aider.

Merci d'avance.

Bonjour Albatros, bonjour le forum,

Code à placer dans le classeur source. Un nouveau classeur est ouvert et les onglet Feuil1 et Feuil2 y sont copiés. Il me te reste plus qu'à adapter le nom des onglets dans le code...

Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)

Set CS = ThisWorkbook 'définit le classeur source CS
Set CD = Workbooks.Add 'définit le classeur destination CD (en ouvrant un classeur vierge)
CS.Worksheets("Feuil1").Copy After:=CD.Worksheets(Sheets.Count) 'copie l'onglet Feuil1 du classeur source en dernière position dans le classeur destination
CS.Worksheets("Feuil2").Copy After:=CD.Worksheets(Sheets.Count) 'copie l'onglet Feuil2 du classeur source en dernière position dans le classeur destination
End Sub

Super,

exactement ce qui me fallait

Bonjour,

Serait -il possible que lorsque j'extrait les feuilles excel sur un nouveau classeur, les liaisons de macro ne soient plus disponibles.

Car lorsque je clique sur le bouton de macro, il ouvre le fichier source, ce que je voudrais éviter.

Merci par avance