Pb de conversion date d'Access vers Excel

[rch05]

Bonjour,

J'exporte des données d'Access vers Excel.
Les dates ne sont pas converties dans la feuille Excel.
Ci-dessous le 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

 

[Guest]

Re : Pb de conversion date d'Access vers Excel

Bonjour,

Si c'est une macro dans excel, vérifie le type vb (et non pas access) retourné par rst.Fields(j):

TypeName(rst.Fields(j))

IsDate(rst.Fields(j))

Si TypeName renvoie "String" essaie la conversion avec CDate(rst.Fields(j))

Mets : Debug.Print rst.Fields(j) après avoir afficher la fenêtre exécution

Ou

Ajoute un espion en affichant la fenêtre espion.


A+

 

[rch05]

Re : Pb de conversion date d'Access vers Excel

Bonjour Hasco,

Le code est sous access.

Merci

 

[rch05]

Re : Pb de conversion date d'Access vers Excel

J'ai trouvé la solution.
Il faut enlever la ligne

xlSheet.Cells(i, j + 1).AutoFormat

A priori il enléve le format défini avant.

Merci