Nombre dans une cellule de texte

Bonjour Thierry,
Essaye en remplaçant al deuxième ligne par :

Feuil1.Cells(1, 1).Value = Format(CStr(rapport_ca), "Standard")

--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Thierry" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2d15601c46982$22d90750$a301280a@phx.gbl...
Bonjour,

dans une application VB, je reprend des données d'une
feuille excel que je mets dans une autre feuille dans une
cellule de type texte. Lorsque la cellule d'origine
contient un nombre, excel affiche ce nombre sous forme de
date.

Voici le code utilisé :

Dim rapport_ca As String

Feuil1.Cells(1, 1).NumberFormat = "Texte"
Feuil1.Cells(1, 1).Value = CStr(rapport_ca)

Si rapport_ca = 269 la cellule contient 25.09.1900

Merci

Bonjour Thierry,
remplace "Texte" par "@" chez moi cé OK
C'est l'enregistreur de macro qui me là confirmé

Feuil1.Cells(1, 1).NumberFormat = "@"
Feuil1.Cells(1, 1).Value = CStr(rapport)

Bruno

Thierry <anonymous@discussions.microsoft.com> a écrit dans le message :
2d15601c46982$22d90750$a301280a@phx.gbl...
Bonjour,

dans une application VB, je reprend des données d'une
feuille excel que je mets dans une autre feuille dans une
cellule de type texte. Lorsque la cellule d'origine
contient un nombre, excel affiche ce nombre sous forme de
date.

Voici le code utilisé :

Dim rapport_ca As String

Feuil1.Cells(1, 1).NumberFormat = "Texte"
Feuil1.Cells(1, 1).Value = CStr(rapport_ca)

Si rapport_ca = 269 la cellule contient 25.09.1900

Merci