Bug suite au changement de version Excel 2016 fr à en
Bonjour, pour des raisons professionnelles j'ai changé de version excel passant de 2016 fr à 2016 en et j'ai des macros qui ne fonctionne plus. Quels sont les différence entre les 2 languages. Pour exemple ca bug au niveau ActiveSheet.PageSetup.PrintArea = ""sur cette macro :
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = "&""Arial,Gras""Dossier : ROVER EMBAL" & Chr(10) & "Numéro : 18" & Chr(10) & "Exercice : 30/06/2017"
.CenterHeader = ""
.RightHeader = "&""Arial,Gras""Réf." & Chr(10) & "&A"
.LeftFooter = ""
.CenterFooter = "&""Arial,Gras""&8Page &P/&N"
.RightFooter = "&""Arial,Gras""&8&F" & Chr(10) & "Grégory GARCIA" & Chr(10) & ""
.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
ActiveSheet.DisplayAutomaticPageBreaks = False
Range("A1:F1").Select
Cells.Replace What:="XXX", Replacement:="Grégory GARCIA", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
End Sub
Merci d'avance de votre réponse.
Bonjour,
Le langage VBA est le même.
Des différences peuvent jouer en ce qui concerne les paramètres régionaux, ce qui aura par exemple un effet sur les dates... mais s'agissant d'un paramétrage d'impression (qui tel qu'il est sort de l'enregistreur et mériterait d'être simplifié...), si un bogue survient qui ne se produisait pas, ce ne peut être provoqué par le code, mais sans doute par le contexte d'exécution qui lui aura certainement varié...
Cordialement.
Merci pour ta réponse MFERRAND mais tu entends quoi par "par le contexte d'exécution qui lui aura certainement varié..." et comment je peux faire pour que cela fonctionne.
Bonsoir,
Ça, aucune idée sans voir le fichier en erreur... Je ne vois d'ailleurs pas a-priori ce qui provoquerait une erreur sur la définition de PrintArea !
Y a-t-il un numéro d'erreur ?
Ou quel est le libellé du message d'erreur ?
RE,
la fenetre qui apparaît est :
Run-time error '-2147319784 (80028018)':
Method 'PrintArea' of onject'PageSetup' failed
J'appuie sur debug et la ligne suivante est en jaune :
ActiveSheet.PageSetup.PrintArea = ""
Merci d'avance