Copier coller d'un classeur pour sauvegarde

Bonjour à vous tous

je cherche à faire une macro de sauvegarde avec condition (oui non) et mise en garde de oui avec un texte qui apparait 'box' pour qu'en fin d'année je sauvegarde mon classeur pour repartir avec un nouveau vide et prêt à être utilisé. Mais je souhaite que les feuilles du classeur sauvegardé soit devenue du texte simple, en gardant leur mise en page (genre copier coller avec condition collage spécial "valeur" pour ne retrouver que du texte et plus de calcul automatique dans les cellules tout en aillant le même aspect visuel.

J'espère ne pas avoir trop été confus dans mon explication.

à tout merci

Cordialement Mr Leblan

Hello,

Essaie ça

Sub Importer_Dn()

Set wb1 = ThisWorkbook
TheFile = Application.GetOpenFilename("Classeurs Excel(*.*),*.*")
Set wb2 = Workbooks.Open(TheFile)

For n = 1 To wb1.Sheets.Count

        wb1.Sheets(n).Copy After:=wb2.Sheets(n)
        wb1.Sheets(n).Range("A1:CZ6000").Copy
       With wb2.Sheets(n).Range("A1:CZ6000")
       .PasteSpecial (xlFormats)
       .PasteSpecial (xlValues)
       End With
        Next

End Sub

Fait sur un coin de table, mais ça marche

Merci pour tout je viens juste de rentrer de week-end.

Merci encore

Cordialement Mr Leblan

Mais de rien

par contre