Pb entre Execl Fr et EN Formule NO.SEMAINE

[undo]

Bonjour,

mon problème c'est que j'ai un fichier excel ou j'ai une formule en français:NO.SEMAINE quand j'ouvre le fichier sur un Excel EN les cellules #Name j'ai trouvé que la formule EN ce n'est plus NO.SEMAINE mais WEEKNUM.

Ma question:

si c'est possible de créer une macro qui permet de convertir la formule automatiquement à l'ouverture du fichier si FR >NO.SEMAINE , EN>WEEKNUM

Pour info:
NO.SEMAINE=Afficher le numéro de semaine

Merci d'avance

 

[jeanpierre]

Re : Pb entre Execl Fr et EN Formule NO.SEMAINE

Bonjour undo,

Tu dois cocher dans Outils/Macros complémentaires/Utilitaire d'analyses....

Traduits tout cela en anglais car je n'en ai pas, présentement, l'écriture exacte.

Tu nous dis.

Jean-Pierre

 

[TheLio]

Re : Pb entre Execl Fr et EN Formule NO.SEMAINE

Hello tous re JP

Tu peux télécharger un traducteur pour l'utilitaire d'analyse ches la concurence

VeriTi V 3, le site des amis d'Excel et OOo - Programmes VeriTi

A++

TheLio

 

[jeanpierre]

Re : Pb entre Execl Fr et EN Formule NO.SEMAINE

Re TheLio,

Il a déjà la traduction, c'est le nom de l'utilitaire dont je ne me souviens plus, et le chemin pour y arriver aussi, d'ailleurs en anglais s'entend.

Mais, undo va nous dire si cela ne va pas.

 

[Staple1600]

Re : Pb entre Execl Fr et EN Formule NO.SEMAINE

Bonjour le forum


Une macro pour identifier la Version régionale de Microsoft Excel.

Sub test()
Select Case Application.International(1)
Case 33
MsgBox "France"
End Select
End Sub

Je ne connais pas le code pour la version anglaise

 

[jeanpierre]

Re : Pb entre Execl Fr et EN Formule NO.SEMAINE

Re,

Je viens d'aller voir TraducTi.

Il semble donc que undo va en avoir besoin, sinon, effectivement, les fonctions complémentaires ne sont pas traduites d'une langue à l'autre.

J'aurais dû m'en douter en voyant #Name....

Undo, donc, prend s le lien de Thelio, installes cette XLA et tout devrait rentrer dans l'ordre

Bonne soirée

 

[Staple1600]

Re : Pb entre Execl Fr et EN Formule NO.SEMAINE

Re


Donc aprés recherche : English = 1

Voir sur le site de microsoft: ici

Macro de Microsoft

Sub Code()
   Country_Code = Application.International(xlCountryCode)
 'ou 1 à la place de xlCountryCode
   If Country_Code = 1 Then
      MsgBox ("Hello")
   ElseIf Country_Code = 33 Then
      MsgBox ("Bonjour")
   End If
End Sub

 

[pierrejean]

Re : Pb entre Execl Fr et EN Formule NO.SEMAINE

bonsoir a tous

une fonction personnalisée qui remplacera aussi bien la version française qu'anglaise

Function prem(an As Integer) As Date
For n = CDate("01/01/" & an) To CDate("07/01/" & an)
  If Weekday(n) = 5 Then prem = n - 3
Next n
End Function
 
Function NOSEM(LaDate As Date) As Integer
  NOSEM = Int((LaDate - prem(Year(LaDate))) / 7) + 1
  If NOSEM = 53 Then NOSEM = 1
End Function

 

[undo]

Re : Pb entre Execl Fr et EN Formule NO.SEMAINE

Bonjour a tous

Merci pour vos réponses

un grand merci JP the last soulution me vas très bien.

Super forum....