Macro erreur

Résolu
scelera Messages postés 40 Statut Membre -  
scelera Messages postés 40 Statut Membre -
Bonjour,

Je vous transmet ci joint ma macro, lorsque je l'execute elle me met "End With" attendu et quand je remplace "End Sub" par "End With" ça me met "End Sub" attendu. Je n'y comprend rien, surement parceque je débute dan sla macro !
Merci de votre aide.

Sub Macro4()
'
' Macro4 Macro
'
' Touche de raccourci du clavier: Ctrl+r
'
Sheets("Feuil2").Select
Cells.Select
Selection.Delete Shift:=xlUp
Sheets("Feuil1").Select
Columns("G:G").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Columns("A:A").Select
ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
Sheets("Feuil1").Select
Columns("H:H").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Columns("B:B").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Sheets("Feuil1").Select
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Columns("C:C").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Columns("J:J").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Columns("D:D").Select
ActiveSheet.Paste
Columns("D:D").EntireColumn.AutoFit
Sheets("Feuil1").Select
Columns("O:O").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Columns("E:E").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
ActiveWindow.SmallScroll ToRight:=18
Columns("AK:AK").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Columns("F:F").Select
ActiveSheet.Paste
Columns("F:F").EntireColumn.AutoFit
Sheets("Feuil1").Select
Columns("AL:AL").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Columns("G:G").Select
ActiveSheet.Paste
Columns("G:G").EntireColumn.AutoFit
Sheets("Feuil1").Select
ActiveWindow.LargeScroll ToRight:=-1
Columns("AH:AH").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Columns("H:H").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
ActiveWindow.LargeScroll ToRight:=1
Columns("AG:AG").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Columns("I:I").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Columns("K:K").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Columns("J:J").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("A1:J1").Select
Range("J1").Activate
Application.CutCopyMode = False
Selection.AutoFilter
ActiveWindow.View = xlPageLayoutView
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial,Gras""&20&UExtrait de nos références"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 57
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
ActiveSheet.PageSetup.RightHeaderPicture.Filename = _
"P:\Extrait de nos références Macro\Logo TLS.png"
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&""Arial,Gras""&20&UExtrait de nos références"
.RightHeader = "&G"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.25)
.RightMargin = Application.InchesToPoints(0.25)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.Zoom = 57
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Range("G3").Select
End Sub
A voir également:

2 réponses

Réponse 1 / 2
tbopsia Messages postés 28 Statut Membre 4
 
Suite... un petit conseil quand tu développes, indentes bien ton code (décalage), comme ça tu vois rapidement où tu n'as pas fermé. 

Sub Macro ....
     With ActiveSheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = "&""Arial,Gras""&20&UExtrait de nos références"
            .RightHeader = ""
     End with
End Sub
1
Réponse 2 / 2
tbopsia Messages postés 28 Statut Membre 4
 
Hello , pour Tout With il faut un End With.
Donc il manque un End With pour fermer le With ActiveSheet.PageSetup après le .FirstPage.RightFooter.Text = ""
Par contre ta macro est assez bizarre, par exemple pourquoi avoir 2 fois le "With ActiveSheet.PageSetup"

Sinon bonne continuation
Cordialement
0
scelera Messages postés 40 Statut Membre
 
Merci ça marche maintenant. Mais dans la macro ci dessus, il devrait s'ajouter une image dans l'en tête, mais quand je l'éxécute l'image n'apparaît pas.
Aurais tu une idée du pourquoi ?
Cordialement.
0
tbopsia Messages postés 28 Statut Membre 4
 
Je pense que le problème viens du fait que tu ais 2 fois le "With ActiveSheet.PageSetup"
J'ai l'impression que le 2ème ne sert à rien et qu'il réinitialise l'entête.
Enlèves le. De toute façon pour affiche une image dans la partie droite de l'entete il ne faut que 2 lignes: 
ActiveSheet.PageSetup.RightHeaderPicture.filename = "P:\Extrait de nos références Macro\Logo TLS.png"
ActiveSheet.PageSetup.RightHeader = "&G"

La 1ère ligne indique où chercher l'image et la seconde dans quelle zone l'insérer.
Tes soucis viennent surement de l'enregistreur de macro. C'est mieux quand même de relire le code, de bien le présenter, de retirer tout ce qui ne sert à rien

cordialement
0
scelera Messages postés 40 Statut Membre
 
Merci tout est parfait !
Conne continuation !
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Code erreur 3000
Laurent -
JM -

5 réponses
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses
Comment supprimer un contact
Lilou -
Lilou -

2 réponses
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse