Posez votre question Signaler

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

Lameche15 112 Messages postés mardi 9 septembre 2008Date d'inscription 5 mars 2018 Dernière intervention - 5 mars 2018 à 16:44 - Dernière réponse : cs_MPi 3869 Messages postés mardi 19 mars 2002Date d'inscription 25 mai 2018 Dernière intervention
- 5 mars 2018 à 17:05
VBA Office (Excel, Word ...) Posez votre question Signaler
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
--
Afficher la suite 

Votre réponse

Répondre au sujet

1 réponse

Signaler Commenter la réponse de cs_MPi
cs_MPi 3869 Messages postés mardi 19 mars 2002Date d'inscription 25 mai 2018 Dernière intervention - 5 mars 2018 à 17:05
0
Merci
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....
Commenter la réponse de cs_MPi

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.