Bonjour,
Je début en programmation et sollicite votre aide car le programme ci dessous génère bien les fichiers demandés mais s'arrête à une dizaine de fichiers en automatique au lieu des 200 attendus...
Il y a en effet 200 colonnes dans le fichier original avec le chiffre d'affaire de 200 clients et je souhaiterais générer un fichier par client qui reprendrait la première colonne et la colonne du client.
(message d'erreur 1004 fichier inaccessible , cela met en surbrillance nwbk.SaveAs chemin & .Cells(1, i))
voici le programme:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub a()
    Dim i As Long, nwbk As Workbook, chemin$
    chemin = "c:\temp\"
    Application.ScreenUpdating = False
    With ThisWorkbook.ActiveSheet
          derco = Cells(1, Columns.Count).End(xlToLeft).Column
        For i = 2 To derco
            If .Cells(1, i) <> "" Then
                Set nwbk = Workbooks.Add(-4167)
                .Range("A1:A114").Copy nwbk.Sheets(1).[A1]
                .Cells(1, i).Resize(.Cells(.Rows.Count, i).End(xlUp).Row).Copy nwbk.Sheets(1).[B1]
                nwbk.Sheets(1).Cells.EntireColumn.AutoFit
                nwbk.SaveAs chemin & .Cells(1, i)
                nwbk.Close True
            End If
            Set nwbk = Nothing
        Next i
    End With
End Sub
Je vous remercie pour votre aide!