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=E9e courante
Set DB =3D CurrentDb
strFichier =3D "D:\Documents and Settings\u096075\Mes documents\ACTIVITES
\txt_294300005728_31102009_7-40017.txt"
"""""""""""""""""""""""""""""""""""""""""""""""""
Et =E7a coince =E0 la ligne avec le message "chemin d'acc=E9s non valide"
Comme acc=E9s ne donne pas le bon message d'erreur, je ne sais pas o=F9
chercher mon erreur.
Ce n'est pas le chemein puisque je le reprends depuis les propri=E8t=E8s
d'un raccourci fait sur l'=E9cran.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Blaise Cacramp
Selon : Bonjour ou bonsoir
Dis-nous au moins à quelle ligne !
Cdt, Blaise ---- ---- ----
"le Nordiste" a écrit dans le message de news:
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"
""""""""""""""""""""""""""""""""""""""""""""""""" 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
Selon : Bonjour ou bonsoir
Dis-nous au moins à quelle ligne !
Cdt, Blaise
---- ---- ----
"le Nordiste" <jean-paul.bataille@sfr.com> a écrit dans le message de news:
e21ed518-efeb-4773-8f20-df46dd820c25@g31g2000vbr.googlegroups.com...
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"
"""""""""""""""""""""""""""""""""""""""""""""""""
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.
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"
""""""""""""""""""""""""""""""""""""""""""""""""" 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
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
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.
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
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"
""""""""""""""""""""""""""""""""""""""""""""""""" 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.
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"
"""""""""""""""""""""""""""""""""""""""""""""""""
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.
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"
""""""""""""""""""""""""""""""""""""""""""""""""" 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.