Discussion :

[Reidid]

Bonjour et meilleurs voeux à toutes et à tous.

Je rencontre un probleme d'exportation ( par macro ) vers excel
d'un état issue d'une requête.
Un des champs se composant de valeurs (Texte dans la table d'origine)
idem 00A ou 01C ou 02S ... etc; m'arrivent dans excel avec seulement
un zéro ou alors sous forme de chiffre avec virgule ( ex: 0,643333333)
alors que toutes les valeurs idem 99A, 96T etc sont correctes dans Excel.

Merci d'avance de vos conseils.
Tres cordialement.
Didier.

[Muhad'hib]

Salut et bienvenu dans le forum,

Quel est le format de ta colonne dans Excel ?
Est-ce bien un format Texte ?

A+

[cafeine]

Hello,

il existe un tutoriel dédié à l'export excel

http://cafeine.developpez.com/access/tutoriel/excel

[Reidid]

Bonsoir

Sous Excel apres l'exportation le champ est sous format standard, les valeurs sont toutes correctes pour les nombres 98 ou 99, seulement les valeurs 00 sont exportées incorrectes.

Je regarde le tutoriel.

Merci de votre aide.
Cordialement.
Didier.

[Muhad'hib]

Salut,

Si le format est standard, Excel interprete les données. Ainsi 0098 sera considéré comme un nombre est donc c'est "98" qui s'affichera.

=> Tu peux soit modifier le format de tes cellules avant de coller les données (format texte => aucune interprétation), soit mettre un simple quote devant tes données ( .cells(1,1) = &"'" & Valeur).

A+

[cafeine]

extrait du code sur l'automation dans mon tuto ...

    ' recopie des données à partir de la ligne 3
    I = 3
    Do While Not rec.EOF
        For J = 0 To rec.Fields.Count - 1
            ' .Fields(Index).Type renvoie le type du champ
            '   si c'est un Texte (dbText) nous insérons "'" pour
            '   qu'il soit reconnu par Excel comme du Texte
            If rec.Fields(J).Type = dbText Then
                xlSheet.Cells(I, J + 1) = "'" & rec.Fields(J)
            Else
                xlSheet.Cells(I, J + 1) = rec.Fields(J)
            End If
        Next J
        I = I + 1
        rec.MoveNext
    Loop

le code examine le type du champ, s'il est texte (dbText) il ajoute un quote (')

[Reidid]

Bonsoir

Merci beaucoup pour votre aide et vos conseils.

A tres bientot.

Cordialement.
Didier.