# -*- coding: iso-8859-1 -*-

#. // _mo_LanguageSettings.py

#. // Informations de la langue en Microsoft Office.

#. // Constantes MsoLanguageID.
#. // https://docs.microsoft.com/fr-fr/dotnet/api/microsoft.office.core.msolanguageid?view=office-pia
msoLanguageIDFrench = 1036

#. // Constantes MsoAppLanguageID.
#. // https://docs.microsoft.com/en-us/dotnet/api/microsoft.office.core.msoapplanguageid?view=office-pia
msoLanguageIDHelp       = 3
msoLanguageIDExeMode    = 4
msoLanguageIDInstall    = 1
msoLanguageIDUI         = 2
msoLanguageIDUIPrevious = 5

def mo_LanguageSettings( oMso ):

   print()

   #. // https://docs.microsoft.com/fr-fr/dotnet/api/microsoft.office.core.languagesettings.languagepreferredforediting?view=office-pia
   print( "LanguagePreferredForEditing( msoLanguageIDFrench ) :", oMso.LanguageSettings.LanguagePreferredForEditing( msoLanguageIDFrench ) )
   print()

   #. // https://docs.microsoft.com/fr-fr/office/vba/api/office.languagesettings.creator
   print( "Creator :", oMso.LanguageSettings.Creator )
   print()

   #. // https://docs.microsoft.com/fr-fr/office/vba/api/office.languagesettings
   print( "LanguageID(msoLanguageIDExeMode    ) :", oMso.LanguageSettings.LanguageID( msoLanguageIDExeMode    ) )
   print( "LanguageID(msoLanguageIDUI         ) :", oMso.LanguageSettings.LanguageID( msoLanguageIDUI         ) )
   print( "LanguageID(msoLanguageIDUIPrevious ) :", oMso.LanguageSettings.LanguageID( msoLanguageIDUIPrevious ) )
   print( "LanguageID(msoLanguageIDInstall    ) :", oMso.LanguageSettings.LanguageID( msoLanguageIDInstall    ) )
   print( "LanguageID(msoLanguageIDHelp       ) :", oMso.LanguageSettings.LanguageID( msoLanguageIDHelp       ) )
   print()

   return 0

'''
Dernière modification : 2022-02-13

from _mo_LanguageSettings import mo_LanguageSettings # // Informations de la langue en Microsoft Office.
from _mo_LanguageSettings import msoLanguageIDFrench
from _mo_LanguageSettings import msoLanguageIDHelp
from _mo_LanguageSettings import msoLanguageIDExeMode
from _mo_LanguageSettings import msoLanguageIDInstall
from _mo_LanguageSettings import msoLanguageIDUI
from _mo_LanguageSettings import msoLanguageIDUIPrevious

[Exemple]

import sys
sys.path.append( "modules" )

from _mo_LanguageSettings import mo_LanguageSettings # // Informations de la langue en Microsoft Office.

from _ex_ExcelNew import ex_ExcelNew # // Ouvre Excel.
from _by_wait     import by_wait     # // Arrêter le programme jusqu'à l'appui d'une touche.

oExcel = ex_ExcelNew()

mo_LanguageSettings( oExcel )

by_wait()
oExcel = None

[/Exemple]

J'ai écrit ce programme car j'ai un problème :
- J'ouvre un classeur d'1 feuille,
- J'ajoute une nouvelle feuille pour chaque vendeur après la 1ère feuille,
- Je lit la date en texte et je l'écrit dans la nouvelle fauille :
  Le format est "mm/jj/aaaa".
- A la fin, j'enregistre le fichier modifié sous un autre nom.

J'ai une solution qui ne me convient pas :
- Pour l'ouverture du fichier :
   oBook = ex_Open( oExcel, xlsxIn, [ "ReadOnly", True, "Local", True ] )
- Pour l'écriture de la date :
   oSheetE.Cells( l, c ).FormulaLocal = ex_ReadText( oSheet, i, 3 )

Je n'ai pas ce problème en dBasePlus.
Cela doit venir d'un paramètre Python ou Excel que je ne connais pas.

Bonne solution :
- Utiliser la fonction ex_WriteDate() pour écrire les dates dans les cellules.
'''