Discussion :

[guismoman60]

Bonjour,après des recherches intensives sur le sujet, je ne comprend toujours pas le problème qui est bien trop technique pour mes connaissances.

Voila mon code d'origine :

Code :

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

Workbooks(Fichier).Sheets(1).Cells(56, 11).Value = Format(Date, "dd/mm/yyyy")

Malheureusement, dès que le jour ne dépasse pas le 12, je me retrouve avec une date au format américain.

Comment faire pour qu'à tous les coups cette date soit au format francais jj/mm/yyyy?

Merci d'avance pour vos réponses car la je perds pied

Vincent

[Jean-Philippe André]

Salut,

il ne faut pas confondre valeur de cellule et valeur affichee dans Excel.

A noter que la fonction Format retourne une chaine de caracteres.

Aussi je te recommande de faire simplement en deux etapes :

Code :

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

1
2
3
4
With Workbooks(Fichier).Sheets(1).Cells(56, 11)
.Value = Date
.NumberFormat = "dd/mm/yyyy"
End With

[Docmarti]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub tt()
 
d = "10/02/2017"
 
valeur = CDate(d) 'Valeur est de type Date
 
Set c = Cells(1, 1)
If TypeName(valeur) = "Date" Then
 c.NumberFormat = "dd/mm/yyyy"
ElseIf TypeName(valeur) = "String" Then
 c.NumberFormat = "@"
Else
 c.NumberFormat = "General"
End If
c.Value = valeur
 
valeur =d''Valeur est de type String
 
Set c = Cells(2, 1)
If TypeName(valeur) = "Date" Then
 c.NumberFormat = "dd/mm/yyyy"
ElseIf TypeName(valeur) = "String" Then
 c.NumberFormat = "@"
Else
 c.NumberFormat = "General"
End If
c.Value = valeur
 
End Sub

[Docmarti]

Bonjour.

Demo 2 - Dates - Comment ne pas inverser Jour/mois
Lors de l'ecriture par VBA d'une valeur vers une cellule :
Si la valeur est de type String et que la propriete Numberformat est differente de String, VBA utilise une fonction de conversion qui ne reconnait que les dates aux formats americains. C'est ce qui explique que le jour et le mois sont inverses.
Si la valeur est de type String et que la propriete Numberformat est String, la conversion n'est pas requise et il n'y a donc pas d'inversion.
Si on ne veut pas d'inversion, il faut absolument eviter que cette fonction de conversion soit appelee.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub Demo_Dates_Inversion_Jour_Mois()
Cells.Clear
Cells(1, 1) = "Valeur"
 
d = "10/02/2017"
d = Format("10/02/2017", "dd/mm/yyyy")
Cells(2, 1) = "'" & d
 
ligne = 4
valeur = d ''Valeur est de type String
 Call Inverser(valeur, ligne)
 Call Ne_pas_Inverser(valeur, ligne)
 
 
ligne = 6
valeur = CDate(d) 'Valeur est de type Date
Call Inverser(valeur, ligne)
Call Ne_pas_Inverser(valeur, ligne)
 
End Sub
 
Function Inverser(valeur, ligne)
Cells(1, 2) = "Inverser"
Cells(ligne, 1) = TypeName(valeur)
 
Set c = Cells(ligne, 2)
 
If TypeName(valeur) = "String" Then
 
  c.NumberFormat = "General"
Else
  c.NumberFormat = "@"
End If
 
c.Value = valeur
 
End Function
 
Function Ne_pas_Inverser(valeur, ligne)
Cells(1, 4) = "Ne pas inverser"
Cells(ligne, 1) = TypeName(valeur)
 
Set c = Cells(ligne, 4)
If TypeName(valeur) = "String" Then
 
  c.NumberFormat = "@"
Else
  c.NumberFormat = "General"
End If
 
c.Value = valeur
 
End Function

[Invité]

Code :

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

Workbooks(Fichier).Sheets(1).Cells(56, 11).Value = Format(Date, "yyyy-mm-dd")