Bonjour tout le monde !
Je voudrais vérifier l'existence d'un fichier avant de l'ajouter dans une ListBox. J'ai fais le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton2_Click()
    On Error GoTo GestionErreur
    Dim Fich As String
    Fich = TextBox1.Value
    Application.Workbooks.Open Filename:=Fich
    Workbooks(Fich).Close
    ListBox1.AddItem Fich
    Exit Sub
GestionErreur:
    MsgBox "Erreur : vérifier que l'adresse soit bien orthographiée et que ce fichier existe."
    Exit Sub
End Sub
Il marche bien quand il n'y a pas la ligne "Workbooks(Fich).Close"; sinon il affiche le message "Erreur : ...". Je ne comprends pas pourquoi cette ligne génère une erreur... !