Enregistrement cellules d'un feuille dans dossier choisi

Bonjour,

J'ai actuellement sur un fichier une macro qui marche très bien, qui me permet l'enregistrement d'un feuille dans un dossier choisi:

Sub Macro1()

chemin = ActiveWorkbook.Path

ActiveSheet.Copy

With ActiveWorkbook

.Title = ActiveSheet.Name

.Subject = ActiveSheet.Name

.SaveAs Filename:=chemin + "\Fiche de vérification du PVO\" + ActiveSheet.Name + " " + "du" + " " + Format(Date, "dd-mmmm-yyyy") + ".xls"

End With

End Sub

Cependant je souhaiterais seulement enregistrer les cellules : (A1:L49)

Des idées?

Merci d'avance

Bonjour,

une idée. à tester. bien prendre des copies de tes fichiers avant d'exécuter la macro.

Sub Macro1()
    chemin = ActiveWorkbook.Path
    Set wso = ActiveSheet
    Set wst = Sheets.Add
    wso.Range("A1:L49").Copy wst.Range("A1")
    wst.Copy
    With ActiveWorkbook
        .Title = ActiveSheet.Name
        .Subject = ActiveSheet.Name
        .SaveAs Filename:=chemin + "\Fiche de vérification du PVO\" + ActiveSheet.Name + " " + "du" + " " + Format(Date, "dd-mmmm-yyyy") + ".xls"
    End With
    Application.DisplayAlerts = False
    wst.Delete
    Application.DisplayAlerts = True
End Sub