Discussion :

[pio_killer]

Bonjour,

A partir d'un code dans un fichier Excel, je dois effectuer les taches suivantes:

1-ouvrir une autre fenêtre parcourrir
2-sélectionner un fichier texte (.txt)
3-ouvrir une fenêtre parcourrir
4-sélectionner un fichier ACCESS
5-Ouvrir ce fichier Access (en la déclarant sous la variable "bdAccess")
6-importer le fichier texte dans une table de mon fichier ACCESS (car il y a 600 000 ligne minimum, donc impossible sous excel)

Jusqu'à l'étape 5, je sais faire.

Je sais aussi importer le fichier texte en rentrant dans le fichier ACCESS et en utilisant :
->soit une macro ACCESS
->soit l'équivalent en vba : DoCmd.TransferText acImportDelim ,"","NomTable","NomFichierTexte"

Mon soucis vient du fait qu'au boulot, beaucoup de gens n'ont que ACCESS runtime.

Je voudrais donc pour lancer la commande "DoCmd.TransferText" depuis le code vba dans le fichier Excel.

Si quelqu'un a un idée.

Merci d'avance.

[Jean-Philippe André]

salut,
tu peux accéder à la fonction Docmd depuis l'objet Application sous Access.

Ca donnera un code du type :

Code :

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

1
2
3
Dim AccApp As Access.Application
'utilise createobject le cas échéant
AccApp.Docmd.TransferText

[pio_killer]

Salut et merci de ta réponse.

Je me doutais qu'il manquait une déclaration mais dès que cela touche une autre appli que Excel, j'ai du mal à comprendre.

Bon, j'ai mis:
Dim AccApp As Access.Application
et:
AccApp.Docmd.DoCmd.TransferText acImportDelim ,"","NomTable","NomFichierTexte"

Sur la ligne "AccApp As Access.Application", cela me dit que le type définit par l'utilisateur n'est pas définit.

Ensuite, je ne comprend lorsque tu me dis d'utiliser createobject.

[Jean-Philippe André]

Si tu utilises Access.Application, il faut que tu ajoutes la bibliothèque Acces à ton projet.

Sinon tu passes par

Code :

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

1
2
Dim AccApp As Object
Set AccApp = CreateObject("Access.Application")

[pio_killer]

Ok, j'ai rajouté dans Référence "Microsft Access 11.0 Object.library"
La macro se lance mais lorsqu'elle arrive sur la commande d'import "AccApp.Docmd ...", j'ai la fenêtre debogage avec le message:
"Variable ojet ou variable de bloc with non définie"

[Jean-Philippe André]

Peux-tu nous montrer le code que tu utilises pour le moment stp ?

[pio_killer]

Voila:

Code :

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

