Discussion :

[Mickey7312]

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.

[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

[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.

[pyloupylou]

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

Peux tu nous décrire ce que tu essayes de faire ?

[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.

[PipoWIL]

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 :

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
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