lier un fichier .txt

Le
le Nordiste
VBonjour,

Je veux lier un fichier .txt en tant que table,
voici mon code :
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub tst()
'lier une table
Dim DB As Database
Dim tdfnew1 As TableDef
Dim strFichier As String

'instancie la base de donnée courante
Set DB = CurrentDb

strFichier = "D:Documents and Settingsu096075Mes documentsACTIVITES
txt_294300005728_31102009_7-40017.txt"

Set tdfnew1 = DB.CreateTableDef("T_7_40017")
tdfnew1.Connect = "Text;DATABASE=" & strFichier
tdfnew1.SourceTableName = "txt_294300005728_31102009_7-40017.txt"

CurrentDb.TableDefs.Append tdfnew1

End Sub

"""""""""""""""""""""""""""""""""""""""""""""""""
Et ça coince à la ligne avec le message "chemin d'accés non valide"
Comme accés ne donne pas le bon message d'erreur, je ne sais pas où
chercher mon erreur.
Ce n'est pas le chemein puisque je le reprends depuis les propriètès
d'un raccourci fait sur l'écran.

Merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Blaise Cacramp
Le #20615671
Selon : Bonjour ou bonsoir

Dis-nous au moins à quelle ligne !


Cdt, Blaise
---- ---- ----


"le Nordiste"
VBonjour,

Je veux lier un fichier .txt en tant que table,
voici mon code :
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub tst()
'lier une table
Dim DB As Database
Dim tdfnew1 As TableDef
Dim strFichier As String

'instancie la base de donnée courante
Set DB = CurrentDb

strFichier = "D:Documents and Settingsu096075Mes documentsACTIVITES
txt_294300005728_31102009_7-40017.txt"

Set tdfnew1 = DB.CreateTableDef("T_7_40017")
tdfnew1.Connect = "Text;DATABASE=" & strFichier
tdfnew1.SourceTableName = "txt_294300005728_31102009_7-40017.txt"

CurrentDb.TableDefs.Append tdfnew1

End Sub

"""""""""""""""""""""""""""""""""""""""""""""""""
Et ça coince à la ligne avec le message "chemin d'accés non valide"
Comme accés ne donne pas le bon message d'erreur, je ne sais pas où
chercher mon erreur.
Ce n'est pas le chemein puisque je le reprends depuis les propriètès
d'un raccourci fait sur l'écran.

Merci de votre aide
le Nordiste
Le #20619461
bonjour Blaise,

Pan sur le bec dirait le Canard- le seul le vrai-

Et ça coince à la ligne  "CurrentDb.TableDefs.Append tdfnew1"
avec le message "chemin d'accés non valide"
Comme accés ne donne que rarement le bon message d'erreur,
je ne sais pas où chercher mon erreur.
Ce n'est pas le chemin puisque je le reprends depuis les propriètès
d'un raccourci fait sur l'écran.

Merci de votre aide
3stone
Le #20622011
Salut,

le Nordiste wrote:
VBonjour,

Je veux lier un fichier .txt en tant que table,
voici mon code :
'"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Sub tst()
'lier une table
Dim DB As Database
Dim tdfnew1 As TableDef
Dim strFichier As String

'instancie la base de donnée courante
Set DB = CurrentDb

strFichier = "D:Documents and Settingsu096075Mes
documentsACTIVITES txt_294300005728_31102009_7-40017.txt"

Set tdfnew1 = DB.CreateTableDef("T_7_40017")
tdfnew1.Connect = "Text;DATABASE=" & strFichier
tdfnew1.SourceTableName = "txt_294300005728_31102009_7-40017.txt"

CurrentDb.TableDefs.Append tdfnew1

End Sub

"""""""""""""""""""""""""""""""""""""""""""""""""
Et ça coince à la ligne avec le message "chemin d'accés non valide"
Comme accés ne donne pas le bon message d'erreur, je ne sais pas où
chercher mon erreur.
Ce n'est pas le chemein puisque je le reprends depuis les propriètès
d'un raccourci fait sur l'écran.



CurrentDb est membre de DAO, Connect de ADOdb

Mais, pourquoi pas simplement par :

DoCmd.TransferText acLinkDelim, , "LaTable", "D:LeFichier.txt", False

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
le Nordiste
Le #20622371
Bonsoir Pierre,


Je ne comprends pas ce que tu veux dire par ceci :
CurrentDb est membre de DAO, Connect de ADOdb



Y a t'il une limitation sur le nombre de caractères de "D:
LeFichier.txt" ou un nombre limlité de sous répertoire
DoCmd.TransferText acLinkDelim, , "LaTable", "D:LeFichier.txt", False


car ça marche si je remonte le fichier .txt dvers la racine.

merci de ton aide
3stone
Le #20623051
Salut,

le Nordiste wrote:
Y a t'il une limitation sur le nombre de caractères de "D:
LeFichier.txt" ou un nombre limlité de sous répertoire




Hmmm, pas que je sache...

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
le Nordiste
Le #20627581
On 24 nov, 17:33, "3stone"
Salut,

le Nordiste wrote:
> Y a t'il une limitation sur le nombre de caractères de  "D:
> LeFichier.txt" ou un nombre limlité de sous répertoire

Hmmm, pas que je sache...

--
A+
Pierre (3stone) Access MVP
Perso:http://www.3stone.be/
MPFA:http://www.mpfa.info/ (infos générales)



Ça marche !!!

je viens de faire avec un chemin complet de l'ordre de 120 caractères.
Pas compris pourquoi hier ça ne marchais pas.

Merci pour ton aide sur ce point.
Blaise Cacramp
Le #20630751
Selon : Bonjour ou bonsoir, Pierre

N'y a t'il pas la limite des 255 caractères ?
En tout cas, plus y il en a, plus il y a risque d'erreur !


Cdt, Blaise
---- ---- ----


"3stone"
Salut,

le Nordiste wrote:
Y a t'il une limitation sur le nombre de caractères de "D:
LeFichier.txt" ou un nombre limlité de sous répertoire




Hmmm, pas que je sache...

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)



Publicité
Poster une réponse
Anonyme