Discussion :

[Vincent32]

Bonjour à tous,

Je suis débutant et je ne vois pas ce qui cloche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Enregistrement données brutes
        For Col = PremC1 To DerC1
                    'ajout d'un classeur avec 1 feuille
                    Workbooks.Add 1
                    'copie des colonnes qui vont bien dans le nouveau classeur
'ERREUR SUR CETTE LIGNE
                    ws1.Range(ws1.Cells(1, 0), ws1.Cells(DerL1, 0)).Copy ActiveWorkbooks.[A1]
                    ws1.Range(Cells(1, Col).Offset(0, 1), Cells(DerL1, Col).Offset(0, 1)).Copy [B1]
                    'enregistrement au format txt
                    ActiveWorkbook.SaveAs ws0.Cells(9, 5) & "\Retraitement\Données brutes\txt\Données brutes" & " " & ws1.Cells(1, Col) & ".txt", xlTextWindows
                    'fermeture du classeur texte
                    ActiveWorkbook.Close False
        Next Col

Merci pour votre aide

bonne journée

Vincent

[fring]

Bonjour,

A vue de nez je dirais que tu demandes de copier la colonne 0 et la colonne 0 n'existe pas... "ws1.Cells(1, 0), ws1.Cells(DerL1, 0)"

[jfontaine]

Bonjour,

Code :

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

ws1.Range(ws1.Cells(1, 0), ws1.Cells(DerL1, 0)).Copy ActiveWorkbooks.[A1]

Sur cette ligne tu spécifies le classeur cible mais pas la feuille

Essais comme cela

Code :

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

ws1.Range(ws1.Cells(1, 1), ws1.Cells(DerL1, 1)).Copy ActiveWorkbooks.Sheets("1").[A1]

[Vincent32]

Bonjour,

Merci pour vos réponses après travail voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 'Enregistrement données brutes
        For Col = PremC1 To DerC1 - 1
                    'ajout d'un classeur avec 1 feuille
                    Workbooks.Add 1
                    'copie des colonnes qui vont bien dans le nouveau classeur
                    ws1.Range(ws1.Cells(2, 1), ws1.Cells(DerL1, 1)).Copy [A1]
                 ActiveWorkbooks.Sheets("1").[A1]
                    ws1.Range(ws1.Cells(2, Col + 1), ws1.Cells(DerL1, Col + 1)).Copy [B1]
                    'enregistrement au format txt
                   ActiveWorkbook.SaveAs ws0.[E12] & ws1.Cells(1, Col + 1) & ".txt", xlTextWindows
                    'fermeture du classeur texte
                    ActiveWorkbook.Close False
        Next Col

Encore merci pour votre aide, bonne journée

Cordialement,

Vincent