Prb de mise en page feuille copiée

[Gix]

Bonjour le Forum,

J'ai un problème lorsqque j'utilise ma commande Valider document
pour copier la feuille nomée Facture dans le dossier sauvegarde.
En effet la commander s'excute sans souci mais la feuille copiée dans le dossier sauvegarde apparait sur plusieur page et non sur une comme celle d'origine.

Je vous joins les dossiers avec les fichiers principaux.

Merci de me venir en aide afin de modifier la commande ce qui me sortira de ma galère car j'ajuste la mise en page sur une feuille toujours manuellement une fois la copie faite .

Vous remerciant de votre compréhension par avance .

Gix. [file name=FactureGix_V1.zip size=24019]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FactureGix_V1.zip[/file]

 

[Gérard DEZAMIS]

Bonjour Gix

Est-ce qu' un ajout de

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Ne suffirait pas ?

Aucune garantie mais ça fonctionne chez moi ....

@+ GD

 

[Gix]

Bonjour le Forum et Dezamis Gérard

Merci pour ton ajout , j'ai essayé mais chez moi ça ne fonctionne pas , que faire?
Je ne suis pas du tout connaisseur en VBA il se trouve que je n'ai pas bien insérer ton ajout à la bonne place peux-tu me dire à quel endroit il faudrait placer ton code? :S

Merci de ta réponse.
Gix.

 

[Gérard DEZAMIS]

Re Gix

Après la selection de la feuille facture
......
End If
10
Sheets('Facture').Select
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=vNbreImp

If Range('DossierOptCopieDoc') = 'Non' Then GoTo 20
........

@+ GD

 

[Gix]

Re
Merci Dezamis de ta réponse rapide hélas ça ne marche pas
ma feuille copiée apparaît toujours sur plusieurs pages .
ce qui m'embête le plus c'est que chez toi ça marche et pas chez moi.
Merci de m'avoir aidé.
Gix.

 

[Gix]

Bonjour à tous,

Désolé de revenir encore à la charge; Je souhaiterai savoir s'il existe un moyen de modifier ces codes afin que ça marche où il faut continuer à faire la mise en page manuellement de la feuille copiée.

Vous remerciant par avance de votre aide si précieuse.
A+ gix.

 

[Gix]

Bonjour tous le monde,

Je vous remercie d'avoir suivi ce sujet, je suis arrivé à faire les modifs
pour mettre en page ma feuille copiée.
Je vous fais part des codes pour ceux qui sont succeptible d'être intéressés.

Bonne continuation à tous Gix.

[Sub DocuementValider()
Dim vNbreImp As Variant
Dim DocFch As Variant
Dim DocChm As Variant
DocFch = Range('DocFch')
DocChm = Range('DocChm')

If Range('DocNumDoc') = '' Then
informer = MsgBox('Numero Facture obligatoire !', vbOKOnly, 'Ajout impossible / FactureGix')
Range('DocNumDoc').Select
Exit Sub
End If

If Range('RvNomClient') = '' Then
informer = MsgBox('Nom du Client obligatoire !', vbOKOnly, 'Ajout impossible / FactureGix')
Range('RvNomClient').Select
Exit Sub
End If

vNbreImp = InputBox('Nombre d'exemplaire à imprimer :', 'Impression Document / FactureGix', 1)
If vNbreImp <= 0 Then GoTo 5
If IsNumeric(vNbreImp) Then
GoTo 10
Else: Do Until IsNumeric(vNbreImp)
5
MsgBox 'La valeur doit être un nombre entier et > 0'
vNbreImp = InputBox('Nombre d'exemplaire à imprimer :', 'Impression Document / FactureGix', 1)
Loop
GoTo 10
End If
10
Sheets('Facture').Select
ActiveWindow.SelectedSheets.PrintOut Copies:=vNbreImp
If Range('DossierOptCopieDoc') = 'Non' Then GoTo 20
If Range('DossierOptCopieDoc') = 'Oui' Then
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=DocChm, _
FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows('FactureGix.xls').Activate
Sheets('Facture').Select
Cells.Select
Selection.Copy
Windows(DocFch).Activate
Cells.Select
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range('a1').Select
Application.CutCopyMode = False

With ActiveSheet.PageSetup
.PrintTitleRows = ''
.PrintTitleColumns = ''
End With
ActiveSheet.PageSetup.PrintArea = '$A$1:$K$79'
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = ''
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = ''
.RightFooter = ''
.LeftMargin = Application.InchesToPoints(0.15748031496063)
.RightMargin = Application.InchesToPoints(0.118110236220472)
.TopMargin = Application.InchesToPoints(0.118110236220472)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0.118110236220472)
.FooterMargin = Application.InchesToPoints(0.196850393700787)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With

ActiveWorkbook.Save
ActiveWorkbook.Close
GoTo 20
End If
20
Windows('FactureGix.xls').Activate
Sheets('Document').Unprotect Password:='gix'
Range('DossierNumDoc') = Range('DossierNumDoc') + 1
Sheets('Document').Select
Range('DocNumDoc') = Range('DossierNumDoc')
Range('RefDocSaisie').Select
Selection.ClearContents

Range('b13').Select
Sheets('Document').Protect Password:='gix'
ActiveWorkbook.Save
End Sub]