Microsoft 365 problème de dates UserForm

[xhudi69]

bonjour à tous
Je transfert des dates sur un userForm provenant d'une feuille de calcul, sur tous les postes de l'entreprise (50) cela se passe bien à l’exception de 2 postes (nouveaux) où les dates s'obstinent à s'afficher au format anglo-saxon, avez-vous une idée, je pense que c'est une histoire de paramétrage de la machine mais comment faire?

merci pour votre aide.

 

[Staple1600]

Bonjour le fil

Juste pour faire des tests

Private Sub UserForm_Initialize()
[A1] = #11/13/2019#
MsgBox Format([A1], "dddd dd mmmm yyyy")
TextBox1 = CDate(Range("A1").Value2) + 1
TextBox2 = DateValue(Range("A1").Text) + 1
TextBox3 = Range("A1") + 1
End Sub

 

[xhudi69]

bonjour Staple1600, le Forum,

merci pour ta proposition, je ferais le test lundi sur l'une de ces machines, car je suis dans l'impossibilité de le faire maintenant.
Je te fais un retour rapide du test.

@+ et merci.

 

[Staple1600]

Re

Tu peux faire des tests sur ton PC de ta demeure 😉
(ce que j'ai fait 😉)
C'était juste des tests de syntaxe pour formater des dates.

Si ton problème est lié au paramères régionnaux, il faudra étudier une autre piste.

 

[xhudi69]

Re

le MsgBox = mercredi 13 novembre 2019
TextBox1 = 14/11/2019
TextBox2 = 14/11/2019
TextBox3 = 14/11/2019

@+

 

[Staple1600]

Re

Avec cet autre test, ca pédale un peu dans la semoule 😉

Private Sub UserForm_Click()
Dim a$
a = Format(Range("A1").Value + 1, "dddd dd mmmm yyyy")
TextBox3.AutoSize = -1: TextBox2.AutoSize = -1: TextBox1.AutoSize = -1
TextBox3.Text = a: TextBox2.Text = a: TextBox1.Text = a
End Sub

Private Sub UserForm_Initialize()
'[A1] = #1/8/2019# '1 aout 2019 'test 1
[A1] = DateSerial(2019, 8, 1) 'test 2
MsgBox Format([A1], "dddd dd mmmm yyyy")
TextBox1 = CDate(Range("A1").Value2)
TextBox2 = DateValue(Range("A1").Text)
TextBox3.Text = Format(Range("A1").Value, "MM/dd/yyyy")
End Sub

 

[xhudi69]

Re...

MsgBox = jeudi 01 août 2019

Private Sub UserForm_Initialize()
TextBox1 = 01/08/2019
TextBox2 = 01/08/2019
TextBox3 = 08/01/2019

Private Sub UserForm_Click()
TextBox1 =vendredi 02 août 2019
TextBox2 = vendredi 02 août 2019
TextBox3 = vendredi 02 août 2019

@+

 

[Staple1600]

Re

Oui, je sais, il y a bien une inversion sur le TextBox3
D'où la semoule 😉

 

[xhudi69]

Re...

pourtant dans :

Private Sub UserForm_Initialize()
si tu écris :
TextBox3.Text = Format(Range("A1").Value, "dd/mm/yyyy")
on est bon

@+

 

[Staple1600]

Re

C'est ce qu'on pouvait croire, mais...🙄

Private Sub UserForm_Click()
Dim a$
a = Format(Range("A1").Value + 1, "dddd dd mmmm yyyy")
TextBox3.AutoSize = -1: TextBox2.AutoSize = -1: TextBox1.AutoSize = -1
TextBox3.Text = a: TextBox2.Text = a: TextBox1.Text = a
End Sub

Private Sub UserForm_Initialize()
[A1] = #1/8/2019# '1 aout 2019 'test 1
'[A1] = DateSerial(2019, 8, 1) 'test 2
MsgBox Format([A1], "dddd dd mmmm yyyy")
TextBox1 = CDate(Range("A1").Value2)
TextBox2 = DateValue(Range("A1").Text)
TextBox3.Text = Format(Range("A1").Value, "dd/mm/yyyy")
End Sub

 

[xhudi69]

Re...

MsgBox = mardi 08 janvier 2019

Private Sub UserForm_Initialize()
TextBox1 = 08/01/2019
TextBox2 = 08/01/2019
TextBox3 = 08/01/2019

Private Sub UserForm_Click()
TextBox1 = mercredi 09 janvier 2019
TextBox2 = mercredi 09 janvier 2019
TextBox3 = mercredi 09 janvier 2019

J'aime pas la semoule 😡

@+

 

[Staple1600]

Re

Bah si puisque au départ : j'ai 01/08/2019 (si on fait le test 1)
(et comme le dit le commentaire en vert : 1 août 2019)

Donc selon la date, il y a inversion ou pas
Et c'est bien là ton problème, non ? 😉

 

[xhudi69]

Re...

"Et c'est bien là ton problème, non ? "

oui et non, comme je l'ai dis mon code fonctionne très bien sur tous les postes -2
en outre les données au départ écrites sur la feuille le sont de façon correcte dans le bon format.

certaines données renvoyées sur l'UserForm, le sont à partir de Tablo et là même soucis.

@+