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 |
Partager