XL 2016 macro import

[bredeche]

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

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

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

 

[Modeste geedee]

Bonsour®

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

Select Case Cells(iRow, 1)
Case Is = Cells(iRow, 2)

End Select
[/code]

il aurait été préférable de joindre le fichier .csv

- ??? utilité du Sélect case

 

[bredeche]

ci joint le fichier que je doit importe
en colone o il y a des retours a la ligne que je veux suprime quand je les importe
http://www.cjoint.com/c/GJziwMlvvCs

 

[Modeste geedee]

Bonsour®

ci joint le fichier que je doit importe
en colone o il y a des retours a la ligne que je veux suprime quand je les importe
http://www.cjoint.com/c/GJziwMlvvCs

import direct sans macro via l'assistant d'importation
en précisant delimiteur ";"

pas trouvé de renvoi à la ligne en colonne O

 

[bredeche]

dans mon fichier que jje dois importe tous les element de la cellule M qui ont des saut de ligne des lors que le l'importe en macro ou dans le fichier que vous m'avez joints tous les saut de ligne s'inscrive en colone A l'une en desous de l'autre
et moi je veut que cela reste dans la meme cellule mais enleve les sauts de ligne lors de l'import

je voudrais savoir que faut il modifier dans ma macro pour eviter cela .

 

[Modeste geedee]

dans mon fichier que jje dois importe tous les element de la cellule M qui ont des saut de ligne des lors que le l'importe en macro ou dans le fichier que vous m'avez joints tous les saut de ligne s'inscrive en colone A l'une en desous de l'autre
et moi je veut que cela reste dans la meme cellule mais enleve les sauts de ligne lors de l'import

je voudrais savoir que faut il modifier dans ma macro pour eviter cela .

Merde In... Merde Out !!!
AMHA il s'agit d'enregistrement mer..#@?!..x qui ne respectent pas l'encodage prévu
gérer les saut de lignes n'apportera rien de concret sans savoir à quel champ rattacher ses informations orphelines.
il faut corriger les anomalies à la source !!!
contacter le fournisseur des informations en précisant l'anomalie entre la référence :
CTA_011_L3_DNT_001
et la référence :
CTA_G01_L3_XXX_XXX;

et aussi entre :
GFR_001_L3_DNT_001 et GTC_001_L3_DRC_XXX

UEX_001_L3_DNT_001 et UIR_001_L3_DN1_005

 

[bredeche]

j'ai bien compris
mais ma source fichier joint tous les elements lier au code équipement sont dans la meme cellule M avec des saut de ligne mais quand j'utilise ma macro tous les colones qui on des saut de ligne , ma macro les importe dans la colone A moi je veux quelle reste dans la colone M et que ma macr puisse enleve c'est saut de ligne et mettre un point virgule

fichier source est http://www.cjoint.com/c/GJziwMlvvCs

je suis desolé d'insisté ,je suis sur que modifier ma macro cela pourais marché mais je ne vois pas comment je ne connais pas assez de propriété simple pour permettre cela

encore merci de porté un interet a mon probleme