Sub ImporCsv()
Const Separateur = ";"
dim Fichier as string:Fichier =Environ("Temp") & "\test.csv"
PressePapier = Replace(Replace(Replace(Replace(LireTxt(Fichier ), vbCrLf, "®"), vbCr, "©"), "®", vbCrLf), Separateur, vbTab)
Sheets("Feuil1").Range("A1").PasteSpecial xlAll
Sheets("Feuil1").Cells.Replace What:="©", Replacement:=Chr(10), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Public Function LireTxt(Fichier As String) As String
With CreateObject("Scripting.FileSystemObject")
With .OpenTextFile(Fichier)
LireTxt = .ReadAll
.Close
End With
End With
End Function
Public Sub ClearPressePapier()
With CreateObject("htmlfile").parentwindow.clipboardData.clearData("Text"): End With
End Sub
Public Property Let PressePapier(valeur)
With CreateObject("htmlfile").parentwindow.clipboardData.SetData("Text", valeur): End With
End Property
Public Property Get PressePapier()
PressePapier = CreateObject("htmlfile").parentwindow.clipboardData.GetData("TEXT")
End Property