Discussion :

[darkman13130]

Bonjour tout le monde,

Après plusieurs heures de recherche, je ne trouve pas de solution à mon problème,

En effet, j'exporte une Feuil excel qui comporte 19 graphiques jusque ici aucun problème.

En revanche, à la lecture du mon fichier .pdf je me retrouve avec 2, 3 ou 4 graphique (Aléatoire) avec mon axe X (des dates) au format m/d/yyyy au lieu de dd/mm/yyyy.

J'ai essayé de supprimer ces graphiques pour voir ce que ça donne, et la surprise des graphiques dont la date était correct se retrouve en m/d/yyyy .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.DisplayAlerts = False
ExcelObj.Workbooks.Open (MONCHEMINXLSX)
 
 
With ExcelObj.Worksheets("SHEET1")
ExcelObj.ActiveSheet.ExportAsFixedFormat 0, MONCHEMINPDF ,0, 1, 0,,,0
End With
 
ExcelObj.Workbooks(NOMFICHIERSXLS).Close False
ExcelObj.Quit
 
Set objFSO = Nothing

Format Anglais


Format Francais


Auriez-vous une solution à mon problème

PS : Quand j'exporte manuellement Fichier -> Enregistrer sous -> Formation PDF je n'ai aucun problème toutes les dates sont en francais

Merci pour votre aide précieuse

[l_autodidacte]

Suggestion : Vérifie si le format de date de la machine n'est anglais.

[darkman13130]

Bonjour,

c'est un serveur entreprise en anglais mais avec le format de date FR

[darkman13130]

Je ne sais pas si ça change, mais si je fais l'action manuelle Fichier-> Enregistrer sous je n'ai aucun problème

[darkman13130]

Pour éviter de perdre du temps, je viens de trouver une solution alternative,

j'ai utilisé une nouvelle ligne excel en ajoutant =Texte(CelluleAvecMaDate;"dd/mm/yyyy") ça me permet de garde le calcul de ma date en dynamique et de faire pointer mes graphiques sur les cellules Texte

[l_autodidacte]

Il y a peut-être un autre moyen de contourner le problème(Je vois sur la capture d'écran que dans le champ Formats est écrit : English(United States) qui pourrait affecter les résultats même si la date est au format français.

D'abord, vérifie si le LCID est français ou anglais en utilisant(dans un script à part) : MsgBox GetLocale.
Si le résultat est 1033 alors :
Au tout début du script Ajoute cette ligne : SetLocale 1036 1036 pour Français FR.
Puis à la fin, et pour remettre les paramètres d'avant, ajoute la ligne : SetLocale 1033 1033 pour Anglais US.

[ProgElecT]

Salut

l_autodidacte, cela me rappel cette discussion Vérification saisie InputBox

Pour les lcid, deux liens utiles: VBScript SetLocale Function et VBScript GetLocale Function.