Discussion :

[pythagore3_14]

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... !

[ouskel'n'or]

Déjà j'espère que tu as bien le nom complet (avec le chemin) dans ta textbox... Auquel cas on peut simplifier

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton2_Click()
   if dir(TextBox1.Text) <> "" then
      ListBox1.AddItem TextBox1.Text
     else 'GestionErreur
      MsgBox "Vérifier que l'adresse soit bien orthographiée et que ce fichier existe.", 0, "Erreur :"
   endif
End Sub

[pythagore3_14]

J'ai bien l'adresse complète.

Effectivement, c'est plus simple.... ! Je ne connaissais pas "Dir"; je m'en souviendrais...

Merci !