Comment exporter la valeur d'une combobox Access dans Excel ?

Version imprimable

08/01/2015, 07h37
Mickey7312

Comment exporter la valeur d'une combobox Access dans Excel ?

Bonjour à tous,

Est-il possible de récupérer la valeur d'une combobox (figurant sur un formulaire Access) pour l'utiliser dans une routine Excel ?

Donc si je choisis la valeur "5" dans ma combobox, comment récupérer ce fameux 5 pour lancer ma routine sous Excel ?

Merci beaucoup à ceux qui voudront bien éclairer le débutant que je suis.

Bien cordialement.
08/01/2015, 12h16
Jean-Philippe André

Salut,

Tu as plusieurs approches possibles plus ou moins complexes selon ce que tu fais exactement de ta valeur Access :

- mettre la valeur dans une table de parametre, l'exporter sous Excel, executer la macro Excel qui ira chercher cette valeur
- ecrire la valeur dans le fichier Excel, exectuer la macro
- executer directement depuis Access la macro Excel en lui passant la variable

Si jamais ce traitement doit avoir lieu dans le temps tu peux envisager les taches planifiees et les batch :aie:
08/01/2015, 12h38
Axe_Débutant

Bonjour Jpcheck,

Merci beaucoup pour ta réponse rapide.

Cette valeur (comprise entre 01 et 33), prenons 05 par exemple me permettra tout simplement de savoir que ma procédure Excel doit ouvrir le fichier xxxx05xxxx.xlsx et le traiter.

Il s'agit à la base d'une importation de fichier texte sous Access, mais la limite des 32767 (je crois) caractères m'en empêche et m'oblige à m'y prendre autrement.

Merci pour les liens, je n'avais visiblement pas réussi à formuler correctement ma requête dans le moteur de recherche du forum. Je vais les parcourir avec grand intérêt, et reviendrai avec le code final, si j'y arrive ;)

Merci encore et bonne journée.
08/01/2015, 13h29
pyloupylou

:weird:

Citation:

mais la limite des 32767 (je crois) caractères

Peux tu nous décrire ce que tu essayes de faire ?
08/01/2015, 14h37
Axe_Débutant

Bonjour Pyloupylou, et merci de t'intéresser à mon cas.

En fait, je dois importer un gros fichier texte en champs fixes (environ 80 champs et 100 000 lignes) sous Access, mais lorsque j'essaie de le faire avec l'aide de l'assistant, après lui avoir indiqué tous les paramètres d'importation, celui me signale que : "La position de départ du champ61 est de 33250. La position de départ maximale autorisée est 32767."

Du coup, je suis en train de créer un formulaire de sélection du fichier à importer à l'aide d'une combobox. En fait j'y sélectionne un code compris entre 01 et 33 qui doit permettre à Excel d'ouvrir un fichier texte dont le nom comporte ce code, du genre xxxx01xxx.txt.

Ensuite, la procédure doit :

1. ouvrir Excel,
2. ouvrir une nouvelle feuille de calcul,
3. y reporter la valeur de la combobox dans la cellule A1,
4. puis une autre procédure Excel (lancée depuis Access) se charge de formater le fichier comme il se doit et de l'enregistrer au format xlsx,
5. enfin le fichier xlsx est importer dans une table qui portera son nom.

Pour l'instant, seules les étapes 1 et 4 sont ok. J'ouvre le fichier texte en manuel (càd avec la boîte de dialogue "Ouvrir"). C'est pour cette raison que je veux récupérer la valeur de la combobox : je n'aurais plus à ouvrir le fichier manuellement.

Il me reste juste une routine à écrire pour ouvrir une nouvelle feuille de calcul (avant d'ouvrir le classeur comportant la macro de l'étape 4) et y reporter la valeur de la combobox. Grâce à cette valeur récupérée, la routine saura automatiquement quel fichier texte ouvrir et traiter.

Je sais que c'est compliqué comme process, mais je n'ai pas réussi à contourner le problème de la limite de caractères du fichier texte.

S'il y a une solution à cela, je suis preneur.

J'espère m'être exprimé de façon claire et précise, sinon n'hésitez pas à me demander des précisions.

