Convertir une date anglaise en une date française

**a.ouguerzam** · 07/10/2015, 12h45

Bonjour,

J’ai un fichier reçu par mon client avec une colonne ou les dates sont format anglais j’ai besoin de convertir cette date en format française dans la dernier colonne vide sur le fichier
La question : il y a un code VBA qui permet de faire le changement en date française
Date anglais : 10/07/2015 date française : 07/10/2015
Merci de votre aide je suis novice en VBA.

**SfJ5Rpw8** · 07/10/2015, 12h48

Bonjour,

vérifie déjà si tes dates sont bien au format "date" .. et pas texte , en changeant le format d'affichage format de cellule / Nombre / Date / "mercredi 14 mars 2001"

**a.ouguerzam** · 07/10/2015, 12h56

Oui bien sûr tout la colonne ou il Y a les date sont en format date sauf qu’ils sont en format anglais mois/jour/année et moi j’ai besoin d’une date en format française pour que je puise travail correctement.

**SfJ5Rpw8** · 07/10/2015, 13h23

Envoyé par a.ouguerzam

Oui bien sûr tout la colonne ou il Y a les date sont en format date sauf qu’ils sont en format anglais mois/jour/année et moi j’ai besoin d’une date en format française pour que je puise travail correctement.

Le fait qu'une date soit affichée ne veut pas forcément dire que les données sont au format date (au sens excel) ... as tu essayé de passer les colonne au format long pour vérifier ... "mercredi 14 mai 2001"

Invité · 07/10/2015, 12h57

bonjour,
ton client te fourni un fichier Excel ou CSV?
si c'est de l'Excel les date sont cetré à droit ou à gauche!

**a.ouguerzam** · 07/10/2015, 12h59

fichier client format excel
j'ai trouver une solution sur donnes__>convertir__>suivant_>suivant_>changement du format MJA
mais je suis dans le cadre de mettre un fichier bien automatisé.

Invité · 07/10/2015, 13h02

utilises l’enregistreur de macro!

**a.ouguerzam** · 07/10/2015, 13h14

j'ai déjà essaye de mettre l’enregistreur de macro mais ça marche pas
Cette manipulation ça marche juste en manuel

voila le code generé par l'enregistreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Convertirdate()
'
' Convertirdate Macro
'
 
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 3), TrailingMinusNumbers:=True
End Sub

**parmi** · 07/10/2015, 17h45

Envoyé par a.ouguerzam

fichier client format excel
j'ai trouver une solution sur donnes__>convertir__>suivant_>suivant_>changement du format MJA
mais je suis dans le cadre de mettre un fichier bien automatisé.

Essaie en choisissant AJM, soit le format affiché au moment où tu reçois le fichier

Attention toutefois de ne pas le faire une deuxième fois.
Le format reviendrait à l'original

**a.ouguerzam** · 07/10/2015, 17h51

Le code renseigné par Docmarti ca fonction a merveille juste quel m’encrasse des donnes que j’ai dans la colonne D je peux pas mettre les modifications dans la dernier colonne vide.

**Docmarti** · 07/10/2015, 14h56

Envoyé par a.ouguerzam

Bonjour,

J’ai un fichier reçu par mon client avec une colonne ou les dates sont format anglais j’ai besoin de convertir cette date en format française dans la dernier colonne vide sur le fichier
La question : il y a un code VBA qui permet de faire le changement en date française
Date anglais : 10/07/2015 date française : 07/10/2015

Est-ce que les dates dont le jour est supérieur à 12 sont aussi au format mm/jj/aaaa ?

**a.ouguerzam** · 07/10/2015, 14h59

oui par exemple je peux recevoir des fichiers ou il y a sur la colonne A la date en format anglais 12/05/2015 mm/JJ/AAAA mais par contre moi je veux convertir la date dans la dernier colonne vide en francais qui dit JJ/MM/AAA 05/12/2015

j'ai trouve un code sur un forum mais il faut l'optimisé je pense je le partage avec vous :

Code :

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

1
2
3
4
5
6
7
Sub convert_test()
    For i = 1 To 10
        cellule = Cells(i, 5)
        If IsDate(cellule) And VarType(cellule) = 7 Then cellule = DateSerial(Year(cellule), Day(cellule), Month(cellule))
        If IsDate(cellule) Then Cells(i, 6) = CDate(cellule)
    Next
End Sub

Invité · 07/10/2015, 15h10

Code :

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

1
2
3
4
5
6
7
Sub convert_test()
    For i = 1 To 10
        cellule = Cells(i, 5)
        If IsDate(cellule) And VarType(cellule) = 7 Then cellule = format(cellule,"yyyy-dd-mm")
        If IsDate(cellule) Then Cells(i, 6) = CDate(cellule)
    Next
End Sub

**SfJ5Rpw8** · 07/10/2015, 15h17

Tu n'as pas répondu à la question de DocMarti ..., il y as quoi dans ton fichier pour le 13 mai par exemple ?

Envoyé par Docmarti

Est-ce que les dates dont le jour est supérieur à 12 sont aussi au format mm/jj/aaaa ?

la solution que tu présente ne semble pas gérer le cas du ou la date est supérieure au 12 du mois ...

pour ma part je persiste à penser que tu ne nous en dis pas assez sur la provenance des données et que le traitement des dates doit-être effectué avant .... comment reçoit tu ces données ?

Invité · 07/10/2015, 15h36

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
For i = 1 To 10
 Cells(i, 1).Select
    Cells(i, 1) = Mydate(Cells(i, 1))
Next
End Sub
Function Mydate(d)
Mydate = IIf(IsDate(Format(d, "yyyy-dd-mm")), Format(d, "yyyy-dd-mm"), Format(d, "yyyy-mm-dd"))
End Function

Invité · 07/10/2015, 15h44

je ne serais pas contre une petite explication!

je ne voudrai pas déduire 1 à la mauvaise personne!

**a.ouguerzam** · 07/10/2015, 17h18

ca marche rdurupt sur la 10 premier cellule je peux change les 10 premiers cellules par tout la colonne

le code ca marche parfaitement sauf que je suis en train de mettre des modifications pour sélection tout la colonne A et mettre les changement sur la dernier colonne vide.

j'ai essayé de mettre le code ci dessous mais ca

Code :

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

1
2
3
4
5
6
7
Sub test()
Columns.Select
    Columns(A) = Mydate(Columns(A))
End Sub
Function Mydate(d)
Mydate = IIf(IsDate(Format(d, "yyyy-dd-mm")), Format(d, "yyyy-dd-mm"), Format(d, "yyyy-mm-dd"))
End Function

**patricktoulon** · 07/10/2015, 18h46

bonjour a tous

oui j'ai remarqué cela aussi

quand on a une date (anglais) du style mm/jj/yyyy(10/07/2015)au format date dans la cellule je précise
et que l'on veut formater en francais il n'y a pas d'erreur mais ca ne change rien

alors astuce pour asctuce
exemple en A1 il y 10/07/2015

et bien

Code :

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

cells(1,1)=trim(format(cells(1,1),"mm/dd/yyyy"))

le fait d'utiliser trim fait de la date une valeur mais dans le bon ordre

par contre si c'est 10/25/2015 la conversion fonctionne car excel met pour les jour la valeur qui depasse 12 d'office au bon endroit

Convertir une date anglaise en une date française [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager