Comment manipuler Speadsheet dans un Userform

**Nanty** · 20/04/2011, 12h21

Bonjour,

Actuellement je suis en train de travailler sur un UserForm en Excel et je voudrais afficher une feuille de calcul dans celui-ci qui contiendrait les données contenues dans un fichier text.
Mon problème c'est au niveau de la manipulation de ce contrôle spreadsheet qui me semble un peu bizarre.

Voici mon code :

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
22
23
24
25
26
27
28
29
30
 
Private Sub Spreadsheet1_Initialize()
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
Dim Text, titre, Tableau As String
Dim tmp As String
Dim taux, prevision As Double
Dim i As Integer
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile("Z:\Mes Documents\Projet Pro\taux_20110101.txt")
Set oTxt = oFl.OpenAsTextStream(ForReading)
i = 1
With oTxt
    While Not .AtEndOfStream
        Text = oTxt.ReadLine
        'Découper la chaine et extraire les données
        Tableau = Split(Text, ";")
        titre = CStr(Tableau(0))
        taux = CDbl(Tableau(1))
        prevision = CDbl(Tableau(2))
        UserForm1.Spreadsheet1.Worksheets(1).Activate
        UserForm1.Spreadsheet1.Worksheets(1).Range("A" & i).Value = titre
        UserForm1.Spreadsheet1.Worksheets(1).Range("B" & i).Value = taux
        UserForm1.Spreadsheet1.Worksheets(1).Range("C" & i).Value = prevision
        i = i + 1
    Wend
End With
End Sub