Discussion :

[Gali]

Bonjour,

J'essaye d'exporter des données provenant d'un requete de selection R_devis vers un document excel pour cela, j'ai commencé ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function insert_excel()
Dim db As Database
Dim qd As DAO.QueryDef
Dim rst As DAO.Recordset
Dim compteEnr As Long, chMsg As String
Dim varRetournée As Variant, lngX As Long
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim temp As Variant
Set db = CurrentDb()
Set appexcel = CreateObject("Excel.Application")
 
'-> Si true excel s'affiche à l'écran
appexcel.Visible = True
 
'->ouverture du fichier excel,
Set wbexcel = appexcel.Workbooks.Open("F:\User\AGENCE CENTRE EST\ANNEE 2006\Groupe eau potable - légionelles\Pierre\DEVIS PMCA.xls")
 
'->selection de la feuille,
appexcel.Sheets("FICHE de MESURE Légio NFT ").Select
 
'-> ouverture de la requete de selection
Set qd = db.OpenQuery("R_devis")

Malheuresement, je n'arrive pas à ouvrir la requete de selection malgré l'aide que m'as donné la FAQ et le code de caféine.

Le deboggeur de donne l'erreur suivante sur la derniere ligne "menbre de methode ou de données introuvable."

Quelqu'un pourrait-il m'expliquer quel la bonne synthaxe pour ouvrir ma requete?

Merci d'avance.

[Lou Pitchoun]

Salut,
Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim qd As DAO.Recordset
Set qd = db.OpenRecordset("R_devis")

Ca devrait fonctionner.

[Gali]

Ton code me donne une erreur "trop peu de parametre" erreur 3061.

Ma requete demande un numero de devis pour pouvoir selectionner celui désiré. Est ce que c'est à cause de ca?


[EDIT]
j'ai modifié mon code grace à un code de cafeine.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim db As Database
 
Dim rst As DAO.Recordset
Dim qd As DAO.QueryDef
Dim compteEnr As Long, chMsg As String
Dim varRetournée As Variant, lngX As Long
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim temp As Variant
Set db = CurrentDb()
Set appexcel = CreateObject("Excel.Application")
 
'-> Si true excel s'affiche à l'écran
appexcel.Visible = True
 
'->ouverture du fichier excel,
Set wbexcel = appexcel.Workbooks.Open("F:\User\AGENCE CENTRE EST\ANNEE 2006\Groupe eau potable - légionelles\Pierre\DEVIS PMCA.xls")
 
'->selection de la feuille,
appexcel.Sheets("FICHE de MESURE Légio NFT ").Select
 
'-> ouverture de la requete de selection
'->Set qd = db.OpenQuery("R_devis")
 
Set qd = db.QueryDefs("R_devis")
'-> modification des données dans excel
qd.Parameters("Ref Devis") = valeur

Malheuresement j'ai une erreur sur la dernière ligne.
Comment doit etre definit valeur? est-il bien le paramètre de selection dans ma requete?

[ft035580]

Salut,

Il me semble que [Valeur] serait mieux

[Lou Pitchoun]

Ma requete demande un numero de devis pour pouvoir selectionner celui désiré. Est ce que c'est à cause de ca?

Oui c'est à cause de ça...

Ce que je te conseille, c'est de :
1) Faire ta requete dans le code VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim SQL As String
SQL = "SELECT tes champ " & _
"FROM tes tables " & _
"WHERE tonchamp = " & TaVariable

2) utilise cette fonction pour créer ou mettre à jour la requete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub CreationRequete(SQL As String, NomRequete As String)
 
    Dim oDB As DAO.Database
    Dim oRqt As DAO.QueryDef
 
    Set oDB = Application.CurrentDb
 
    'Teste l'existence de la requete et s'il elle existe la modifie
    If TestExistenceRequete(NomRequete, oDB) = True Then
        Set oRqt = oDB.QueryDefs(NomRequete)
        oRqt.SQL = SQL
        Else
            'Crée la requete
            Set oRqt = CurrentDb.CreateQueryDef(NomRequete, SQL)
    End If
    'Rafraichit la liste des requetes
    oDB.QueryDefs.Refresh
End sub

3) reprend le code que je t'ai donné dans le 1er post.
En ce qui concerne la fonction TestExistenceRequete() regarde la FAQ

[Gali]

[quote=Kikof]Oui c'est à cause de ça...

Ce que je te conseille, c'est de :
1) Faire ta requete dans le code VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim SQL As String
SQL = "SELECT tes champ " & _
"FROM tes tables " & _
"WHERE tonchamp = " & TaVariable

J'ai un peu de mal avec cette partie.

Que signifie les &_" ?

[Lou Pitchoun]

Les & _ signifie un retour à la ligne et pour faire en sorte que chaque ligne soit prise en compte comme une seule ligne dans le cas (ici) de l'écriture du SQL d'une requete. Ca peut parfois être très long, et les écrans ne font pas 40"... déjà que l'on scrolle verticalement... ca suffit... non

[kryssy]

Salut
j'ai eu le même problème, le mieux selon moi est de copier le code sql de ta requête que tu insère dans vba
cf page suivante : http://loufab.developpez.com/analyseparam/
partie 5
En espérant t'avoir aidé