Amical bonsoir à tous les excéliens, bonsoir le forum.
Veuillez trouver ci dessous le code en question qui me pose souçi. Je ne dois pas etre loin mais bon je ne sais plus quoi chercher, où actionner, que modifier ! C'est un code "bricolé" je ne suis pas programmeur (chuis viticulteur !)
Le message indique ="Erreur d'execution '438'ropriété ou méthode non gérée par cet objet"
Euh l'objet cela veut dire quoi !? C'est un CommandButton non !? En tout cas le Click active un CommandButton.
Je ne peux pas joindre de pièce, elle est trop lourde elle fait 90 K zippée et en plus ce n'est qu'un copier/collé de la zone en question.
Windows XP SP2 et Excel 2000.
Moi de mon coté je vais continuer à trifouiller. Merci de vous interesser à mon problème et j'espère qu'un bon génie se penchera sur mon code.
D'avance merci !
Sub impressionfeuillesrepasetjournéesmoyensetgrands_Click()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
If ActiveSheet.Cell("J283").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$278:$AF$312""$J$600:$AF$634"
End If
If ActiveSheet.Cell("J313").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$313:$AF$342""$J$635:$AF$664"
End If
If ActiveSheet.Cell("J343").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$343:$AF$372""$J$665:$AF$694"
End If
If ActiveSheet.Cell("J373").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$373:$AF$402""$J$695:$AF$724"
End If
If ActiveSheet.Cell("J403").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$403:$AF$432""$J$725:$AF$754"
End If
If ActiveSheet.Cell("J445").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$440:$AF$474""$J$760:$AF$794"
End If
If ActiveSheet.Cell("J475").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$475:$AF$504""$J$795:$AF$824"
End If
If ActiveSheet.Cell("J505").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$505:$AF$534""$J$825:$AF$854"
End If
If ActiveSheet.Cell("J535").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$535:$AF$564""$J$855:$AF$884"
End If
If ActiveSheet.Cell("J565").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$565:$AF$594""$J$885:$AF$914"
End If
'Ci dessous permet de définir les indications pour l'impression mais on peut zapper et alléger le code en effaçant à partir d'ici !'
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.6)
.RightMargin = Application.InchesToPoints(0.6)
.TopMargin = Application.InchesToPoints(0.6)
.BottomMargin = Application.InchesToPoints(0.6)
.HeaderMargin = Application.InchesToPoints(0.6)
.FooterMargin = Application.InchesToPoints(0.6)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
End With
ActiveSheet.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub
Veuillez trouver ci dessous le code en question qui me pose souçi. Je ne dois pas etre loin mais bon je ne sais plus quoi chercher, où actionner, que modifier ! C'est un code "bricolé" je ne suis pas programmeur (chuis viticulteur !)
Le message indique ="Erreur d'execution '438'ropriété ou méthode non gérée par cet objet"
Euh l'objet cela veut dire quoi !? C'est un CommandButton non !? En tout cas le Click active un CommandButton.
Je ne peux pas joindre de pièce, elle est trop lourde elle fait 90 K zippée et en plus ce n'est qu'un copier/collé de la zone en question.
Windows XP SP2 et Excel 2000.
Moi de mon coté je vais continuer à trifouiller. Merci de vous interesser à mon problème et j'espère qu'un bon génie se penchera sur mon code.
D'avance merci !
Sub impressionfeuillesrepasetjournéesmoyensetgrands_Click()
Application.ScreenUpdating = False
With ActiveSheet.PageSetup
If ActiveSheet.Cell("J283").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$278:$AF$312""$J$600:$AF$634"
End If
If ActiveSheet.Cell("J313").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$313:$AF$342""$J$635:$AF$664"
End If
If ActiveSheet.Cell("J343").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$343:$AF$372""$J$665:$AF$694"
End If
If ActiveSheet.Cell("J373").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$373:$AF$402""$J$695:$AF$724"
End If
If ActiveSheet.Cell("J403").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$403:$AF$432""$J$725:$AF$754"
End If
If ActiveSheet.Cell("J445").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$440:$AF$474""$J$760:$AF$794"
End If
If ActiveSheet.Cell("J475").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$475:$AF$504""$J$795:$AF$824"
End If
If ActiveSheet.Cell("J505").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$505:$AF$534""$J$825:$AF$854"
End If
If ActiveSheet.Cell("J535").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$535:$AF$564""$J$855:$AF$884"
End If
If ActiveSheet.Cell("J565").Value <> "" Then
ActiveSheet.PageSetup.PrintArea = "$J$565:$AF$594""$J$885:$AF$914"
End If
'Ci dessous permet de définir les indications pour l'impression mais on peut zapper et alléger le code en effaçant à partir d'ici !'
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.6)
.RightMargin = Application.InchesToPoints(0.6)
.TopMargin = Application.InchesToPoints(0.6)
.BottomMargin = Application.InchesToPoints(0.6)
.HeaderMargin = Application.InchesToPoints(0.6)
.FooterMargin = Application.InchesToPoints(0.6)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = True
.Zoom = 100
End With
ActiveSheet.PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub