Bonjour

J'ai une requête sur Access que je voudrais faire passer sur excel pour pouvoir la retravailler.

Comment puis-je faire ?

Merci d'avance

?????????????????????????
Tu veux pouvoir passer le résultat de ta requête sous excel tu veux dire...
Il suffit de faire une connexion sur une feuille excel.
De lancer un recordset de ta requête et d'inclure chaque champ dans les colonnes et lignes de ta feuille Excel.
Il y a une multitude d'aide à ce sujet sur vbfrance, sinon va voir dans les messages que j'ai envoyé dernièrement, j'ai laissé quelques fonctions pour faire ça.

TBBUIM

oui c'est ca que je veux faire

pourrait tu me donner un exemple de code stp car je ne sais pas comment m'y prendre

merci !

Bonjour,

Projet / références cocher "Microsoft Excel 9.0 Object Library"

Dim Db As Database
Dim Req As Recordset
Set Db = OpenDatabase("C:\Program files\microsoft Visual Studio\vb98\Voyage.mdb")
Set Req = Db.OpenRecordset("SELECT *FROM Liste")

Text1.Text = Req("Destinations")
Text2.Text = Req("Prix")

Req.Close
Db.Close
Set Req = Nothing
Set Db = Nothing

jpleroisse

Re,
Excuse, me suis tromper de code, il n'est pas complet, tu dois ouvrir Excel avant et remplacer TextBox par Range.

jpleroisse

merci jpleroisse
je vais essayer !!!
encore merci.
bye

Re,
N'oublie pas Projet / références Dao 3.51 (ou 4.0) suivant version et Excel 9.0 Object Library

Private Sub Command1_Click()
Dim Db As Database
Dim Req As Recordset
Set Db = OpenDatabase("C:\Program files\microsoft Visual Studio\vb98\Voyage.mdb")
Set Req = Db.OpenRecordset("SELECT * FROM Liste")

Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet

If Not IsObject(objXL) Then
    MsgBox "Vous Avez Besoin de Microsoft Excel  pour cette Fonction", vbExclamation, "Excel"
    Exit Sub
End If

' Ouvre Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet
wsXL.Cells(1, 1).Value = Req("Destinations")
wsXL.Cells(1, 2).Value = Req("Année")
objXL.ActiveWorkBook.Close False
objXL.Quit
Set Req = Nothing
Set Db = Nothing

End Sub

jpleroisse

Si tu veux travailler à partir d'Excel, vas voir ma source

http://www.vbfrance.com/code.aspx?ID=31326

cele fait, à mon avis exactement ce que tu veux faire.

jpleroisse

Pas mal ta source jpleroisse mais tu oublis de tester la Présence d'enregistrements aprés la requete :

Private Sub Command1_Click()

Dim Db As Database
Dim Req As Recordset
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet

If Not IsObject(objXL) Then
    MsgBox "Vous Avez Besoin de Microsoft Excel  pour cette Fonction", vbExclamation, "Excel"
    Exit Sub
End If

Set Db = OpenDatabase("C:\Program files\microsoft Visual Studio\vb98\Voyage.mdb")
Set Req = Db.OpenRecordset("SELECT * FROM Liste")
If Req.Recordcount <>0 Then ' Si il y a  au moins 1 enregistrement
   ' Ouvre Excel
   objXL.Visible = True
   Set wbXL = objXL.Workbooks.Add
   Set wsXL = objXL.ActiveSheet
   wsXL.Cells(1, 1).Value = Req("Destinations")
   wsXL.Cells(1, 2).Value = Req("Année")
   objXL.ActiveWorkBook.Close False
   objXL.Quit
End If

Set Req = Nothing
Set Db = Nothing

End Sub

It@li@

Merci pour votre aide
J'ai enfin trouvé comment faire.

a+