Sujet Précédent Sujet Suivant

Aide pour une mise en page avec VBA

Fermé
clara95 Messages postés 9 Date d'inscription mercredi 14 mai 2008 Statut Membre Dernière intervention 18 mai 2008 - 18 mai 2008 à 17:34
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 18 mai 2008 à 23:17
Bonjour,
Avec la syntaxe with end with , je veux créer une procedure qui permet de definir ma mise en page de ma feuille et redimensionner les colonnes et lancer limpression
Mais dès ma 3ième ligne ça m'ecrit erreur d'execution '1004' Erreur definie par l'application ou par l'objet
Pouvez-vous m'aider à trouver mon erreur et les modification à apporter s'il vous plait?

Voici mon programme:

Sub MiseEnPagedelafeuille()
With ActiveSheet
With .PageSetup
.Orientation = xLandscape
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)
.LeftHeader = ""
.CenterHeader = "&A"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = "Page & P"
.RightFooter = ""
End With
.Colums.EntireColumn.AutoFit
.Rows.EntireRow.AutoFit

ActiveWindow.SelectSheets.PrintPreview
End With
End Sub
A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
18 mai 2008 à 17:37
Bonjour,
Tu ne peu pas imbrigué 2 With, VBA ne s'y retrouverrait pas.
A+
0
clara95 Messages postés 9 Date d'inscription mercredi 14 mai 2008 Statut Membre Dernière intervention 18 mai 2008
18 mai 2008 à 22:43
ah ok je ne savais pas. Pourquoi faire compliquer quand on peut faire simple!!! merci pour l'info
0
Réponse 2 / 2
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
18 mai 2008 à 23:17
Mais tu peu régler ca avec... 
Sub MiseEnPagedelafeuille() 

With AvtiveSheets.PageSetup 
.Orientation = xLandscape 
.LeftMargin = Application.InchesToPoints(0.5) 
.RightMargin = Application.InchesToPoints(0.5) 
.TopMargin = Application.InchesToPoints(0.5) 
.BottomMargin = Application.InchesToPoints(0.5) 
.LeftHeader = "" 
.CenterHeader = "&A" 
.RightHeader = "" 
.LeftFooter = "" 
.CenterFooter = "Page & P" 
.RightFooter = "" 
End With 
AvtiveSheets.Colums.EntireColumn.AutoFit 
AvtiveSheets.Rows.EntireRow.AutoFit 

ActiveWindow.SelectSheets.PrintPreview 
End Sub

A+
0