Sauvegarde aveclargeur colonnes et hauteur lignes

bonjour a vous

j'ai fait ce code sur un exemple trouvé sur le net qui fait bien les sauvegardes mais ne respecte pas la taille des colonnes ni la hauteur de lignes, et si j'enlève la partie qui est "with Activesheet "tout le classeur est enregistrer

je voudrais pouvoir enregistrer la feuille "facture" dépoussiérer de ses boutons et codes et sans la feuille clients

je ne sais pas trop où j'ai fait l'erreur

Sub Macro1()
'
' Macro1 Macro
'
Dim Chemin$
Range("C1:M300").Copy
 Chemin = "D:\Facturation-v1s"
    Client = Sheets("Facture").Range("D17").Value & " " & Sheets("Facture").Range("J4").Value
    Sheets.Add After:=Sheets(Sheets.Count)
        With ActiveSheet
            .Range("A1").PasteSpecial Paste:=xlPasteValues
            .Range("A1").PasteSpecial Paste:=xlPasteFormats

            .Move

        End With

    Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:=Chemin & "\Factureseule\" & Client & ".xls"

    ActiveWorkbook.Close False
    Sheets("Facture").Activate

End Sub

Pascal

Bonjour Pascal, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim F As Object
Dim Chemin$
Dim Client As String
Dim obj As Shape

Set F = Sheets("Facture")
Chemin = "D:\Facturation-v1s"
Client = F.Range("D17").Value & " " & F.Range("J4").Value
F.Range("C1:M300").Copy
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
    .Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
    .Range("A1").PasteSpecial Paste:=xlPasteValues
    .Range("A1").PasteSpecial Paste:=xlPasteFormats
    For Each sh In ActiveSheet.Shapes
        sh.Select
        sh.Delete
    Next sh
    .Move
End With
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=Chemin & "\Factureseule\" & Client & ".xls"
ActiveWorkbook.Close False
Sheets("Facture").Activate
End Sub

Bonjour Thauthème

c'est juste ce qu'il me fallait pour mon essai, après intégration il me manque la variable pour sh car j'ai option explicit en début et que je n'avais pas mis pour l'essai

merci beaucoup

Pascal

re thauthème

j'ai remplacer obj par sh et cela fonctionne

'Dim obj As Shape
    Dim sh As Shape

Merci

Pascal