format de date non-appliqué

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
j'ai un petit problème lors d'une copie de données depuis une BDD vers Excel: une colonne, qui est formatée pour contenir des dates, affiche effectivement des cellules en date mais d'autre non. Il suffit d'éditer manuellement la cellule pour que le format soit appliqué. Je ne comprends pas trop.

Pour la copie des colonnes j'utilise le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Do While Not rs.EOF For Each f In rs.Fields Select Case UCase(f.Name) Case "DATE1", "DATE2", "DATE3" donneesExcel.Cells(i, listColonne(f.Name)).NumberFormat = "m/d/yyyy" Case "DATA1", "DATA2" donneesExcel.Cells(i, listColonne(f.Name)).NumberFormat = "@" End Select donneesExcel.Cells(i, listColonne(f.Name)).value = rs.Fields(f.Name).value Next f i = i + 1 rs.MoveNext Loop
J'ai beau avoir utilisé .Value, .Value2, .FormulaR1C1 pour initialiser le contenu de la cellule, j'ai toujours le même problème.

Le fichier en pièce jointe montre bien ce qui ce passe (les "bonnes" dates sont alignés à droite, les "mauvaises" à gauche).

Une idée comment résoudre ça?

07/02/2012, 12h46
Daniel.C

Bonjour,

Les dates sur ta feuille Excel son au format mm/jj/aaaa
Si le mois est inférieur à 13, la date est acceptée, sinon, elle est considérée comme du texte. Essaie en mettant :

Code:

donneesExcel.Cells(i, listColonne(f.Name)).NumberFormat = "d/m/yyyy"

Ce n'est malheureusement pas si simple.

une solution qui marche: convertir la valeur à remplir en Date avec CDate() avant de l'utiliser pour la cellule. Dans ce cas là, pas besoin de convertir le format de la cellule.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Do While Not rs.EOF
  For Each f In rs.Fields
    cellValue = RsFilter(rs.Fields(f.Name).value)
 
    Select Case UCase(f.Name)
      Case "DATE1", "DATE2", "DATE3"
        cellValue = CDate(cellValue)
      Case "DATA1", "DATA2"
        donneesExcel.Cells(i, listColonne(f.Name)).NumberFormat = "@"
    End Select
 
    donneesExcel.Cells(i, listColonne(f.Name)).value = cellValue
  Next f
 
  i = i + 1
  rs.MoveNext
Loop