Discussion :

[quatar]

Bonjour à tous, jecherche à créer une boite de dialogue permettant de chir un fichier texte à importer.
Cependant mon code me renvoie l'erreur:

Erreur de compilation
Type défin par l'utilisateur non défini

lorsqe je déclare ma boite
Voici mon code

Code :

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

1
2
3
4
5
6
7
Dim BoiteChoixFichier As FileDialog
Set BoiteBoiteChoixFichier = Application.FileDialog(msoFileDialogFilePicker)
With BoiteChoixFichier
.Filters.Add "Text File", "*.txt"
.CancelError = True
.showOpen
End With

Quelqu'un pourrait-il m'expliquer ce qui ne va pas.
Merci de m'accorder du temps

[Tofalu]

Tu as ajouter la référence Microsoft office à ton projet ?

[quatar]

Merci beaucoup
Je me doutais que cela venais des références
depuis l'envoie du message je chercher à ajouter la bonne référence en essayant une à une
merci ton aide

Mais mainteant la ligne

Code :

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

.showOpen

plante :

Mendre de données ou de méthode non trouvé

Aurais tu une idée
Merci

[quatar]

J'ai trouvé c'est Show et non showopen.
Par contre je n'arrive pas à utiliser le retour de la boite pour importer la table, si tu peux regrader:

Code :

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

DoCmd.TransferText acImportDelim, "Broutard Spécification d'importation", "Importation Broutard", BoiteDialogue.SelectedItems

"Broutard Spécification d'importation" c'est le mode d'importation que j'ai créé
"Importation Broutard" c'st le nomde la table de destination

[kirua2150]

il me semble que "SelectedItems" renvoie un tableau (l'ensemble des fichiers sélectionnés) donc si tu veux le premier (ou l'unique) il suffit de mettre SelectedItems(1)

[quatar]

Un gros merci
bonne continuation