Transfert Fichier Texte dans ACCESS depuis vba Excel

Bonjour, :D

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

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. :ccool:

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. :cry:

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

Si quelqu'un a un idée. :calim2:

Merci d'avance. :zoubi:

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

Ca donnera un code du type :

Code:

---

1 2 3

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

---

Salut et merci de ta réponse.:ccool:

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: :roll:
Dim AccApp As Access.Application
et: :roll:
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. :calim2:

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

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

Sinon tu passes par

Code:

---

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

---

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"

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

Voila: :D

Code:

---

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"

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

modifie tes lignes

Code:

---

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

---

en

Code:

---

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

---

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:

---

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. ;)

salut,

mes excuses, j'ai tapé machinalement :oops:

La fonction OpenDatabase passe par DBEngine:

Code:

---

AccApp.DBEngine.OpenDatabase

---

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

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:

---

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

---

et le code complet, ca donne quoi stp ? :koi:

voila le code : ;)

Code:

---

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

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

Code:

---

Dim bdAccess As Database

---

en

Code:

---

Dim bdAccess As DAO.Database

---

ta base est-elle bien ouverte à ce niveau ?

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

Toujours pas :(

J'ai mis

Code:

---

accApp.visible=true

---

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

Voici le code:

Code:

---

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

---

Ca y'est ! :ccool:

D'abord merci à toi pour ton aide. :lol:

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 :P
http://access.developpez.com/faq/?pa...e#ExecProcAppl

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

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

Code:

---

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:

---

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:

---

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:

---

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

---

par

Code:

---

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

---

Merci encore de ton aide. 8-)