Comment manipuler Speadsheet dans un Userform
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:
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 |
Rien ne semble se passer quand je lance le projet, si quelqu'un pourrait m'aider svp.
Merci
