Discussion :

[Aurel51]

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

[EngueEngue]

Code :

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

msgbox(wb.ws.Range("A1"))

Il faut dire quel classeur tu veux, sinon il va te prendre ton classeur actuel..

[Aurel51]

j'avais essayé en premier avec seulement le Workbook mais ça ne marchait pas, avec seulement le WorkSheet ca ne marchait pas non plus, et avec les deux.... idem !

Code :

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

1
2
3
4
5
6
7
8
9
 
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
    MsgBox wb.ws.Range("D33")
End Sub

j'ai "Propriété ou méthode non gérée par cet objet"

D'ailleurs quel est l'intérêt du WorkSheet, car en mettant en commentaire la 2ème et 4ème ligne du programme, j'obtiens exactement le même résultat...

[Gont64]

Bonjour,

le message d'erreur vient parce qu'il me semble qu'il faut décomposer les étapes.

Code :

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

1
2
3
wb.activate
ws(1).activate
Range("A1").select

[Invité]

Bonjour,

le message d'erreur vient parce qu'il me semble qu'il faut décomposer les étapes.

Code :

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

1
2
3
wb.activate
ws(1).activate
Range("A1").select

Surtout pas !

j'ai "Propriété ou méthode non gérée par cet objet"

A quelle ligne ?

Le code suivant est fonctionnel:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Validate_Click()
 
  Dim wb As Workbook
  Dim ws As Worksheet
 
  With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Show
    Me.TextBox1.Text = .SelectedItems(1)
  End With
 
  Set wb = Workbooks.Open(Me.TextBox1)
  Set ws = wb.Worksheets(1)
 
  Unload Me
 
  With ws
    MsgBox .[A1]
  End With
 
End Sub

[Marc-L]

Gont64 dans ce cas précis n'a pas tort car on ne peut sélectionner une cellule que dans la feuille active …

Par contre là où tu as totalement raison Vincent c'est quand on peut se passer de sélectionner des objets
pour travailler directement dessus, c'est bien plus efficace et sûr ! Comme ton code le démontre si bien …
Respect de la règle TBTO …

[Invité]

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 ^^) :

Toutes ces manipulations ne nécessitent pas la sélection d'une cellule. Du coup je maintiens mon 'Surtout pas !'.