Ouvrir un fichier texte

Bonjour;
J'essaie de développer une macro qui va ouvrir un fichier texte dont je ne connais pas le nom à l'avance. Je passe donc par Application.GetOpenFileName. La boite de dialogue s'ouvre bien, jje sélectionne mon fichier et... rien. Il passe directement dans la gestion d'erreur et me renvoie l'erreur 0. Je ne comprends pas ce qui se passe. Petite précision, il s'agit d'Excel 2007.

Le code de ma macro:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub openfile() Dim retour As String Dim fichier As String   On Error GoTo err fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt") retour = FileRead(fichier)'Procédure de lecture du fichier err:   MsgBox "Erreur " & err.Number & " " & err.Description   End Sub

---

bonjour,

il manque un

Code:

---

exit sub

---

avant l'étiquette err pour éviter le passage dans ta section gestion d'erreur lorsqu'il n'y as pas d'erreur....

tu as dans la :faq: un code fonctionnel sans gestion d'erreur qui te permet de récupérer le nom d'un fichier :

http://excel.developpez.com/faq/?pag...etOpenFileName

Tout d'abord merci de ta réponse rapide.
Ok pour le "Exit Sub". Bon par contre je ne comprends rien j'ai rebooté ma machine et maintenant ça marche:weird:
Je passe en résolu...

Salut, à la vue de ton code, un seul conseil : lire et assimiler ceci et c'est un minimum.