Macros ne fonctinne pas ???

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion veloce
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

veloce

Guest
Pouvez-vous me dire pourquoi

ActiveWindow.SelectedSheets.PrintPreview
Worksheet = Workbook.Worksheets("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre").Select
With ActiveWorksheets.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.384251969)
.BottomMargin = Application.InchesToPoints(0.384251969)
.HeaderMargin = Application.InchesToPoints(0.3121259845)
.FooterMargin = Application.InchesToPoints(0.3121259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
 
Trier par date Trier par votes
Re : Macros ne fonctinne pas ???

Salut,

Trés drole... lol

Donnes tout de même plus d'information, il y a des champions sur ce site, mais là, si ils arrivent à répondre, je me convertis. lol

Ou est-ce que ça plante ?
Tu fais une preview de la page active avant de définir les pages des mois, l'interet ?

Cette extrait fait partit d'un plus grand projet, qu'en est-il ?

...
 
Vote positif 0 Vote négatif
Re : Macros ne fonctinne pas ???

Bonjour

Code: 
Worksheet = Workbook.Worksheet( "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre").Select
With ActiveWorksheets.PageSetup

devient :

Code: 
With Sheets(Array("Janvier", "Février", "Mars", "Avril","Mai"))
 
Vote positif 0 Vote négatif
Re : Macros ne fonctinne pas ???

Re Bonjour wilfried,
Voilà ce que je recherche, mais la cela me met que le mois de janvier ??



With Sheets(Array("Janvier", "Février", "Mars", "Avril")).Select
End With

With ActiveSheet.PageSetup

.LeftMargin = Application.InchesToPoints(0.590551181102362)
.RightMargin = Application.InchesToPoints(0.590551181102362)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintQuality = 300
.Orientation = xlLandscape
.Order = xlDownThenOver

End With
 
Vote positif 0 Vote négatif
Re : Macros ne fonctinne pas ???

re:

Code: 
With Sheets(Array("Janvier", "Février", "Mars", "Avril")).PageSetup

.LeftMargin = Application.InchesToPoints(0.590551181102362)
.RightMargin = Application.InchesToPoints(0.590551181102362)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintQuality = 300
.Orientation = xlLandscape
.Order = xlDownThenOver

End With

Comme cela,
 
Vote positif 0 Vote négatif
Re : Macros ne fonctinne pas ???

Bonsoir


Trouvé chez nos amis d'outre-atantique

Code: 
[COLOR=blue]Option Explicit[/COLOR] 
[COLOR=blue]Sub[/COLOR] SetupAllSheets() 
     [COLOR=darkgreen]'[/COLOR]
    [COLOR=blue]Dim[/COLOR] M [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], N [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], Firstsht [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], Lastsht [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], Sheet [COLOR=blue]As[/COLOR] [COLOR=blue]Object[/COLOR] 
     [COLOR=darkgreen]'[/COLOR]
    Lastsht = Sheets.Count 
    M = 0: N = Lastsht 
     [COLOR=darkgreen]'[/COLOR]
    [COLOR=blue]For Each[/COLOR] Sheet [COLOR=blue]In[/COLOR] Sheets 
        [COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] Sheet.Visible [COLOR=blue]Then[/COLOR] N = N - 1 
        [COLOR=blue]If[/COLOR] Sheet.Visible [COLOR=blue]And[/COLOR] Sheet.Type = xlWorksheet [COLOR=blue]Then[/COLOR] 
            [COLOR=blue]If[/COLOR] WorksheetFunction.CountA(Sheet.UsedRange) = 0 [COLOR=blue]Then[/COLOR] 
                N = N - 1 
            [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
        [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
    [COLOR=blue]Next[/COLOR] 
     [COLOR=darkgreen]'[/COLOR]
    [COLOR=blue]For[/COLOR] Firstsht = 1 [COLOR=blue]To[/COLOR] Lastsht 
         [COLOR=darkgreen]'[/COLOR]
        [COLOR=blue]If[/COLOR] Sheets(Firstsht).Visible = [COLOR=blue]True[/COLOR] [COLOR=blue]Then[/COLOR] 
             [COLOR=darkgreen]'[/COLOR]
            [COLOR=blue]If[/COLOR] [COLOR=blue]Not[/COLOR] TypeName(Sheets(Firstsht)) = "Chart" [COLOR=blue]Then[/COLOR] 
                [COLOR=blue]If[/COLOR] WorksheetFunction.CountA(Sheets(Firstsht).UsedRange) <> 0 [COLOR=blue]Then[/COLOR] 
                    M = M + 1 
                    GoSub DoPrint 
                [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
            [COLOR=blue]Else[/COLOR] [COLOR=darkgreen]'else it's a chart[/COLOR]
                M = M + 1 
                GoSub DoPrint 
            [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
             [COLOR=darkgreen]'[/COLOR]
        [COLOR=blue]End[/COLOR] [COLOR=blue]If[/COLOR] 
         [COLOR=darkgreen]'[/COLOR]
    [COLOR=blue]Next[/COLOR] [COLOR=darkgreen]'Firstsht[/COLOR]
    Exit [COLOR=blue]Sub[/COLOR] 
DoPrint: 
    [COLOR=blue]With[/COLOR] Sheets(Firstsht).PageSetup 
        .LeftHeader = "" 
        .CenterHeader = "" 
        .RightHeader = "" 
        .LeftFooter = "" 
        .CenterFooter = "" 
        .RightFooter = "" 
        .LeftMargin = Application.InchesToPoints(0.15748031496063) 
        .RightMargin = Application.InchesToPoints(0.15748031496063) 
        .TopMargin = Application.InchesToPoints(0.78740157480315) 
        .BottomMargin = Application.InchesToPoints(0.78740157480315) 
        .HeaderMargin = Application.InchesToPoints(0.31496062992126) 
        .FooterMargin = Application.InchesToPoints(0.31496062992126) 
        .PrintHeadings = [COLOR=blue]False[/COLOR] 
        .PrintGridlines = [COLOR=blue]False[/COLOR] 
        .PrintComments = xlPrintNoComments 
        .PrintQuality = 600 
        .CenterHorizontally = [COLOR=blue]False[/COLOR] 
        .CenterVertically = [COLOR=blue]False[/COLOR] 
        .Orientation = xlLandscape 
        .Draft = [COLOR=blue]False[/COLOR] 
        .PaperSize = xlPaperA4 
        .FirstPageNumber = xlAutomatic 
        .Order = xlDownThenOver 
        .BlackAndWhite = [COLOR=blue]False[/COLOR] 
        .Zoom = [COLOR=blue]False[/COLOR] 
        .FitToPagesWide = 1 
        .FitToPagesTall = [COLOR=blue]False[/COLOR] 
        .PrintErrors = xlPrintErrorsDisplayed 
    [COLOR=blue]End With[/COLOR] 
    [COLOR=blue]With[/COLOR] Application 
        .EnableEvents = [COLOR=blue]False[/COLOR] 
         [COLOR=darkgreen]'        Sheets(Firstsht).PrintPreview '.PrintOut[/COLOR]
        .EnableEvents = [COLOR=blue]True[/COLOR] 
    [COLOR=blue]End With[/COLOR] 
Return 
[COLOR=blue]End Sub
[/COLOR]
 
Vote positif 0 Vote négatif
Re : Macros ne fonctinne pas ???

RE,
Trouver cela en plus rapide, mais plus lourd

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/01/2008 par J.R
'

'

Sheets("Janvier").Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup

.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.604251969)
.BottomMargin = Application.InchesToPoints(0.604251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintQuality = 300
.Orientation = xlLandscape
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.FitToPagesWide = 1
.FitToPagesTall = 1
End With


Sheets("Février").Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup

.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintQuality = 300
.Orientation = xlLandscape
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

Sheets("Mars").Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup

.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.604251969)
.BottomMargin = Application.InchesToPoints(0.604251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintQuality = 300
.Orientation = xlLandscape
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
367
CortoXls
C
B
  • Résolu(e)
XL 2016 concours / Macro imprimer le texte au maximum selon les pages
Réponses
10
Affichages
1 K
berru76
B
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro imprimer une sélection de zones
Réponses
5
Affichages
903
berru76
B
patricktoulon
Imprimer ou exporte une plage en pdf pleine page zoom auto
Réponses
0
Affichages
484
patricktoulon
patricktoulon
R
  • Question Question
XL 2016 Rendre plus lisible un code VBA
2
Réponses
23
Affichages
2 K
TooFatBoy
TooFatBoy
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
668
Mika07
M
B
  • Résolu(e)
XL 2016 Macro imprimer que les cellules pleines
Réponses
6
Affichages
1 K
berru76
B
J
  • Résolu(e)
XL 2019 Impression échelle personnalisée
Réponses
6
Affichages
3 K
Phil69970
Phil69970
Phillip
  • Question Question
XL 2016 Erreur avec boucle Do while
Réponses
3
Affichages
1 K
Phillip
Phillip
L
  • Question Question
XL 2010 vba pour masquer des colonnes lors d'un export
Réponses
1
Affichages
1 K
Staple1600
Staple1600
P
  • Résolu(e)
XL 2019 Problème lancement impression
Réponses
6
Affichages
1 K
Pieerre69
P
B
  • Question Question
Microsoft 365 RESOLU Problème vue sur page après Impréssion
Réponses
8
Affichages
1 K
Bambi35
B
D
  • Question Question
VBA pour imprimer auto
Réponses
14
Affichages
3 K
Dim.Reichart
D
3xceln4ute
  • Question Question
[Résolu] Erreur 1004 .PaperSize = xlPaperLegal
Réponses
3
Affichages
6 K
3xceln4ute
3xceln4ute
F
  • Question Question
suppréssion de ligne
Réponses
13
Affichages
2 K
faguer
F
M
  • Question Question
XL 2010 Macro Synthèse Excel Vba
Réponses
0
Affichages
1 K
Mirguy23
M
KTM
  • Question Question
XL 2016 macro imprimer via inputbox
Réponses
5
Affichages
1 K
KTM
KTM
C
  • Question Question
Les Commentaires s'impriment
Réponses
5
Affichages
2 K
CVL
C
ph.vanne
  • Question Question
probléme avec sélection de la dernière feuille
Réponses
4
Affichages
1 K
ph.vanne
ph.vanne
P
  • Question Question
problème de transfer de userform vers PDF (résolu)
Réponses
5
Affichages
967
pasquetp
P
Retour