A voir également:
- Exporter une feuille excel dans un nouveau classeur vba
- Liste déroulante excel - Guide
- Formule excel - Guide
- Déplacer une colonne excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Exporter excel en pdf - Guide
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 765
Modifié le 1 avril 2020 à 17:17
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.