Discussion :

[jeo13]

Bonjour tout le monde,


J'ai mis en place un formulaire pour importer un fichier texte dans une table.

J'ai un petit souci au niveau de la récupération du nom complet du fichier txt.
En fait le fichier texte et la base Access seront toujours dans le meme dossier et le fichier texte sera toujours appellé ClientsDatabase.txt.

J'ai tenté avec le code suivant mais ca ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmd_Import_Click()
 
DoCmd.SetWarnings False
 
Dim NameDir As String
 
NameDir = CurrentProject.Path
 
DoCmd.TransferText acImportDelim, "ImportClientsSpecification", "tbl_ClientsInArtemis", NameDir & "\" & "ClientsDatabase.txt"
 
End Sub

Quelqu'un pourrait-il me guider sur la méthode a suivre pour récupérer le chemin vers le dossier contenant la base Access? Je sais faire sur excel mais la je seche...

Merci d'avance !

[LedZeppII]

Bonjour,

Ton code est correct.
CurrentProject.Path renvoie le dossier de la base de données en cours.

N'oublie pas de remettre les avertissements à Oui avant de quitter ta procédure.

Code vb :

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

DoCmd.SetWarnings True

Si l'importation ne fonctionne pas, ce doit être un problème dans la spécification d'importation.

A+

[jeo13]

Effectivement ca marche, alors que j'ai rien changé...!

A part rajouter

Code :

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

DoCmd.SetWarnings True

Bizarre lol

Merci bcp en tout cas d'avoir regardé!