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

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

Answer 1

Bonjour

A priori vous ouvrez un fichier  .csv et,  vous ajoutez une ligne complete dans une cellule Excel.
Utilisez Split :http://msdn.microsoft.com/en-us/library/6x627e5f(v=vs.80).aspx
pour diviser les lignes et mettez la valeur que vous voulez dans la cellule.
 
Cordialement

 

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

Answer 2

Bonjour

Un petit retour?

Merci

Cordialement,

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

Answer 3

Bonjour,

Pouvons-nous considérer que vous avez résolu votre problème avec les scénarios proposés ? Dans l'affirmative, pourriez-vous partager avec nous la solution, afin que d'autres personnes avec le même problème puissent profiter de cette solution ?

Désormais, nous marquons les solutions proposées. N'hésitez pas à revenir et supprimer la réponse marquée si la solution n’est pas correcte. Merci !

Cordialement,

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.