Connexion à ACCESS 2016 depuis Excel mais Pb de lenteur

**FannyGir** · 08/01/2018, 17h40

Bonjour

Je veux créer une table dans une base de données ACCESS 2016 depuis un fichier Excel qui pilote le programme et y insérer un fichier txt.
Mon code fonctionne mais je trouve qu'il est très lent, car une session ACCESS s'ouvre, créee une table, referme ACCESS.
La macro prend bien 45 secondes environ pour une table de 300 lignes.... ce qui est très lent !!

Idéalement je souhaiterais qu'ACCESS ne s'ouvre pas du tout !!

Voici mon code:

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
Public Const NomBD = "INTEGRATION SOCIAL.ACCDB"
Public Const CheminBD = "C:\Conso\"
 
Sub ImportFichierTextdansTableAccess()
'importe le fichier texte dans une table
 
Dim CheminFichierImport As String
Dim SpecificationImport As String  ' nom du fichier contenant les spécifications
Dim strTableNom As String 'nom de la table à insérer
 
'Valeur des variables
SpecificationImport = "ListeSocietes"
CheminFichierImport = "C:\Conso\Liste.txt"   'chemin complet du fichier à importer
strTableNom = "ListeSocietes"
 
'Effectuer l'opération dans ACCESS
Dim oAppAccess As Access.Application
Dim oFileAccess As New Access.Application
 
Set oFileAccess = GetObject(CheminBD & NomBD)
Set oAppAccess = CreateObject("Access.application")
 
oFileAccess.DoCmd.TransferText acImportDelim, SpecificationImport, strTableNom, CheminFichierImport, True
 
oAppAccess.Quit
 
Set oAppAccess = Nothing
Set oFileAccess = Nothing
 
End Sub

Auriez vous une idée ?
Merci pour l'aide que vous voudrez bien m'apporter !

**FannyGir** · 08/01/2018, 22h15

Bonjour

Je veux créer une table dans une base de données ACCESS 2016 depuis un fichier Excel qui pilote le programme et y insérer un fichier txt.
Mon code fonctionne mais je trouve qu'il est très lent, car une session ACCESS s'ouvre, créee une table, referme ACCESS.
La macro prend bien 45 secondes environ pour une table de 300 lignes.... ce qui est très lent !!

Idéalement je souhaiterais qu'ACCESS ne s'ouvre pas du tout !!

L'ouverture d'ACCESS est également très très lente.....

Voici mon code:

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
Public Const NomBD = "INTEGRATION SOCIAL.ACCDB"
Public Const CheminBD = "C:\Conso\"
 
Sub ImportFichierTextdansTableAccess()
'importe le fichier texte dans une table
 
Dim CheminFichierImport As String
Dim SpecificationImport As String  ' nom du fichier contenant les spécifications
Dim strTableNom As String 'nom de la table à insérer
 
'Valeur des variables
SpecificationImport = "ListeSocietes"
CheminFichierImport = "C:\Conso\Liste.txt"   'chemin complet du fichier à importer
strTableNom = "ListeSocietes"
 
'Effectuer l'opération dans ACCESS
Dim oAppAccess As Access.Application
Dim oFileAccess As New Access.Application
 
Set oFileAccess = GetObject(CheminBD & NomBD)
Set oAppAccess = CreateObject("Access.application")
 
oFileAccess.DoCmd.TransferText acImportDelim, SpecificationImport, strTableNom, CheminFichierImport, True
 
oAppAccess.Quit
 
Set oAppAccess = Nothing
Set oFileAccess = Nothing
 
End Sub

Auriez vous une idée ?
Merci pour l'aide que vous voudrez bien m'apporter !

**marot_r** · 09/01/2018, 00h15

Bonjour.

Comme tu utilises une instruction d'Access tu es obligé d'ouvrir Access.
Pour le temps que cela prend, aucune idée. Cela devrait te prendre le même temps que si tu ouvrais Access par toi-même.

Tu peux regarder du côté de Excel et de ses mécanismes d'importation qui vont aller lire les données directement dans la BD sans ouvrir Access.
Attention certaines requêtes ne sont pas visible de Excel, notement mais pas seulement, celles qui contiennent un appel à une fonction VBA définie par l'utilisteur.

A+

Invité · 09/01/2018, 08h39

https://www.developpez.net/forums/d1...r/#post9898818

**FannyGir** · 09/01/2018, 10h32

Oui il est vrai que l'ouverture de mon ACCESS est très lente...que cela soit pour un nouveau fichier ou non
J'ai essayé en mode sans echec mais le résultat est le même.

Invité · 09/01/2018, 12h35

inutile de publier plusieurs postes sur le même sujet !

**FannyGir** · 12/01/2018, 16h09

Bonjour
J'ai mis en place le fichier schema.ini et tout marche à merveille !!
Merci beaucoup, c'est super !!
Bien cordialement

Invité · 09/01/2018, 08h25

Bonjour,
Tu perds énormément de temps à charger Access utilise Ado!

https://www.developpez.net/forums/d1...v/#post5862937

https://mon-partage.fr/f/LoCWKVjq/

Code schema.ini :

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

1
2
3
4
5
6
7
8
[newfile.txt]
ColNameHeader = False
CharacterSet = ANSI
Format=FixedLength
Col1=LEVEL_MNEMONIC Text Width 14
Col2=LEVEL_DESC Text Width 60
Col3=LEVEL_DEPARTMENT Text Width 18
Col4=LEVEL_DEP_NAME Text Width 30

Code Sql Création de table :

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

1
2
SELECT T.* INTO eee
FROM [newfile#txt] AS T IN '' [Text;Database=C:\MyRepertoire2\Nouveau dossier];

**FannyGir** · 09/01/2018, 09h45

Bonjour

Oui j'avais dans un premier temps fait comme cela et vous avez raison la macro est quasi-immédiate.

Mais j'ai eu des problèmes lors de la remontée du fichier txt: ACCESS voulait absolument q'un champs soit en numérique, alors que certains enregistrements comprenaient des lettres (=> Par exemple 460A00). Pour info, ce champs peut également comprendre uniquement des nombres (=> par exemple 205000).

C'est pourquoi je voulais définir le type de cette colonne sur "Texte court" et ainsi remonter toutes ces données, comprenant ou non des lettres, comme du "texte court".
Malheureusement les données comprenant des lettres n'étaient pas remontées (erreur d'importation) et le champs de l'enregistrement restait vide.

A la lecture de certaines questions sur le forum, j'ai essayé de placer les enregistrements concernant les chiffres & lettres en entête de fichier mais sans succès.

Voila pourquoi je suis revenue à ma solution qui me permettait, à travers le fichier de spécifications, de bien remonter ce champs comme du texte court....

Je vais lire dans la journée les liens que vous m'avez indiqués, merci !