Discussion :

[Mugette]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
    For i = 1 To j 'remplissage du contenu du csv dans un tableau
        tab_csv = Array(Workbooks("localmasse.csv").Worksheets("localmasse").Cells(i, 1).Value, Workbooks("localmasse.csv").Worksheets("localmasse").Cells(i, 2).Value)
    Next i
    'MsgBox (Workbooks("localmasse.csv").Worksheets("localmasse").Cells(1, 1).Text)
 
    For i = 1 To j 'remplit en testant le premier digit
        Workbooks("local_masse.xls").Worksheets("lm1").Cells(2, i).Value = tab_csv(1, i)
        If Left(tab_csv, 1) = "B" Then
            Workbooks("local_masse.xls").Worksheets("lm2").Cells(2, i).Value = tab_csv(1, i)
        End If
    Next i

J'arrive pas à inserer le contenu de mon Array dans mon .xls pouvez-vous m'aider ?

Bibil au secours

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

..If Left(tab_csv, 1) = "B" Then ...

à remplacer surement par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...If Left(tab_csv(1, i) , 1) = "B" Then ...

...
puis dis nous ce que tu ve faire .. je pense que tu vas devoir aussi gérer un index pour définir n° de ligne dans onglet de destination ...