Discussion :

[Begon0]

bonjour

j'aimerai exporter le résultat d'une procédure stockée dans un fichier excel avec des paramètres renseignés dans un formulaire

pour l'export simple, pas de soucis en utilisant la fonction outputto :

Code :

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

DoCmd.OutputTo acOutputStoredProcedure, "ProcStatComm", acFormatXLS, WshShell.SpecialFolders("Desktop") & "\StatCommerciales.xls", -1

ça exporte bien les données avec les valeurs par défaut de la procédure
par contre je ne sais pas comment faire pour que l'export prenne en compte les paramètres du formulaire

pouvez-vous m'aider ?

[Begon0]

j'ai trouvé il faut passer la commande EXEC avec les différents paramètres pour que ça fonctionne
pour ceux que ça intéresse :

Code :

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

1
2
3
4
5
6
7
8
9
Dim WshShell
Dim sqlSP As String
 
    With Forms!Menu_editions
        sqlSP = "EXEC ProcStatComm @DateDeb='" & !debut & "',@DateFin='" & !fin & "', @Client = '" & !listeClients & "', @Site = '" & !ListeSites & "',@Marche = '" & !ListeMarches & _
            "',@Marque = '" & !ListeMarque & "',@Groupe = '" & !ListeGroupe & "',@Famille = '" & !ListeFamille & "'"
        Set WshShell = CreateObject("Wscript.Shell")
        DoCmd.OutputTo acOutputStoredProcedure, sqlSP, acFormatXLS, WshShell.SpecialFolders("Desktop") & "\StatCommerciales.xls", -1
    end with

par contre j'ai un soucis, avec 7 paramètres ça marche sans problème mais dès que je passe à 8, j'ai une erreur 119 (Les numéros du paramètre 8 et des paramètres qui suivent doivent être passés sous la forme 'name = valeur'...)
quelquesoit le paramètre que je mets ou j'enlève
normalement cette erreur apparait si on change la façon d'envoyer les paramètres, par ex ce code va renvoyer une erreur:

Code :

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

1
2
 
"EXEC ProcStatComm @DateDeb='" & !debut & "',@DateFin='" & !fin & "', '" &  !listeClients & "', @Site = '" & !ListeSites & "'"

alors que ce code fonctionnera :

Code :

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

1
2
 
"EXEC ProcStatComm '" & !debut & "','" & !fin & "', 'MonClient', @Site = '" & !ListeSites & "'"

je ne sais pas si on est limité à 7 paramètres ou si quelquechose m'echappe
si quelqu'un a une idée

[Begon0]

ça fonctionne si je passe les valeurs directement sans spécifier le nom du paramètre mais ça ne me convient pas car si je change l'ordre des paramètres ou si j'en insère un nouveau, ça ne marchera plus

[Begon0]

je m'en sors en passant juste 1 paramètre seul en premier et tous les autres en spécifiant le nom du paramètre
ça devrait aller comme ça

merci pour votre aide

et si jamais vous trouvez une explication je suis preneur