Discussion :

[takepaf]

Bonjour à tous

Je fais un formulaire sous Access qui doit traiter des données d'un fichier .txt le probléme c que la commande OpenFileDialog ne fonctionne pas quand je la programmen VBA o moment d'un click sur le bouton. Merci de bien vouloir m'aider SVP.

Merci d'avance pour vos réponse

[jean-paul lepetit]

Salut,

que veux tu faire exactement ?

[takepaf]

re bonjour

J'ai d'abord fait un programme sous linux qui permet de récupérer des informations sur le systéme. Ensuitre les données sont envoyer dans un fichier.txt et je voudrai utiliser ma commande OpenFileDialog pour pouvoir par la suite parser mon fichier pour mettre les infos dans leur champs respectif.

Voilà j'espére que vous aV tt compris é ke vous pourrai m'aider.

[jean-paul lepetit]

je n'ai pas trouvé cette commande dans le VBA d'access 2000.

Pour importer un fichier texte dans une table Access, moi j'utilise la commande "DoCmd.TransferText"

[takepaf]

Moi j'ai la version 2003 et elle y est deçu é je dois l'utiliser car se n'et pas tt le fichier ke je dois importer c juste des morceaux. Une fois le fichier ouvert je le travaille pour récupérer les informations que je mettrai dans un formulaire par la suite

[jean-paul lepetit]

Tu as cette possibilité

Code :

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

1
2
3
4
5
6
7
8
Dim MyString, MyNumber
Open "FICHTEST" For Input As #1    ' Ouvre le fichier en lecture.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    Input #1, MyString, MyNumber    ' Lit les données dans deux variables.
    ' Affiche les données dans la fenêtre Exécution.
    Debug.Print MyString, MyNumber
Loop
Close #1    ' Ferme le fichier.

[Invité]

Bonjour

Cette fonction te servira à ouvrir une boite de dialogue pour récupérer le fichier, à mon avis ce n'est pas la bonne méthode.

Je te conseilles ceci.

1 - Récupérer le chemin du fichier avec ceci

2 - Travailler sur le fichier dont tu as récupérer le chemin avec ceci.

Starec

[takepaf]

Re bonjour

Merci à tous j'ai réussi à résoudre mon problème.

Encore erci pour votre aide.