Bonjour,
J'exporte des données d'Access vers Excel.
Les dates ne sont pas converties dans la feuille Excel.
Ci-dessous le code:
J'ai essayé avec dd/mm/yyyy, idem
Les champs dans Access sont de type: Date,Abrégé
Merci d'avance de votre aide
Christian
J'exporte des données d'Access vers Excel.
Les dates ne sont pas converties dans la feuille Excel.
Ci-dessous le code:
Code:
Do While Not rst.EOF
For j = 0 To rst.Fields.Count - 1
'si c'est du texte (dbText) on insére "'" pour qu'il soit
'reconnu par EXCEL comme texte
If rst.Fields(j).Type = dbText Then
xlSheet.Cells(i, j + 1) = "'" & rst.Fields(j)
Else
'si c'est une date (dbDate) "jj/mm/aaaa" pour qu'il soit
'reconnu par EXCEL comme une date
If rst.Fields(j).Type = dbDate Then
xlSheet.Cells(i, j + 1).NumberFormat = "jj/mm/aaaa"
xlSheet.Cells(i, j + 1) = rst.Fields(j)
xlSheet.Cells(i, j + 1).AutoFormat
Else
xlSheet.Cells(i, j + 1) = rst.Fields(j)
End If
End If
Next j
i = i + 1
rst.MoveNext
Loop
J'ai essayé avec dd/mm/yyyy, idem
Les champs dans Access sont de type: Date,Abrégé
Merci d'avance de votre aide
Christian