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