Exporter des données vers excel avec un format précis

Question

Bonjour,
Je cherche &#224; exporter des donn&#233;es vers excel sous un format bien pr&#233;cis.
Ainsi, j'ai dans ma base de donn&#233;es une table echantillon avec un champ : profondeur (les profondeurs de tous mes &#233;chantillons).
Ce que j'aimerais faire c'est de mettre dans la premi&#232;re ligne de mon fichier excel toutes mes profondeurs de ma table.
J'ai essay&#233; de r&#233;cup&#233;rer du code un peu partout et pour l'instant j'ai &#231;a :
Dim xl As Excel.Application
        Set xl = New Excel.Application
        With xl
        .Visible = True
        .Workbooks.Add
        .Cells(1, 1) = "test"
        End With
        Row = ActiveSheet.UsedRange.Row        xl.Cells(Row, 2).Value "SELECT profondeur FROM echantillon WHERE (Site '" & sit & "')"
        xl.Save "c:\Documents and Settings\classeur.xls"
Quand je lance tout &#231;a le programme m'&#233;crit en fait dans la 2eme cellule de mon tableau : select profondeur......
Quelqu'un sait-il faire ce genre de chose svp ?
Merci.

sacha1435 · Answer

Salut,

Si j'ai bien compris :
Dim xl As Excel.Application
        Set xl = New Excel.Application
        With xl
        .Visible = True
        .Workbooks.Add
        .Cells(1, 1) = "test"
        End With
        Row = ActiveSheet.UsedRange.Row        xl.Cells(Row, 1).Value "SELECT profondeur FROM echantillon WHERE (Site '" & sit & "')"
        xl.Save "c:\Documents and Settings\classeur.xls"

Dans ce cas test est remplacer par "Select "etc...
Dim xl As Excel.Application
        Set xl = New Excel.Application
        With xl
        .Visible = True
        .Workbooks.Add
        .Cells(1, 1) = "test"
        End With
        Row = ActiveSheet.UsedRange.Row        xl.Cells(Row+1, 2).Value "SELECT profondeur FROM echantillon WHERE (Site '" & sit & "')"
        xl.Save "c:\Documents and Settings\classeur.xls"

Dans ce cas la cellule (2,1) est remplie.

Quand tu parle de la 2&#232;me cellule, tu entends la 2&#232;me cellule de la 1ere rang&#233;e ou la 2&#232;me de la 1er colonne ?

Sacha

  \!/
    00
     !

sacha1435 · Answer

OOPS
Salut,

Si j'ai bien compris :
Dim xl As Excel.Application
        Set xl = New Excel.Application
        With xl
        .Visible = True
        .Workbooks.Add
        .Cells(1, 1) = "test"
        End With
        Row = ActiveSheet.UsedRange.Row        xl.Cells(Row, 1).Value "SELECT profondeur FROM echantillon WHERE (Site '" & sit & "')"
        xl.Save "c:\Documents and Settings\classeur.xls"

Dans ce cas test est remplacer par "Select "etc...
Dim xl As Excel.Application
        Set xl = New Excel.Application
        With xl
        .Visible = True
        .Workbooks.Add
        .Cells(1, 1) = "test"
        End With
        Row = ActiveSheet.UsedRange.Row        xl.Cells(Row+1, 2).Value "SELECT profondeur FROM echantillon WHERE (Site '" & sit & "')"
        xl.Save "c:\Documents and Settings\classeur.xls"

Dans ce cas la cellule (2,2) est remplie.

Quand tu parle de la 2&#232;me cellule, tu entends la 2&#232;me cellule de la 1ere rang&#233;e ou la 2&#232;me de la 1er colonne ?

  \!/
    00
     !

cokinoumasterflash · Answer

Salut,
En fait Cells(1, 1) = "test" je l'avais mis pour tester le d&#233;but de mon code. J'aurais du l'enlever....

Exporter des données vers excel avec un format précis

3 réponses

Discussions similaires