none
Ma sub lance un .exe qui genere un .csv et en copie colle la première colonne dans la premiere colonne de ma spread sheet, donc ça ça marche, je relance ensuite l'executable et cherche à copier coller la colonne du nouveau .csv dans la deuxième colonne RRS feed

  • Question

  • Ma sub lance un .exe qui genere un .csv et en copie colle la première colonne dans la premiere colonne de ma spread sheet, donc ça ça marche, je relance ensuite l'executable et cherche à copier coller la colonne du nouveau .csv dans la deuxième colonne de ma spreadsheet et tout ce qui se passe c'est que la deuxième colonne est effacée, si vous voyez mon erreur tenez moi au courant! 

    
    Sub DataImport()
    
        Application.ScreenUpdating = False
        Dim LCol As Long, LRow As Long, DataSet As String, StrData As String
        LCol = 4: LRow = 8: LRow2 = 1
        With ThisWorkbook
            RetVal = Shell("C:\Merseene_Twister_128_BIT_RNG\MT128good.exe", 1)
               
            Sleep (2000)
            DataSet = .Path & "\unif.csv"
            If Dir(DataSet) <> "" Then
                With .Sheets(1)
                    .Columns(1).ClearContents
                    Open DataSet For Input As #1
                    Do Until EOF(1)
                        Input #1, StrData
                        .Cells(LRow2, 1).Value = StrData
                        LRow2 = LRow2 + 1
                    Loop
                End With
                Close #1
                DataSet = ""
            End If
        End With
         With ThisWorkbook
            RetVal = Shell("C:\Merseene_Twister_128_BIT_RNG\MT128good.exe", 1)
               
            Sleep (4000)
            DataSet2 = .Path & "\unif.csv"
            If Dir(DataSet2) <> "" Then
                With .Sheets(1)
                    .Columns(2).ClearContents
                    Open DataSet2 For Input As #1
                    Do Until EOF(1)
                        Input #1, StrData
                        .Cells(LRow2, 2).Value = StrData
                        LRow2 = LRow2 + 1
                    Loop
                End With
                Close #1
                DataSet2 = ""
            End If
        End With
        Application.ScreenUpdating = True
    End Sub
    

    lundi 4 mars 2013 08:24

Réponses

Toutes les réponses