Génération de 200 fichiers en automatique

**soflab31** · 09/02/2015, 08h49

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!

**SfJ5Rpw8** · 09/02/2015, 09h07

Bonjour,

pour nous aider à diagnostiquer ... lorsque tu as une erreur est du code en surbrillance tu peu utiliser la souris la placer sur les différentes variables afin de connaitre leur valeur ...

valeur de i , de nwbk ....

**kiki29** · 09/02/2015, 09h36

Salut, est-ce que ton nom de fichier .Cells(1, i) ne contient pas des caractères interdits ? pour voir cela utiliser qqch comme :

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
Option Explicit
 
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(CaracInterdits)
        If InStr(sChaine, Mid$(CaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function

et agir en conséquence.