bredeche
XLDnaute Occasionnel
bonjour j ai une macro import
mais j ai un souci car si la source que je dois importé et qu' il y a des cellules dans plusieurs colone qui on des retour a la ligne cela plante mon export
trouvez ci dessous mon code
que faut il rajouté afin de supprimer tous les retour a la ligne et de les separé par un point virgule exemple
lors de l'execution de la macro (code ci dessous)
merci de votre aide
mais j ai un souci car si la source que je dois importé et qu' il y a des cellules dans plusieurs colone qui on des retour a la ligne cela plante mon export
trouvez ci dessous mon code
que faut il rajouté afin de supprimer tous les retour a la ligne et de les separé par un point virgule exemple
lors de l'execution de la macro (code ci dessous)
merci de votre aide
Code:
Sub Tst()
Dim Fichier As Variant
ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Text Files (*.csv), *.csv")
If Fichier <> False Then
Lire Fichier
End If
End Sub
Code:
Sub Lire(ByVal NomFichier As String)
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Separateur As String * 1
' Séparateur Point Virgule
Separateur = ";"
Cells.Clear
Application.ScreenUpdating = False
NumFichier = FreeFile
iRow = 1
Open NomFichier For Input As #NumFichier
Do While Not EOF(NumFichier)
iCol = 1
Line Input #NumFichier, Chaine
Ar = Split(Chaine, Separateur)
For i = LBound(Ar) To UBound(Ar)
Ar(i) = Replace(Ar(i), "M-", "")
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
Select Case Cells(iRow, 1)
Case Is = Cells(iRow, 2)
End Select
iRow = iRow + 1
Loop
Close #NumFichier
Application.ScreenUpdating = True
End Sub