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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager