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.