En tout cas, merci pour votre aide.

Bonjour Axe_,

MS Access est limité. 80 champs : c'est beaucoup....
MS Access est limité à +/- 2000 caractères par ligne. Vérifie la taille de tes 80 champs. Si tu as 80 champs de 20 caractères, ça marche mais si tu as 80 champs de 50 caractères, Access te refusera l'import.
Pour gérer de (très) grandes quantités de données, Microsoft se fera un plaisir de te vendre MS SQL Server. (apprète-toi à ouvrir le portefeuille.)

à titre d'illustration, tu peux jouer avec ces fonctions qui te démontreront les limites de MS Access

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Function CREATE_TABLE_MAX_SIZE()
 
On Error Resume Next
DoCmd.RunSQL "DROP Table [Table1]"
On Error GoTo 0
 
 
DoCmd.RunSQL "CREATE TABLE [Table1](Field1 char (255))"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field2 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field3 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field4 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field5 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field6 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field7 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field8 char (241)"        '2026 characters
'Any idea why the following line generates an error ?
'YES, This is a 'feature' of MS Access.  Tables are limited to +/- 2000 characters
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field9 char (1)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field10 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field11 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field12 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field13 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field14 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field15 char (255)"
 
 
End Function
 
 
 
Function CREATE_TABLE_and_increase_SIZE()
 
On Error Resume Next
DoCmd.RunSQL "DROP Table [Table1]"
On Error GoTo 0
 
 
DoCmd.RunSQL "CREATE TABLE [Table1](Field1 char (255))"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field2 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field3 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field4 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field5 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field6 char (255)"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field7 char (255)"
'DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field8 char (241)"
'We can add memo type fields
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field9 Memo"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field10 Memo"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field11 Memo"
DoCmd.RunSQL "ALTER TABLE [Table1] ADD COLUMN Field12 Memo"
'As we already have > 2000 chars of text fields, we cannot change a memo into text
'DoCmd.RunSQL "ALTER TABLE [Table1] ALTER COLUMN Field9 char (255)"
 
 
End Function

08/01/2015, 23h03
pyloupylou

tu pourrais essayer d''avoir plusieurs format d'import:
1 premier qui te charge dans une table les 40 1ere colonnes
2 deuxième qui te charge les 40 suivantes
éventuellement un champ qui te permette de faire la jointure entre les deux

je sais je sais suis un rien têtu:scarymov:

Bonjour Pyloupylou et PipoWIL,

Merci pour vos suggestions, mais je me disais que dans la mesure où ma macro d'importation est déjà écrite sous Excel, je n'allais pas tenter de la réécrire sous une forme.

Du coup, j'ai pu m'en sortir et j'obtiens enfin ce que je voulais : des fichiers xlsx.

Il ne me reste plus qu'à paramétrer une requête de création/importation/alimentation de table sous Access.

Bien que je sois débutant, je publie quand même mon code... peut-être servira t-il à un autre débutant.

En tout cas, merci à vous pour votre aide, j'en appris pas mal grâce à vous, notamment les limites de champs/caractères d'Access, et la commande DoCmd.RunSQL.

Bonne journée et à bientôt.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Function LancerExcel() As Boolean 'Déclarations objets application et Classeur en mémoire Dim appexcel As Excel.Application Dim wbexcel As Excel.Workbook 'Déclarations objets application : Excel et Classeur Set appexcel = CreateObject("Excel.Application") 'Excel visible appexcel.Visible = True 'Ouverture du classeur contenant la macro d'importation Set wbexcel = appexcel.Workbooks.Open("C:\...\...\Fichier.xlsm") appexcel.Sheets("NomFeuille").Select 'Affectation de la valeur de la combobox dans la cellule (1, 1) appexcel.Cells(1, 1) = cbo_com_import 'Lancement de la procédure du module 1 appexcel.Application.Run ("Module1.procédure") 'Enregistrement du classeur actif wbexcel.Save 'Fermeture du classeur actif wbexcel.Close 'Libération de la mémoire Set wbexcel = Nothing 'Fermeture d'Excel appexcel.Quit 'Libération de la mémoire Set appexcel = Nothing End Function