Discussion :

[Marcopololo]

Bonjour,

Je suis en train de créer un formulaire d'export sous excel.

Je voudrais que mon fichier soit nommé en fonction d'un champ de ma requête et de l'année.
Mais cela coince pour le champ. Es ce autorisé ?

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Requête Export Liste Extincteurs Excel", "c:\Rapport " & Format(Now, "yyyy") & [nom de la requete].nom du champ & ".xls"

[mout1234]

Bonjour,

Une requête n'est pas directement utilisable de cette façon.

Tu dois dans ton cas passer par un recordset.

Précise STP dans quel contexte se place ta requête....

• s'agit-il de la source d'un formulaire actuellement ouvert?
• est-ce une requête que tu as enregistrée et à partir de laquelle tu veux générer autant de fichiers XL que d'enregistrements dans la requête?
• Est-ce une requête ne retournant qu'une ligne?

La solution la plus adaptée en dépendra...

D'ailleurs au fait, est-ce bien une requête ?

[Marcopololo]

bonjour Mout,

Il s'agit d'une requête créé lors du choix d'un code client dans une zone déroulante.

Ma requête se créé et elle me donne un nom d'entreprise unique que je voudrais utiliser comme nom du fichier excel.

Voila pour l'instant sachant que je voudrais ensuite compliquer les choses, c'est à dire utiliser 2 requêtes différentes.
D'ailleurs est il possible lors de la création de mon fichier excel de ne pas transéfrer toutes les données ?

Marcopololo

[Marcopololo]

Bon j'ai solution mon problème.

Voici la solution si cela peut servir/

Code :

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

1
2
3
4
5
6
7
        Dim FoldName As Variant
 
 
    FoldName = Me!NomParCode
 
 
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "Nom de la requête", "c:\Rapport " & Format(Now, "yyyy") & " " & FoldName & ".xls"

Ce qui me donne un nom de fichier du type : Rapport 2009 Nom de l'entreprise.xls

Merci

Marcopololo