Discussion :

[Jika971]

Bonjour,

Après l'exécution de ma requête, elle s'affiche en mode feuille de données. J'aimerais bien pouvoir l'exporter sur sur excel avec une mise en forme (seulement changer la couleur de fond des noms de champ) à l'aide de VBA.
Je sais qu'il existe la commande : DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, From_Table, document, True pour exporter, mais je ne vois pas comment implementer le changemet de mise en forme.
Quelqu'un aurait-il la solution à mes interrogations ?

[Invité]

Bonjour

Ce n'est pas possible avec ce type de commande qui exporte des données brut, il faut piloter Excel pour réaliser ce genre de choses.

Une base de réflexion dans ce tuto : http://cafeine.developpez.com/access/tutoriel/excel/#LV

Philippe

[Jika971]

Au final j'ai opter pour une importation VBA (cela m'évite la limitation de 65000 lignes).
Par ailleurs ma requête est paramétrée, et les paramètres sont rentrés à l'aide d'un formulaire.
J'ai créer un bouton Cocher "Exporter au format Excel ?" sur mon formulaire, je n'arrive pas a récupérer les paramètres du formulaire pour mon VBA importation.

Quelqu'un aurait une petite idée de comment faire ?

Voici mon module :

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
Sub Exporter_xlsx_sup_65000_lignes()
    Dim Tbl_Req, Mess, Titre, Chem_Dest As String
    Tbl_Req = "ReqDaysperOPE"
    Chem_Dest = "C:\Temp\"
    Titre = "Export + 65536 lignes"
 
    Mess = "Veuillez saisir le nom de la table ou requête à exporter" & vbCrLf & _
    Tbl_Req = InputBox(Mess, Titre, Tbl_Req)
 
    Mess = "Veuillez saisir le chemin de destination pour l'export" & vbCrLf & _
    Chem_Dest = InputBox(Mess, Titre, Chem_Dest)
 
    Fichier = Chem_Dest & Tbl_Req & " - " & Format((Now()), "yyyy mm dd") & ".xlsb"
 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, Tbl_Req, Fichier, True
 
End Sub

et voici ma requête :

Code :

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

SELECT ... WHERE ((([Days per OPE].[Date Month]) Between DateSerial([Formulaires]![DaysPerOPE]![Modifiable0],[Formulaires]![DaysPerOPE]![Modifiable2],1) And DateSerial([Formulaires]![DaysPerOPE]![Modifiable6],[Formulaires]![DaysPerOPE]![Modifiable4],31)));

[titi95]

Bonjour

J'ai créer un bouton Cocher "Exporter au format Excel ?" sur mon formulaire

Si tu veux lancer ton code avec le bouton, il faut copier-coller celui-ci dans l'événement Sur Clic du bouton (sauf les lignes 'Sub Exporter_xlsx_sup_65000_lignes()' et 'End Sub' bien entendu)

je n'arrive pas a récupérer les paramètres du formulaire pour mon VBA importation

De quels paramètres s'agit-il ?
Que veux-tu afficher sur le formulaire ?
Que manque-t-il pour 'l'importation' ? Alors que nous étions en exportation... ?

Merci de bien préciser.

Titi95

[Jika971]

Il s'agit des paramètre du formulaire, qui sont des paramètre de date. Dans mon formulaire je choisis une date de début et une date de fin.
Mon formulaire exécute, juste ma requête en feuille de données, en parallèle j'ai créer le bouton Cocher sur mon formulaire pour pourvoir exporter au format Excel.

Mon problème actuel c'est que le code ne prend pas les paramètre préalablement rentré sur le formulaire, pour l'exportation (De ce fait j'entre les paramètre manuellement à chaque fois).
Je vois pas comment intégrer ses paramètre au code.

[titi95]

Bonjour

Essaie d'employer les mots adaptés pour bien préciser ce que tu veux et ce qui ne va pas.
En particulier, tes "paramètres" seraient en fait des "Zones de Texte" présentes sur ton formulaire. Dont deux : date de début et date de fin.
Est-ce bien cela ?

Si tu veux les utiliser dans un code, il suffit d'y intégrer le Nom défini en Propriétés/Données/Autres de la Zone de Texte concerné.

Mais je ne vois pas ces deux dates dans tes codes... ???
Où veux-tu les utiliser ?

En résumé :
- le formulaire présente ce que tu souhaites ou pas ?
- le bouton lance bien l'export ?
- le résultat de l'export est bon ?

Titi95