Copie feuille excel avec mise en page et en-tête e

Question

Bonjour, 
 

Dans une macro, j'aimerais créer une copie d'une feuille dans un nouveau classeur:

ThisWorkbook.Sheets("Bon").Cells.Copy 'After:=Sheets(Sheets.Count)NewBook.Sheets("Feuil1").Range("A1").PasteSpecial
 
Seulement quand j'ouvre le fichier créé, les cellules ont en effet la même taille... mais je ne conserve pas mon en-tête et mon pied de page du modèle original.
De plus, sur mon modèle si je fais imprimer je n'ai qu'une seule page alors que sur mon fichier créé par la macro la mise en page n'est plus bonne et l'impression ce fait sur 2 pages.

Pouvez-vous m'aider sur ce sujet

Cordialement
--

cs_MPi · Answer

Bonjour,

En principe, seule cette ligne devrait te créer un nouveau fichier avec un onglet identique à l'original
ThisWorkbook.Sheets("Bon").Cells.Copy

Nul besoin du NewBook. pastespecial
Seulement faire un SaveAs....

Copie feuille excel avec mise en page et en-tête e

1 réponse

Votre réponse