Discussion :

[Thierry'']

Bonjour,

Voila mon problème, j'ai un classeur Excel dans lequel j'exporte au choix de l'utilisateur 1 des 3 requêtes possible en utilisant le code suivant:

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
If ModifiableMultinational <> "" Then
    DoCmd.OpenQuery "ExportConsolidMultinational"
    DoCmd.OutputTo acOutputQuery, "", acFormatXLS, "D:\Apps\STIR\PackshareConsolid.xls", False, ""
    DoCmd.Close
    End If
    If ModifiableCountry <> "" Then
    DoCmd.OpenQuery "ExportConsolidCountry"
    DoCmd.OutputTo acOutputQuery, "", acFormatXLS, "D:\Apps\STIR\PackshareConsolid.xls", False, ""
    DoCmd.Close
    End If
    If ModifiableBusiness <> "" Then
    DoCmd.OpenQuery "ExportConsolidBusiness"
    DoCmd.OutputTo acOutputQuery, "", acFormatXLS, "D:\Apps\STIR\PackshareConsolid.xls", False, ""
    DoCmd.Close
    End If

Mon problème est que je ne parviens pas à avoir le même nom de feuille dans mon classeur Excel.
J'ai a chaque fois le nom de la requête...

Auriez-vous une suggestion pouvant m'aider?

Merci

[cafeine]

Hello,

on ne peut pas ... problème déjà traité dans un tuto (et dans l'aide aussi) :

http://cafeine.developpez.com/access...l/excel/#LIV-B

[helas]

A tester : Simplement copier la requete puis la supprimer

<CODE>
Rem *** Copie la requete ***
DoCmd.CopyObject ,"NomFeuille",acQuery,"ExportConsolidMultinational"

Rem *** TransferSpreadsheet plutot que OutPutTo ***
DoCmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel8 ,"NomFeuille","D:\Apps\STIR\PackshareConsolid.xls",true

Rem *** Supprimer la requete ***
DoCmd.DeleteObject acQuery,"NomFeuille"
</CODE>

[Thierry'']

Merci pour l'info je vais testé ça

[Thierry'']

Impec

Merci pour les conseils