Discussion :

[Fab_de_chez_PERFORM]

Bonjour
je sollicite votre regard pour m'éclairer sur la bizarrerie suivante : lorsque j'exécute mon code et que j'enregistre sous un format xlsx, mes dates sur le graphique changent de format (affichage US)

Voici une capture depuis mon fichier XLSM


Et celle obtenue lorsque je suis passé en XLSX


Pour enregistrer j'ai essayé avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
        Dim chemin, nom As String
        chemin = CreateObject("wscript.shell").specialfolders("desktop") & "\"
        nom = "TEST " & UCase(RECUP_NOM) & " du " & Format(RECUP_DATE, "dd_mm_yyyy")
        ActiveWorkbook.SaveAs Filename:=chemin & nom, FileFormat:=xlOpenXMLWorkbook ' equiv format xlsx

J'ai essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FileFormat:=51

et aussi "en dur" avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\XXX\Desktop\TEST FABIEN du 13_10_2022.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Avez vous une idée ? parce que là, je sèche ...
Merci par avance
Fabien

[hyperion13]

Salut
Il faut plus tôt atteindre les objets du graphique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(1).ChartObjects(1).Chart.Axes(xlValue).TickLabels.NumberFormat = "dd/mm/yyyy"

[Fab_de_chez_PERFORM]

Bonjour et merci Hyperion
à terme, je contournerai le problème en faisant ce que tu me propose.

Néanmoins, je m'interroge toujours sur la raison de ce changement de format de date en passant du xlsm au xlsx...