Export PDF Feuil Excel

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:

---

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
Pièce jointe 417322

Format Francais
Pièce jointe 417326

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

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

Bonjour,

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

Pièce jointe 417473

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

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 :)

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.

Salut

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

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