Bonjour à tous,

J'essaye de développer un programme permettant à l'utilisateur de sélectionner un fichier Excel à ouvrir à travers ce bout de programme (intégration dans un userform) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Browse_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Show
        UserForm5.TextBox1.text = .SelectedItems(1)
    End With
End Sub
puis une fois sélectionné, lors de la validation par appui sur un bouton du userform, je souhaiterais parcourir le fichier ouvert pour par exemple compter le nombre de lignes utilisées, ou y récupérer des données. Pour le moment j'en suis là (pas très loin ^^) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Validate_Click()
    Dim wb As Workbook
    Dim ws As Worksheet
    Set wb = Workbooks.Open(TextBox1.Value)
    Set ws = wb.Worksheets(1)
    Unload UserForm5
    ws.Range("A1").Select
End Sub
J'ai simplement essayé de sélectionner une case dans le fichier ouvert (dernière ligne de code) mais ça ne marche pas, sauriez vous comment je peux procéder ?

Merci d'avance pour votre aide