Importer Fichier txt - Pb avec Split
Bonjour,
J'ai un petit soucis, en fait j'ai un fichier texte ayant le format ci-dessous:
Type: Repartition
0, 0
7.2e-008, 0.0005172
1.44e-007, 0.0048998
2.16e-007, 0.022621
2.88e-007, 0.082317
3.6e-007, 0.1872
4.32e-007, 0.35252
5.04e-007, 0.51745
5.76e-007, 0.66523
6.48e-007, 0.76361
Et j'essaie de créer une macro qui le lit et mette les éléments de chaque coté du séparateur "," dans une colonne (dans mon cas dans A et B).
Le code est ci-dessous et quand je l'execute, il semblerait que le problème se trouve à ligne en gras et je ne sais pas comment le résoudre.
Voici l'erreur qui est renvoyé
Erreur d'execution '9':
L'indice n'appartient pas à la séléction
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
31
32
33
|
Private Sub CommandButton1_Click()
'macro pour importer le fichier texte dans la Feuil2
Dim Nom_Fichier As String, Texte As Variant
Dim NumFile As Integer, Compteur As Integer
If Feuil1.TextBox1.Value = "" Then
MsgBox "Merci de renseigner le nom de fichier !", vbCritical + vbOKOnly, "Attention..."
Exit Sub
End If
Nom_Fichier1 = "C:\Traitement Vba\" & Feuil1.TextBox1.Value
Compteur = 1
If Dir(Nom_Fichier1) = "" Then
MsgBox "Le fichier n'existe pas !", vbCritical + vbOKOnly, "Attention..."
Exit Sub
Else
Feuil2.Select
NumFile = FreeFile
Open Nom_Fichier1 For Input As NumFile ' ouverture du fichier
Do While Not EOF(NumFile)
Line Input #NumFile, Texte
montableau2D = Split(Texte, ", ")
Feuil2.Range("A" & Compteur).Select
Feuil2.Range("A" & Compteur).Value = montableau2D(0)
Feuil2.Range("B" & Compteur).Value = montableau2D(1)
Compteur = Compteur + 1
Loop
End If
Feuil2.Range("A1").Select
Close NumFile
End Sub |
Je vous Remercie d'avance
