Format dates

Re : Format dates

Bonjour

IL faudrait régler le problème à l'import : d'où viennent les fichiers et quel est le format ?

Re : Format dates

Bonsoir ivan27,

Si dans le fichier on affecte aux cellules H4:H7 le format 'Alignement horizontal => Standard', on s'aperçoit que les dates sont alignées à droite sauf celle de H6 (15/04/2012). Ce qui pourrait indiquer que la date en H6 n'est pas reconnu comme date. Ceci peut-être le symptome qu'à l'importation des données, Excel considérait les dates comme étant au format américain (mm/dd/yyyy) et non comme le format (jj/mm/aaaa). Le mois 15 n'existant pas, il a considéré que c'était du texte. Comme l'a dit chris le PB est vraisemblablement à l'import des données.

Si ce sont bien des dates au format américain, on peut les convertir: Sélectionner les cellules de la colonne date puis en passant par le menu 'Données / Convertir' à l'étape 3 choisir le format de colonne 'MJA'.

Re : Format dates

Bonsoir à tous,

Je vous joint un modèle des fichiers importés sur les onglets BD1 et BD2.
Sur ces deux fichiers, les immatriculations sont traitées après importation pour avoir un format identique avec ce code :

tablo = Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
If IsNumeric(Left(tablo(n, 1), 1)) Then
tablo(n, 1) = Replace(tablo(n, 1), "-", "")
For m = 1 To Len(tablo(n, 1)) - 1
neo = neo & Mid(tablo(n, 1), m, 1)
If IsNumeric(Mid(tablo(n, 1), m, 1)) And Not IsNumeric(Mid(tablo(n, 1), m + 1, 1)) Then
neo = neo & " "
End If
If Not IsNumeric(Mid(tablo(n, 1), m, 1)) And IsNumeric(Mid(tablo(n, 1), m + 1, 1)) Then
neo = neo & " "
End If
Next
tablo(n, 1) = neo & Right(tablo(n, 1), 1)
tablo(n, 1) = Replace(neo & Right(tablo(n, 1), 1), " ", " ")
neo = ""
Else
tablo(n, 1) = Replace(tablo(n, 1), " ", "")
For m = 1 To Len(tablo(n, 1)) - 1
neo = neo & Mid(tablo(n, 1), m, 1)
If Not IsNumeric(Mid(tablo(n, 1), m, 1)) And IsNumeric(Mid(tablo(n, 1), m + 1, 1)) Then
neo = neo & "-"
End If
If IsNumeric(Mid(tablo(n, 1), m, 1)) And Not IsNumeric(Mid(tablo(n, 1), m + 1, 1)) Then
neo = neo & "-"
End If
Next
tablo(n, 1) = Replace(neo & Right(tablo(n, 1), 1), "--", "-")
neo = ""
End If
Next n
Range("C2").Resize(UBound(tablo), 1) = tablo

La date de BD2 est traitée avec ce code :

Sub FormatDateHeureBD2()
For Each c In Worksheets("BD2").Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row)
c.Value = Int(c)
Columns("E:E").NumberFormat = "dd/mm/yyyy "
Next c
End Sub

et les formats numériques avec celui-ci :

Sub FormatNumBD2KmsCompteur()
For Each c In Worksheets("BD2").Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row)
c.Value = Val(c.Text)
Columns("F:F").NumberFormat = "###0.00"
Next c
End Sub

J'ai fait plusieurs tentatives d'importation et je n'ai plus d'idée. Les dates sur les fichiers d'origine sont bien au format français (mois d'avril)

Le problème vient probablement de la conversion du format DATE / HEURE de BD2...

Cdlt,

Ivan

Re : Format dates

Désolé, un fichier n'est pas passé.

Re : Format dates

Bonjour,

Voir PJ

JB

Re : Format dates

Bonjour et merci Jacques,

Pour le format ça semble coller.
Par contre, sur le premier tableau (commun) seule la colonne date est importée (1 ligne trop haut et dans la colonne immatriculation).
Sur le second tableau une ligne trop haut également;
Le troisième tableau semble correct.
Te serait-il possible d'arranger cela ?
Cdlt,

Ne pas tenir compte de cette demande, j'ai trouvé mon erreur...
Encore merci

Ivan