il existe, dans Excel, des boites de dialogues communes propres à Excel. De plus, lorsqu'on les ouvre, elle exécutent le job pour lequel elles sont prévues.
Il existe donc une boite pour Importer un Fichier Texte, mets ça dans ton code :
Sub ImporterFichier()
On Error GoTo ImporterFichierErr
Dim dTemp As Dialog
'instancie la boite de dialogue import fichier texte
Set dTemp = Application.Dialogs(xlDialogImportTextFile)
'affiche la boite de dialogue
dTemp.Show
Exit Sub
ImporterFichierErr:
MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & "ImporterFichier()"
End Sub
et exécutes la procédure ImporterFichier
à+,
rvblogn<SUP>
</SUP><SUP>Je veux ton bien... et je l'aurais
</SUP>
j'ai bien recu ta réponse (merci) mais je ne sais pas ce que c'est que le common dialog Control
En réponse à ce message privé. je te dirai: Essaie de répondre directement dans le Forum, après tout ta question y a été posée...
Pour en revenir à ton problème, je crois que je me suis un peu trompé, tu ne trouveras pas le Common Dialog Control a cet endroit là dans Excel. Mais plutot dans le Menu Outils Controle Suplémentaires.
Ensuite je te dirais d'effectuer une petite recherche sur le site pour apprendre a te servir de se controle qui n est vraiment simple.
Mais si tu coince sur un endroit n'hesite pas a faire signe.
@+, Julien Pensez: Moteur de Recherche, Réponse Acceptée