Discussion :

[Soulq]

Bonjour,

Je voudrais savoir si il est possible de sortir un fichier excel dont le nom contienne la valeur d'un champ d'un formulaire.

En gros dans mon test j'ai crée un formulaire avec un champ "DateEntree" et un bouton "test". Sur clic du bouton je voudrais crée un fichier excel (ça pas de problèmes) ET dont le nom contienne la date qui apparait dans le contrôle (et là problème).

Voici le code que j'ai testé :

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
Private Sub btnTest_Click()
 
Dim SQL As String
Dim qd As QueryDef
 
SQL = "SELECT Entree.NEntree, Entree.DateEntree, Entree.NProjet, Entree.NAttribution , Entree.NUtilisateur, Entree.NCommandeMaxima, Entree.LieuE, EntreeDetail.NProduit, Produit.Designation, Produit.RefFournisseur, EntreeDetail.QteEntree, EntreeDetail.PxUnitaire FROM Produit INNER JOIN (Entree INNER JOIN EntreeDetail ON Entree.NEntree = EntreeDetail.NEntree) ON Produit.NProduit = EntreeDetail.NProduit WHERE EntreeDetail.QteEntree>0 "
SQL = SQL & " And Entree!DateEntree=#" & Format(DateEntree, "MM/DD/YYYY") & "#"
SQL = SQL & ";"
 
Debug.Print SQL
 
Set qd = CurrentDb.CreateQueryDef("Requete_Entree", SQL)
DoCmd.OutputTo acQuery, "Requete_Entree", "MicrosoftExcelBiff8(*.xls)", "C:\Documents and Settings\guest\Mes documents\Entree_" & DateEntree & ".xls", False, "", 0
DoCmd.DeleteObject acQuery, "Requete_Entree"
 
 
End Sub

Le code s'arrête sur la ligne DoCmd.OutputTo avec "Erreur 2302 : Ne peut enregistrer les résultats dans le fichier sélectionné."

J'ai essayé plusieurs types de syntaxes sans plus de succès. Ce que je veux faire est-il possible et si oui comment?

Merci d'avance.

[FreeAccess]

Bonjour,

Ta syntaxe est correct.......simplement c'est le nom de ton fichier qui n'est pas conforme....

En effet dans ton exemple, le fichier XLS généré aurait comme nom :

"Entree_29/07/2009.xls"

...donc modifie le format de la date en la transformant par exemple en :
- 29_07_2009
- 29072009
- 29JUL09

Pour travailler sur des chaînes de caractères.....une bonne adresse (parmi d'autres...):
Comment extraire une partie d'une chaîne de caractères ?

à toi de voir.......

[Soulq]

Merci de ta réponse, effectivement je n'ai eu qu'à remplacer le code par

Code :

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

DoCmd.OutputTo acQuery, "Requete_Entree", "MicrosoftExcelBiff8(*.xls)", "C:\Documents and Settings\guest\Mes documents\Entree" & Format(DateEntree, "DDMMYYYY") & ".xls", False, "", 0

et ça fonctionne parfaitement.