XL 2013 probleme import fichier VBA

bredeche

XLDnaute Occasionnel
Bonjour
je me permet de vous contacter car dans la mise en place de ma macro tst qui est sur la feuille CR me pose un problème
je voudrais que les colonne BO BP BQ BR BS BT lors de mon import les formules sont écraser ,moi je désire que ces colonnes reste apres import
merci de votre le fichier trop volumineux ci dessous mon vba
merci de votre aide

VB:
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

merci de votre aide
 

Statistiques des forums

Discussions
300 890
Messages
1 988 148
Membres
210 088
dernier inscrit
Marcus_31