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

Question

Sujet Précédent Sujet Suivant

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

Signaler

Lameche15

Messages postés: 150
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 18 janvier 2021

- 5 mars 2018 à 16:44
cs_MPi

Messages postés: 3877
Date d'inscription: mardi 19 mars 2002
Statut: Membre
Dernière intervention: 23 août 2018

- 5 mars 2018 à 17:05

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
--

A voir également:

Copie feuille excel avec mise en page et en-tête e
Copie de valeurs entre deux feuilles Excel ✓ - Forum - VBA Office (Excel, Word ...)
Ajuster feuille excel sur une page en largeur ✓ - Forum - Visual Basic 6
Copie d'une date depuis un textbox vers une cellule d'une feuille excel (2003) ✓ - Forum - Visual Basic 6
Lier une feuille excel avec le texte de la page ✓ - Forum - Javascript / DHTML
Excel - mise en page ✓ - Forum - Delphi / Pascal

1 réponse

Répondre Posez votre question

cs_MPi · Answer 1 · 2018-03-05T17:05:31+0100

Réponse 1 / 1

cs_MPi

Messages postés: 3877
Date d'inscription: mardi 19 mars 2002
Statut: Membre
Dernière intervention: 23 août 2018

18
5 mars 2018 à 17:05

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....

Votre réponse