A voir également:
- Vba copier une feuille dans un nouveau classeur
- Vba copier feuille dans nouveau classeur - Meilleures réponses
- Copier une feuille excel dans un nouveau classeur vba - Meilleures réponses
- VBA copier une feuille et coller dans un nouveau classeur en valeur - Forum - VB / VBA
- VBA - Ajouter / Copier une feuille dans un classeur - Conseils pratiques - Visual Basic
- Vba copier une feuille dans un autre classeur ✓ - Forum - VB / VBA
- Vba copier une feuille dans un autre classeur sans ouvrir ✓ - Forum - VB / VBA
- VBA : copier-coller une feuille dans un autre classeur ✓ - Forum - VB / VBA
1 réponse
Patrice33740
Modifié le 1 avril 2020 à 17:17
- Messages postés
- 8549
- Date d'inscription
- dimanche 13 juin 2010
- Statut
- Membre
- Dernière intervention
- 7 mai 2022
Modifié le 1 avril 2020 à 17:17
Bonjour,
Comme ça :
EDIT : Et si tu veux aussi les formats :
Cordialement
Patrice
Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.
Comme ça :
Option Explicit Sub MAPA() Dim c As Workbook Dim f As Worksheet Dim r As Range Dim t As Variant Dim nom As String Set f = ActiveWorkbook.Worksheets(44) Set c = Application.Workbooks.Add(xlWBATWorksheet) Set r = c.Worksheets(1).Range("A1") nom = ThisWorkbook.Path & "\DQE_MAPA_Terrassement.xlsx" t = f.UsedRange.Value r.Resize(UBound(t, 1), UBound(t, 2)).Value = t c.SaveAs nom c.Close End Sub
EDIT : Et si tu veux aussi les formats :
Option Explicit Sub MAPA() Dim c As Workbook Dim f As Worksheet Dim r As Range Dim t As Variant Dim nom As String Set f = ActiveWorkbook.Worksheets(44) Set c = Application.Workbooks.Add(xlWBATWorksheet) Set r = c.Worksheets(1).Range("A1") nom = ThisWorkbook.Path & "\DQE_MAPA_Terrassement.xlsx" f.UsedRange.Copy r t = f.UsedRange.Value r.Resize(UBound(t, 1), UBound(t, 2)).Value = t c.SaveAs nom c.Close End Sub
Cordialement
Patrice
Personne ne peut détenir tout le savoir, c'est pour ça qu'on le partage.
2 avril 2020 à 09:16
Cordialement.