1
2
3
4
5
6
7
Sub test()
Dim bdAccess As Database
Dim AccApp As Access.Application
'On ouvre la base
Set bdAccess = OpenDatabase("D:\Fichiers\FichierAccess.mdb")
AccApp.DoCmd.TransferText acImportDelim, "", "Table_Temporaire", "D:\Fichiers\liste_globale.txt", False, """"
End Sub

Dans le fichier Access "FichierAccess.mdb", j'ai bien une table "Table_Temporaire" dans laquelle j'importe le fichier "liste_globale.txt"

[pio_killer]

Je bloque toujours.
J'ai l'impression qu'il faut déclarer un variable pour "AccApp.DoCmd" mais je n'y arrive pas.

[Jean-Philippe André]

modifie tes lignes

Code :

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

1
2
Dim AccApp As Access.Application
Set bdAccess = OpenDatabase("D:\Fichiers\FichierAccess.mdb")

en

Code :

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

1
2
Dim AccApp As New Access.Application
Set bdAccess = AccApp.OpenDatabase("D:\Fichiers\FichierAccess.mdb")

[pio_killer]

Cela ne marche pas.
J'ai le message suivant sur "OpenDatabase:
Erreur de compilation
Membre de méthode ou de données introuvable

Effectivement, lorsque je regarde les proposition de vba apprès avoir renseigné "Set bdAccess = AccApp", il n'apparait dans la liste que "OpenAccesproject" ou "Open CurrentDatabase".
J'ai les essayé mais sans succès.

Ci-dessous le code que j'ai lancé:

Code :

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

1
2
3
4
5
6
7
8
9
Sub testforum2()
Dim bdAccess As Database
Dim AccApp As New Access.Application
 
Set bdAccess = AccApp.OpenDatabase("D:\Fichiers\FichierAccess.mdb")
 
AccApp.DoCmd.TransferText acImportDelim, "", "Table_Temporaire", "D:\Fichiers\liste_globale.txt", False, ""
 
End Sub

J'ai fais aussi une capture des références que j'ai mis dans vba.

[Jean-Philippe André]

salut,

mes excuses, j'ai tapé machinalement

La fonction OpenDatabase passe par DBEngine:

Code :

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

AccApp.DBEngine.OpenDatabase

[pio_killer]

Il doit y avoir un truc que j'ai mal fait.

Cela m'ouvre Access mais j'ai l'impression qu'il ne m'ouvre pas mon fichier Access

Au final, l'importation ne fait donc pas .

Pour info, j'ai mis le même code (moins "AccApp") dans vba Access et l'importation fait correctement (voir ci-dessous).

Code :

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

1
2
 
DoCmd.TransferText acImportDelim, "", "Table_Temporaire", "D:\Fichiers\liste_globale.txt", False, ""

[Jean-Philippe André]

et le code complet, ca donne quoi stp ?

[pio_killer]

voila le code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub testforum2()
Dim bdAccess As Database
Dim AccApp As New Access.Application
 
 
Set bdAccess = AccApp.DBEngine.OpenDatabase("D:\Fichiers\FichierAccess.mdb")
 
AccApp.DoCmd.TransferText acImportDelim, "", "Table_Temporaire", "D:\Fichiers\liste_globale.txt", False, ""
End Sub

Désolé pour l'affichage des code. Je ne savait pas.
Je me posais justement la question pourquoi le texte des code que je mettais dans ce post changaient au bout d'un moment (j'ai pensé qu'il y avait un outils qui modifiait automatiquement).
Cela ne reproduira plus c'est promis

[Jean-Philippe André]

je pense qu'on touche au but,
j'ai modifié

Code :

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

Dim bdAccess As Database

en

Code :

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

Dim bdAccess As DAO.Database

ta base est-elle bien ouverte à ce niveau ?

[Jean-Philippe André]

En fait, plutôt que de se battre sur le code en cours,
regarde si ce code là n'est pas tout prêt :
http://access.developpez.com/faq/?pa...TblAccessExcel

[pio_killer]

Toujours pas

J'ai mis

Code :

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

accApp.visible=true

pour afficher la fenêtre (je ne sais pas si c'est correct)

Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub testforum2()
Dim bdAccess As DAO.Database
Dim AccApp As New Access.Application
 
AccApp.Visible = True
 
Set bdAccess = AccApp.DBEngine.OpenDatabase("D:\Fichiers\FichierAccess.mdb")
 
AccApp.DoCmd.TransferText acImportDelim, "", "Table_Temporaire", "D:\Fichiers\liste_globale.txt", False, ""
End Sub

[pio_killer]

Ca y'est !

D'abord merci à toi pour ton aide.

En fait comme tu me l'a suggéré, on peut faire de 2 façon:
1-soit depuis vba Excel, on lance un code qui se trouve sur le fichier ACCESS
http://access.developpez.com/faq/?pa...e#ExecProcAppl

2-Soit depuis vba Excel on lance directement l'importation

Pour l'étape 1, il faut mettre dans le fichier Access les code suivant:

Code :

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

1
2
3
Public Sub ImportFichierTexte(Path)
DoCmd.TransferText acImportDelim, "", "Table_Temporaire", Path, False, ""
End Sub

Ensuite, dans le fichier Excel, on met le code suivant:

Code :

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

1
2
3
4
5
6
7
Sub testforum1()
Dim MonAccess As New Access.Application
MonAccess.OpenCurrentDatabase "D:\Fichiers\FichierAccess.mdb"
MonAccess.Run "ImportFichierTexte", "D:\Fichiers\liste_globale2.txt"
MonAccess.Quit acQuitSaveNone
Set MonAccess = Nothing
End Sub

Pour l'étape 2, j'ai trouvé ce qui n'allait pas grace au code précédent.
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
Sub testforum2()
Dim bdAccess As DAO.Database
Dim AccApp As New Access.Application
 
'On ouvre la base
AccApp.OpenCurrentDatabase "D:\Fichiers\FichierAccess.mdb"
'On lance la commande d'importation
AccApp.DoCmd.TransferText acImportDelim, "", "Table_Temporaire", "D:\Fichiers\liste_globale2.txt", False, ""
End Sub

En fait, il fallait remplacer

Code :

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

Set bdAccess = AccApp.DBEngine.OpenDatabase("D:\Fichiers\FichierAccess.mdb")

par

Code :

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

AccApp.OpenCurrentDatabase "D:\Fichiers\FichierAccess.mdb"

Merci encore de ton aide.