A voir également:
- Copier plusieurs Tbl =/= Feuilles / Coller nouveau classeur
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Comment faire un livret avec des feuilles a4 - Guide
1 réponse
Bonjour Enzo, bonjour le forum,
Essaie comme ça :
Essaie comme ça :
Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim O1 As Worksheet 'déclare la variable O1 (Onglet 1)
Dim O2 As Worksheet 'déclare la variable O2 (Onglet 2)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Set CS = ThisWorkbook 'définit la classeur source
Set O1 = CS.Worksheets("FRAME") 'définit l'onglet O1
Set O2 = CS.Worksheets("BUMPER") 'définit l'onglet O1
CA = CS.Path & "\" 'définit le chemin d'accès
Set CD = Application.Workbooks.Add 'définit le classeur destination CD en ouvrant un classeur vierge
CD.Worksheets(1).Name = "GAMME_B01" 'renomme le premier onglet de ce nouveau classeur
Set OD = CD.Worksheets("GAMME_B01") 'définit l'onglet destination OD
O1.Range("A1:H93").Copy OD.Range("A1") 'copie les données du premier onglet et les colle dans A1 de OD
O2.Range("A2:H25").Copy OD.Range("A94") 'copie les données du second onglet et les colle dans A94 de OD (adape la cellule de collage à ton cas)
CD.SaveAs CA & "Extraction_Quincaillerie_EVO2" 'enregistre le classeur destination dans le même dossier que le classeur source
'enlève l'apostrophe au début dans les lignes en-dessous si tu veux que le code agisse
'CD.close'ferme le classeur destination
'CS.Close 'ferme le classeur source
End Sub