Discussion :

[bruno28]

Bonjour à Tous

Je cherche à importer des données depuis un fichier texte, que je souhaite pouvoir choisir via la boite 'ouvrir un fichier' standard.

Pour cela, j'utilise la fonction trouvée sur ce site, ici :
http://access.developpez.com/faq/?pa...AffBoitEnregSs

Le code dans mon formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
 
        'Utilisation du module "BoiteOuvrirFichier pour sélectionner le fichier LBL à utiliser
MsgBox OuvrirUnFichier(Me.Hwnd, "Sélection du fichier LBL", 1, "Fichier Texte", "txt")
        'Importation des données dans la table LBL
DoCmd.TransferText acImportDelim, "", "tblLBL", "'" & Me.Hwnd & "'", True, ""
 
'MsgBox Me.Hwnd
 
End If

Le problème est qu'il ne me trouve pas le fichier sélectionné.

J'ai en effet un message, après la sélection du fichier, lorsque je clic sur ok :
'Le moteur de base de données Microsoft Jet n'a pas pu trouver l'objet 3998676.txt. Assurez vous que l'objet existe...

La 1ère msgbox m'affiche bien le nom et chemin complet (auquel j'ajoute les guillemets dans ma ligne d'import) Mais en fait, il ne me prend pas ça.

Ma 2ème msgbox de controle me donne comme résultat : 3998676 alors que le nom du fichier choisi est LBL06112009

Du coups, pas d'import. A terme, bien sur, je veut supprimer les msgbox. Elles ne sont là que pour le contrôle de ce qu'il se passe.

Si vous avez une idée, elle sera la bienvenue.

Merci d'avance.

[Invité]

Bonjour

La MsgBox te permet de lire ton information, mais pas de la récupérer.

Il faut (au lieu de ta MsgBox) affecter l'ouverture à une variable, et ensuite utiliser celle-ci dans ton transfert.

Philippe

[bruno28]

Bonjour

La MsgBox te permet de lire ton information, mais pas de la récupérer.

Il faut (au lieu de ta MsgBox) affecter l'ouverture à une variable, et ensuite utiliser celle-ci dans ton transfert.

Philippe

Bonjour Philippe, et merci
Problème résolu. Je ne sais pas pourquoi je n'y ai pas pensé tout seul. Suis trop bète des fois. C'est quand même nul que l'on ne puisse pas récupérer directement à partir de Me.Hwnd


Donc, voici le code qui fonctionne

Code :

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

1
2
3
4
5
6
 
  'Déclaration de la variable de récupération du nom et chemin du fichier Utilisation du module "BoiteOuvrirFichier pour sélectionner le fichier LBL à utiliser
Dim chem As String
chem = OuvrirUnFichier(Me.Hwnd, "Sélection du fichier LBL", 1, "Fichier Texte", "txt")
        'Importation des données dans la table LBL
DoCmd.TransferText acImportDelim, "", "tblLBL", chem, True, ""

Merci beaucoup.

Cordialement

Bruno

[Invité]

Re

Code :

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

Me.Hwnd

, n'a rien à voir avec le chemin, c'est un numéro attribué à la fenêtre de ton formulaire, cela sert pour les principalement pour les API.

Penses à cliquer sur le bouton

Philippe