Discussion :

[Toff !!!!!]

Bonjour, lorsque je clic sur mon bouton jái une erreur : trop peu de parametre, 1 attendu

voici le 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
24
    'Declaration des variables d'instanciation
Dim appexcel As Excel.Application
Dim wbexcel As Excel.Workbook
Dim wsexcel As Excel.Worksheet
 
'Declarations de Variables de données et d'exportation
Dim XlLgn As Double
Dim db As DAO.Database
Dim Rst As DAO.Recordset
Dim sSQL As String
 
 
'Définition des instances
Set appexcel = CreateObject("Excel.Application")
Set wbexcel = appexcel.Workbooks.Open("D:\mes documents\Classeur1")
Set wsexcel = wbexcel.Sheets("Fact")
 
 
'Création du jeu de données
Set db = CurrentDb
sSQL = "SELECT facture1.[N° facture], facture1.Date, facture1.[Ref pces peinte], facture1.designation, facture1.[Quantité livrée], Sum(facture1.[Prix unitaire HT]) AS [SommeDePrix unitaire HT], facture1.[Prix unitaire HT], facture1.Pnull, [Quantité livrée]*[Prix unitaire HT] AS total, facture1.[N° BL], facture1.[ref commande], Client.[Nom client], Pièce.[Teinte/Ral], Client.Adresse, Client.Ville, Client.[Code postal], Client.[Référence client] FROM Pièce RIGHT JOIN (Client RIGHT JOIN facture1 ON Client.[Nom client] = facture1.Client) ON Pièce.[Référence pièce] = facture1.[Ref pces peinte]GROUP BY facture1.[N° facture], facture1.Date, facture1.[Ref pces peinte], facture1.designation, facture1.[Quantité livrée], facture1.[Prix unitaire HT], facture1.Pnull, [Quantité livrée]*[Prix unitaire HT], facture1.[N° BL], facture1.[ref commande], Client.[Nom client], Pièce.[Teinte/Ral], Client.Adresse, Client.Ville, Client.[Code postal], Client.[Référence client]" _
& "HAVING (((facture1.[N° facture])=[Formulaires]![facture1]![N° facture]));"
 
Set Rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

Je cherche depuis un ertain moment san savoir d´ou cela pourrait venir.... pourriez vous m´aider merci...

[Toff !!!!!]

Il est possible que j´ai une erreur de syntaxe dans ma requete sql ?

Car ma requete me donne l´impression de bien marcher....


Par contre c´est une requete comportant un filtre..... faudrait il que je deffinns quelque chose pour que le filtre fonctionne comme je le souhaite?.. le probleme vient peu etre de la...

[Muhad'hib]

Le texte de ton Sql est copié depuis une requète non ?
Cette requète fonctionne correctement ?

[Toff !!!!!]

oui oui cést copier et elle marche...

c´est une requete comportent un filtre sur le N° de facture...

donc je l´ouvre , je tape le N° de facture et j´ai toutes les info sur ce N°...

je voulais que ces infos soient reutilisées pour etre inscrites dans un fichier excel....


donc je comprens pas d´ou vien l´erreur...

c´est la derniere ligne qui est surligné en jaune...

[Toff !!!!!]

par contre lorsque mon formulaire est ouvert ma requete ne fonctionne pas..... donc je pense que l´erreur se cache ici...

ma requete est mal definie....

je corrige et jéspere que ca marchera mieux....

[Muhad'hib]

Tu peux tester avec ça :

Si la donnée [Formulaires]![facture1]![N° facture] est bien numérique :

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
 
    'Declaration des variables d'instanciation 
Dim appexcel As Excel.Application 
Dim wbexcel As Excel.Workbook 
Dim wsexcel As Excel.Worksheet 
 
'Declarations de Variables de données et d'exportation 
Dim XlLgn As Double 
Dim db As DAO.Database 
Dim Rst As DAO.Recordset 
Dim sSQL As String 
 
 
'Définition des instances 
Set appexcel = CreateObject("Excel.Application") 
Set wbexcel = appexcel.Workbooks.Open("D:\mes documents\Classeur1") 
Set wsexcel = wbexcel.Sheets("Fact") 
 
 
'Création du jeu de données 
Set db = CurrentDb 
sSQL = "SELECT facture1.[N° facture], facture1.Date, facture1.[Ref pces peinte], facture1.designation, facture1.[Quantité livrée], Sum(facture1.[Prix unitaire HT]) AS [SommeDePrix unitaire HT], facture1.[Prix unitaire HT], facture1.Pnull, [Quantité livrée]*[Prix unitaire HT] AS total, facture1.[N° BL], facture1.[ref commande], Client.[Nom client], Pièce.[Teinte/Ral], Client.Adresse, Client.Ville, Client.[Code postal], Client.[Référence client] FROM Pièce RIGHT JOIN (Client RIGHT JOIN facture1 ON Client.[Nom client] = facture1.Client) ON Pièce.[Référence pièce] = facture1.[Ref pces peinte]GROUP BY facture1.[N° facture], facture1.Date, facture1.[Ref pces peinte], facture1.designation, facture1.[Quantité livrée], facture1.[Prix unitaire HT], facture1.Pnull, [Quantité livrée]*[Prix unitaire HT], facture1.[N° BL], facture1.[ref commande], Client.[Nom client], Pièce.[Teinte/Ral], Client.Adresse, Client.Ville, Client.[Code postal], Client.[Référence client]" _ 
& "HAVING facture1.[N° facture]= " & Forms("facture1").N°_facture & ";" 
 
Set Rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)

Tiens nous au courant...

[Mr White]

Bonjour,

voici comment je procède pour que ça marche.

1°) je sélectionne une ligne dans une table.
2°) je la copie dans une table temporaire.
3°) j'exporte les données de la table temporaire vers un fichier Excel.
4°) j'ouvre le fichier en question.

voici les codes VBA qui marchent pour moi:

1°) sélection:pas de code car c'est une requêt qui le fait
2°) Copie

Code :

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

DoCmd.OpenQuery "AJOUT_TableEnAttenteExport"

3°) exportation:

Code :

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

DoCmd.TransferSpreadsheet acExport, , "en attente d'exportation", "S:\...\" & Forms!campagnes![NumeroCampagne] & ".xls"

4°) ouverture du fichier:

Code :

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

1
2
3
4
5
6
7
8
9
10
'déclaration des variables
    Dim MonExcel As Excel.Application, wb As Excel.Workbook
    Dim Nomdufichier As String
 
    'le nom du fichier Excel va être le n° de la campagne
    Nomdufichier = Me!NumeroCampagne.Value
 
    'ouvrir le bon fichier Excel
    Set MonExcel = New Excel.Application
    Set wb = MonExcel.Workbooks.Open(FileName:="S:\COMMERCE\Interne\INDIVIDUS\HUGO\Base de données\" & Nomdufichier & ".xls")

Voilà. J'espère que ça va t'aider. Si c'est le cas, pense à remercier Muhad'hib qui est le principal acteur de cette réussite.

Mr White