Bonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
Bonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
Bonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
Bonjour,
Sauf erreur de ma part,
Dans DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable,
NomFichier, "truck1", False
c'est l'argument "d:" qui n'est pas bon. si tu veux importer dans la bd
courante, à partir de laquelle tu lances la commande, il faudrait mettre
à la place:
currentproject.fullnameBonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Sauf erreur de ma part,
Dans DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable,
NomFichier, "truck1", False
c'est l'argument "d:" qui n'est pas bon. si tu veux importer dans la bd
courante, à partir de laquelle tu lances la commande, il faudrait mettre
à la place:
currentproject.fullname
Bonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Sauf erreur de ma part,
Dans DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable,
NomFichier, "truck1", False
c'est l'argument "d:" qui n'est pas bon. si tu veux importer dans la bd
courante, à partir de laquelle tu lances la commande, il faudrait mettre
à la place:
currentproject.fullnameBonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci, je veux effectivement importer dans ma bd courante sauf qu'en mettant
ta modif, il m'inscrit un message d'erreur m'indiquant que le chemin d'accès
n'est pas valide. C,est normal voici le chemin d'accès qu'il me donne
:d: 7gps 7-truckbaseproduction truckbase2k.mdb n'est pas un chemin d'accès
valide.
peux tu me valider cela?
merciBonjour,
Sauf erreur de ma part,
Dans DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable,
NomFichier, "truck1", False
c'est l'argument "d:" qui n'est pas bon. si tu veux importer dans la bd
courante, à partir de laquelle tu lances la commande, il faudrait mettre
à la place:
currentproject.fullnameBonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci, je veux effectivement importer dans ma bd courante sauf qu'en mettant
ta modif, il m'inscrit un message d'erreur m'indiquant que le chemin d'accès
n'est pas valide. C,est normal voici le chemin d'accès qu'il me donne
:d: 7gps 7-truckbaseproduction truckbase2k.mdb n'est pas un chemin d'accès
valide.
peux tu me valider cela?
merci
Bonjour,
Sauf erreur de ma part,
Dans DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable,
NomFichier, "truck1", False
c'est l'argument "d:" qui n'est pas bon. si tu veux importer dans la bd
courante, à partir de laquelle tu lances la commande, il faudrait mettre
à la place:
currentproject.fullname
Bonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci, je veux effectivement importer dans ma bd courante sauf qu'en mettant
ta modif, il m'inscrit un message d'erreur m'indiquant que le chemin d'accès
n'est pas valide. C,est normal voici le chemin d'accès qu'il me donne
:d: 7gps 7-truckbaseproduction truckbase2k.mdb n'est pas un chemin d'accès
valide.
peux tu me valider cela?
merciBonjour,
Sauf erreur de ma part,
Dans DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable,
NomFichier, "truck1", False
c'est l'argument "d:" qui n'est pas bon. si tu veux importer dans la bd
courante, à partir de laquelle tu lances la commande, il faudrait mettre
à la place:
currentproject.fullnameBonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Je ne vois rien de particulier dans le chemin complet d'accès à la bd.
Le chemin accepte les espaces. (Je suppose que les : devant la lettre du
lecteur devaient suivre '...donne')
Su tu fais un debug.print de currentproject.fullname et de NomFichier,
dans la fenêtre exécution, tu obtiens quoi ?Merci, je veux effectivement importer dans ma bd courante sauf qu'en mettant
ta modif, il m'inscrit un message d'erreur m'indiquant que le chemin d'accès
n'est pas valide. C,est normal voici le chemin d'accès qu'il me donne
:d: 7gps 7-truckbaseproduction truckbase2k.mdb n'est pas un chemin d'accès
valide.
peux tu me valider cela?
merciBonjour,
Sauf erreur de ma part,
Dans DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable,
NomFichier, "truck1", False
c'est l'argument "d:" qui n'est pas bon. si tu veux importer dans la bd
courante, à partir de laquelle tu lances la commande, il faudrait mettre
à la place:
currentproject.fullnameBonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Je ne vois rien de particulier dans le chemin complet d'accès à la bd.
Le chemin accepte les espaces. (Je suppose que les : devant la lettre du
lecteur devaient suivre '...donne')
Su tu fais un debug.print de currentproject.fullname et de NomFichier,
dans la fenêtre exécution, tu obtiens quoi ?
Merci, je veux effectivement importer dans ma bd courante sauf qu'en mettant
ta modif, il m'inscrit un message d'erreur m'indiquant que le chemin d'accès
n'est pas valide. C,est normal voici le chemin d'accès qu'il me donne
:d: 7gps 7-truckbaseproduction truckbase2k.mdb n'est pas un chemin d'accès
valide.
peux tu me valider cela?
merci
Bonjour,
Sauf erreur de ma part,
Dans DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable,
NomFichier, "truck1", False
c'est l'argument "d:" qui n'est pas bon. si tu veux importer dans la bd
courante, à partir de laquelle tu lances la commande, il faudrait mettre
à la place:
currentproject.fullname
Bonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Je ne vois rien de particulier dans le chemin complet d'accès à la bd.
Le chemin accepte les espaces. (Je suppose que les : devant la lettre du
lecteur devaient suivre '...donne')
Su tu fais un debug.print de currentproject.fullname et de NomFichier,
dans la fenêtre exécution, tu obtiens quoi ?Merci, je veux effectivement importer dans ma bd courante sauf qu'en mettant
ta modif, il m'inscrit un message d'erreur m'indiquant que le chemin d'accès
n'est pas valide. C,est normal voici le chemin d'accès qu'il me donne
:d: 7gps 7-truckbaseproduction truckbase2k.mdb n'est pas un chemin d'accès
valide.
peux tu me valider cela?
merciBonjour,
Sauf erreur de ma part,
Dans DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable,
NomFichier, "truck1", False
c'est l'argument "d:" qui n'est pas bon. si tu veux importer dans la bd
courante, à partir de laquelle tu lances la commande, il faudrait mettre
à la place:
currentproject.fullnameBonjour a tous voici mon code pour importer une table dbf dans ma bd access,
j'ai mis une variable nomfichier dans mon DoCmd.TransferDatabase pour pouvoir
récuperer des fichiers qui change de nom à chaque semaine, mais j'ai une
erreur me disant que le moteur de base de recherche n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf. Pourtant
c'est le bon path qui se retrouve dans ma variable, comment régler ce
problème qui empêche mon importation?
Function import_francois()
Dim NomFichier As String
'NomFichier = Dir("D: 7gps 7-truckbasefrancois")
NomFichier = ChoixDuFichier
If NomFichier = "" Then
MsgBox "Le fichier stat est introuvable !", vbExclamation, "Erreur"
Else
DoCmd.TransferDatabase acImport, "dBase III", "d:", acTable, NomFichier,
"truck1", False
MsgBox "Importation réussie!"
End If
End Function
Public Function ChoixDuFichier() As String
ChoixDuFichier = OpenFile(CurrentProject.Path)
End Function
Merci
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
voila le résultat du debug:
D: 7gps 7-truckbaseproduction_truckbase2k.mdb (currentproject.fullname)
D: 7gps 7-truckbasefrancoistruck2.dbf (NomFichier)
mercire,
Je ne vois rien de particulier dans le chemin complet d'accès à la bd.
Le chemin accepte les espaces. (Je suppose que les : devant la lettre du
lecteur devaient suivre '...donne')
Su tu fais un debug.print de currentproject.fullname et de NomFichier,
dans la fenêtre exécution, tu obtiens quoi ?
voila le résultat du debug:
D: 7gps 7-truckbaseproduction_truckbase2k.mdb (currentproject.fullname)
D: 7gps 7-truckbasefrancoistruck2.dbf (NomFichier)
merci
re,
Je ne vois rien de particulier dans le chemin complet d'accès à la bd.
Le chemin accepte les espaces. (Je suppose que les : devant la lettre du
lecteur devaient suivre '...donne')
Su tu fais un debug.print de currentproject.fullname et de NomFichier,
dans la fenêtre exécution, tu obtiens quoi ?
voila le résultat du debug:
D: 7gps 7-truckbaseproduction_truckbase2k.mdb (currentproject.fullname)
D: 7gps 7-truckbasefrancoistruck2.dbf (NomFichier)
mercire,
Je ne vois rien de particulier dans le chemin complet d'accès à la bd.
Le chemin accepte les espaces. (Je suppose que les : devant la lettre du
lecteur devaient suivre '...donne')
Su tu fais un debug.print de currentproject.fullname et de NomFichier,
dans la fenêtre exécution, tu obtiens quoi ?
re,
Rien de particulier.
Ca plante toujours sur le DoCmd.TransferDatabase avec toujours le même
message d'erreur ? (Chemin non valide) Tout à l'heure, tu donnais comme
msg d'erreur: chemin non valide= d: 7gps 7-truckbaseproduction
truckbase2k.mdb
et avec le debug : D: 7gps 7-truckbaseproduction_truckbase2k.mdb
Lequel des 2 est le bon car il manque un underscore dans le 1er.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Rien de particulier.
Ca plante toujours sur le DoCmd.TransferDatabase avec toujours le même
message d'erreur ? (Chemin non valide) Tout à l'heure, tu donnais comme
msg d'erreur: chemin non valide= d: 7gps 7-truckbaseproduction
truckbase2k.mdb
et avec le debug : D: 7gps 7-truckbaseproduction_truckbase2k.mdb
Lequel des 2 est le bon car il manque un underscore dans le 1er.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Rien de particulier.
Ca plante toujours sur le DoCmd.TransferDatabase avec toujours le même
message d'erreur ? (Chemin non valide) Tout à l'heure, tu donnais comme
msg d'erreur: chemin non valide= d: 7gps 7-truckbaseproduction
truckbase2k.mdb
et avec le debug : D: 7gps 7-truckbaseproduction_truckbase2k.mdb
Lequel des 2 est le bon car il manque un underscore dans le 1er.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Une idée, la fonction OpenFile() te retourne une chaine de 254 caractères.
Si le pb persiste sur '...n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf'
Essaies avec
NomFichier=Trim(OpenFile(CurrentProject.Path))
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Une idée, la fonction OpenFile() te retourne une chaine de 254 caractères.
Si le pb persiste sur '...n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf'
Essaies avec
NomFichier=Trim(OpenFile(CurrentProject.Path))
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Une idée, la fonction OpenFile() te retourne une chaine de 254 caractères.
Si le pb persiste sur '...n'a pas pu trouver
l'objet d:... avec le nom complet de l'emplacement du fichier dbf'
Essaies avec
NomFichier=Trim(OpenFile(CurrentProject.Path))
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr