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
oApp.Worksheets(1).Cells(1, 1).Value = "nom employé"
oApp.Worksheets(1).Cells(1, 2).Value = "nom projet"
oApp.Worksheets(1).Cells(1, 3).Value = "date debut"
oApp.Worksheets(1).Cells(1, 4).Value = "date fin"
oApp.Worksheets(1).Cells(1, 5).Value = "nombre heure"
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
oApp.Visible = True
oApp.UserControl = True
End Sub