Discussion :

[benoitm35]

Bonjour,

j'essaie en vain de paramétrer du code (soit macro, soit directement sous l'éditeur VBA) pour q'un contrôle bouton éxécute une requète définie, puis envoie le resultat directement dans un fichier excel, puis laisse ce fichier ouvert .

Quelqu'un peut-il m'aider ? merci

[Didier71]

Bonjour

A priori c'est assez simple...
Dans le code VBA du bouton (propriété "on click")
Tu peux écrire

Code :

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

1
2
 
DoCmd.OutputTo acOutputQuery, "NOM REQUETE", acFormatXLS, "NOM DU FICHIER.XLS", True

Le "true" permet d'ouvrir ensuite le fichier Excel..


Bon courage.

Didier71

[benoitm35]

bonsoir,

un grand merci, effectivement cela fonctionne nickel.

par contre, du coup, la requète contenant deux paramètres de date (date_debut et date_fin), ceux ci sont affichés dans le fichier Excel au format "date" (01-oct-08) alors que je vudrais qu'ils gardent le format présents sous Acess à savoir "jj:mm:aaaa hh:mm:ss". peut-on forcer Excel à garder ce format ?

Encore merci en tout cas du coup de main.

[Didier71]

Bonsoir

Oui, je crois qu'on peut.....
dans la colonne du requeteur Acces , dans les champs date, tu peux
indiquer un format particulier, avec ton propre nom de champ, c'est celui la qui sera exporté vers Excel, en gardant le format date, du moins je l'espère, je n'ai pas testé..
Exemple :

Code :

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

1
2
 
MadateDebut :format([Date_debut];"jj:mm:aaaa hh:mm:ss")

Fait ça aussi pour le champ [Date_fin]

Voila..

Bon courage.

Didier71

[benoitm35]

Effectivement, cela fonctionne. merci beaucoup.

j'ai juste adapté en mettant au format dd/mm/yyyy hh:mm:ss.

J'ai encore parfois le message "trop de lignes renvoyées...." quand je veux exporter sous Excel alors que la requète ne renvoie que 40 000 Lignes (excel en ayant 65536,; cela devrait passer ??).

mais ce pb étant mioneur, je passe le sujet en "résolu". merci beaucoup
benoitm35

[benoitm35]

Bonjour,

Suite au post ci-dessous , la commande reçue de Didier 71 fonctionne bien.
j'utilise donc

Code :

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

DoCmd.OutputTo acOutputQuery, "NOM REQUETE", acFormatXLS, "NOM DU FICHIER.XLS", True"

Néammoins, en débuggant , j'ai le message suivant :"nomfichier.xls est un fichier de classeur Microsoft Excel 5.0/95voulez vous convertir ce fichier au nouveau format" après ouverture du fichier Excel, quand je veux enregistrer.

Je suis sous access 2003 - et Excel 2003.

Peut-on éviter ce message en modifiant la commande pour que ce soit l'Excel par défaut du poste qui s'ouvre ?
merci d'avance de votre aide,

[Didier71]

Bonjour

Pour avoir le format Excel 2003 direct, il faut changer le format

Code :

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

1
2
 
DoCmd.OutputTo acOutputQuery, "NOM REQUETE", "MicrosoftExcelBiff8(*.xls)", "NOM DU FICHIER.XLS", True

Ca devrait marcher..

Bon courage

Didier71

[benoitm35]

Bonsoir Didier 71.
non malheureusement, le résultat est le même.
Faut-il que je passe par du code style

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "ma requète", "mon fichier.xls", False

Et un lien followhyperlink pour ouvrir le fichier dans la foulée ?
Merci de ton aide.
benoitm35

[benoitm35]

Bonsoir,

Pb résolu,

j'ai remplacé :

Code :

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

'DoCmd.OutputTo acOutputQuery, "marequète", AcFormatXLS(*.xls)", "monfichier.slx", True

par

Code :

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

1
2
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "marequète", "C:\EDI\monfichier.xls", True
Application.FollowHyperlink "C:\EDI\monfichier.xls"

Et là, plus de souci.