Format après copie

[caro7575]

Bonjour,
j'ai mis du code VBA pour copier le contenu d'une feuille dans un nouveau classeur. Voici mon code :
Range("Zone_d_impression").Select
Selection.Copy
Mais je remarque que sur la feuille copiée, je n'ai plus les mêmes marges et mon document est complètement décalé à l'impression.
Si vous avez des idées...
Merci de votre aide

 

[flo2002]

Re : Format après copie

Bonjour,
pourquoi ne pas imprimer directement en définissant la zone.
As tu réellement besoin de passer par une autre feuille?
tiens nous au courant.

 

[porcinet82]

Re : Format après copie

Salut Caro, Flo,

Ou alors, plutot que de copier le contenu de la feuille, ne peux-tu pas copier directement la feuille?

@+

 

[caro7575]

Re : Format après copie

Bjr,en fait je travaille sur un modèle de bon de commande.Pour tout un tas de raison, je passe sur une autre feuille : en gros, l'utilisateur travaille sur un modèle, et quand il a fini, il clique sur un bouton Valider et c'est là que la copie du modèle se fait (pour laisser le modèle toujours vierge mais aussi pour forcer l'enregistrement dans un dossier spécifique).
Mon seul souci est donc que je n'arrive pas à retrouver mon format comme sur le modèle. Notamment mes marges qui sont décalées
Merci beaucoup

 

[pierrejean]

Re : Format après copie

bonjour Caro

ton modele etant en .xlt, il reste intact lorsqu' avec le bouton valider tu termines en sauvant le bon de commande en .xls
il n'y a donc pas lieu de recopier avant d'imprimer

A +

 

[Pierrot93]

Re : Format après copie

Bonsoir Caro, Romain, Flo

Si je comprends bien ton problème (pas sur) ne faudrait t il pas rajouter un code de mise en page lors de l'enregistrement. Ci dessous exemple de code :

With ActiveSheet.PageSetup
    .LeftMargin = Application.CentimetersToPoints(0.5)
    .RightMargin = Application.CentimetersToPoints(0.5)
    .TopMargin = Application.CentimetersToPoints(1)
    .BottomMargin = Application.CentimetersToPoints(1)
    .HeaderMargin = Application.CentimetersToPoints(0.3)
    .FooterMargin = Application.CentimetersToPoints(0.3)
    .CenterHorizontally = True
    .Orientation = xlLandscape
End With

Bonne soirée
@+

 

[porcinet82]

Re : Format après copie

re, Bonjour Pierrejean, Pierrot,

Juste pour dire a Caro qu'il ne sert a rien de multiplier les post pour une meme question, d'autant que Tata Olive doit attendre une réponse de ta part.

@+

 

[caro7575]

Re : Format après copie

Je mets en pièce jointe mon doc; j'espère que vosu pourrez y jeter un oeil (indulgent!) et m'aider à résoudre ce problème
Encore merci...et dsl pour les posts

 

[pierrejean]

Re : Format après copie

bonjour Caro

3 lignes ajoutées

.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1

vois si cela va mieux

attention pour travailler j'ai du faire des modifs et je ne suis pas absolument sur d'etre revenu au debut ( a tester)
par ailleurs il manque la zone a remplir

A+

 

[caro7575]

Re : Format après copie

Merci pierre Jean, cela modifie en effet ma mise en page comme désiré. Mais il me reste un souci sur les colonnes et lignes. En effet, les dimensions que j'avais choisies ne sont aps gardées.
Merci de ton aide

 

[pierrejean]

Re : Format après copie

bonsoir Caro

vois si cela va mieux (toujours le probleme des tests )