Discussion :

[Invité]

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 :

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

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?

[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 :

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

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

[Invité]

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 :

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
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