Bonsoir,
j'ai une macro qui recupere la drerniere ligne d'un fichier text, sauf que lors de la recuperation de ce fichier, la mise en forme change, il me copie tous dans une seule colonne, pouvez vous m'aidez a le recuperer cette ligne, avec des colonnes separées?
Sub macro()
Dim Fe As Worksheet
Dim Plage As Range
Dim Fichier As String
Fichier = "C:\Users\ishak\Desktop\douka\test.txt"
Set Fe = Worksheets("Feuil1")
With Fe
With .QueryTables.Add("TEXT;" & Fichier, Range("A1"))
.Refresh False
.Delete '<supprime la liaison
End With
Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(-1, 0))
Plage.EntireRow.Delete
End With
End Sub
merci pour votre aide
j'ai une macro qui recupere la drerniere ligne d'un fichier text, sauf que lors de la recuperation de ce fichier, la mise en forme change, il me copie tous dans une seule colonne, pouvez vous m'aidez a le recuperer cette ligne, avec des colonnes separées?
Sub macro()
Dim Fe As Worksheet
Dim Plage As Range
Dim Fichier As String
Fichier = "C:\Users\ishak\Desktop\douka\test.txt"
Set Fe = Worksheets("Feuil1")
With Fe
With .QueryTables.Add("TEXT;" & Fichier, Range("A1"))
.Refresh False
.Delete '<supprime la liaison
End With
Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(-1, 0))
Plage.EntireRow.Delete
End With
End Sub
merci pour votre aide