Discussion :

[NEC14]

Bonjour à tous,

A l'aide de l'éditeur de macros, j'ai fait fait cette procédure.

Avant d'enregistrer une feuille celle-ci doit être mise en page, c'est-à-dire

- Mettre les marges à zéro
- Centrer verticalement et horizontalement
- Ajuster à une page en largeur et hauteur

Je souhaite donc le simplifier, car je me doute qu'il y a des choses inutiles à inscrire, pouvez-vous m'apporter votre aide s'il vous plait ?

Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
    Range("Q2:Q9").Select
    Selection.ClearContents
    Range("A1").Select
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$N$72"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
End Sub

[Krovax]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("Q2:Q9").ClearContents

le Range("A1").Select
dépend de ce que tu veux faire
suivit de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
        .PrintArea = "$A$1:$N$72"
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With

Pour la deuxième partie beaucoup de chose peuvent être retiré telque les

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""

qui gèrent le remplissage des entête et pied de pages.
surtout que tu ne dit de ne pas les imprimer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.PrintHeadings = False

Mais là on ne peux pas savoir si c'est là pour effacer des entête qui existe. Là ca va être a toi de regarder les option qui t'intéresse vraiment dans ton cas particulier et pour cela rien ne vaut la touche F1

[NEC14]

Bonjour,

Merci pour ta réponse. Je veux juste faire une mise en page, pas d'impression.
Après la mise en page, fermeture du fichier en sauvegardant les modifs.

Je pense pouvoir me débrouiller pour la suite.

Sinon je sais où appeler au secours.

[NEC14]

me revoilous,

Je n'arrive pas à insérer le code ci-dessus dans celui-ci. La procédure doit être activée avant l'ouverture du fichier "Factures". C'est-à-dire là où j'ai mis ces astérisques *

Mettre en page la feuille avant sa fermeture comme indiquée ci-dessus.

Pouvez-vous m'apporter votre éclairage s'il vous plait ?
Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Sauv1_Click()

'une copie de la page en cours est faite puis enregistrée

Cells.Select
    Selection.Copy
        Workbooks.Add
        ActiveSheet.Paste
    Application.Dialogs(xlDialogSaveAs).Show ("S:\FORMULAIRES\BON DE COMMANDE\BC 2009")
        ActiveSheet.PageSetup.PrintArea = "$A$1:$N$72"
        Application.ExecuteExcel4Macro "page.setup(,,0.00,0.00,0.00,false,false,1,1,1,,100,,1,,0.00,0.00,,)"
******
'le répertoire "Factures" est activé. Dans la feuille BC1 est sélectionnée
    Windows("Factures.xls").Activate
        Sheets("BC1").Select

'on sélectionne les cellules suivantes pour en effacer le contenu        Range("B25,G6,H14,N11,N17,N15,N19,B24,A28:A55,N24,I28:I55,J28:J55,K28:K55").Select
        Selection.ClearContents
    Range("A1").Select
        
'la feuille BC1 est cachée et la feuille engagement est activée

Sheets("BC1").Visible = False
        Sheets("Engagements").Activate
End Sub

[NEC14]

Bonjour à tous,

Je ne suis toujours pas parvenu à trouver la solution à mon problème.
L'enregistrement se fait bien, mais pas la mise en page. J'ai donc remis mon code comme au point de départ, sans mise en page et je vais aviser.

[LeForestier]

Bonjour,
La feuille de ton classeur principal (où est situer la macros) est-t-elle déja mise en forme ?