nada2008
Messages postés27Date d'inscriptionlundi 28 janvier 2008StatutMembreDernière intervention 8 avril 2009
-
2 déc. 2008 à 13:23
nada2008
Messages postés27Date d'inscriptionlundi 28 janvier 2008StatutMembreDernière intervention 8 avril 2009
-
3 déc. 2008 à 10:06
salut les amis ,
j'ai besoin d'aide
j'ai fait une exportation des donnees d'une base sql vers un fichier excel
mais le probleme c'est dans le champs date il maffiche des numero bizzar
voila le code
Private Sub Command1_Click()
Dim co As Integer
Dim oApp As Object
Dim mysheet As Object
Dim i As Integer
Set oApp = CreateObject("Excel.Application")
Set mysheet = oApp.workbooks.Add
Call connect
Set st = New Recordset
Dim req As String
req = " select e.nom_emp,t.nom_prj,t.date_debut,t.date_fin,t.nbre_heure from employe e,travail t where e.num_emp= t.num_emp"
st.Open req, cn, adOpenDynamic, adLockPessimistic
co = 0
While Not st.EOF
oApp.Worksheets(1).Cells(2 + co, 1).Value = st(0)
oApp.Worksheets(1).Cells(2 + co, 2).Value = st(1)
oApp.Worksheets(1).Cells(2 + co, 3).Value = st(2)
oApp.Worksheets(1).Cells(2 + co, 4).Value = st(3)
oApp.Worksheets(1).Cells(2 + co, 5).Value = st(4)
st.MoveNext
co = co + 1
Wend
DenisMada
Messages postés6Date d'inscriptionjeudi 29 mai 2008StatutMembreDernière intervention31 décembre 2008 2 déc. 2008 à 15:40
Bonjour nada2008 et le Forum
je suppose qu'excel t'affiche des chiffres en 39000
et quelquechose !
A mon avis, mettre soit : Cdate(st2)
soit : format(st2;"DD/MM/YY")