Discussion :

[froutloops62]

Bonjour,

Je sais créer un fichier pour chaque onglet de mon classeur :

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
Sub Split()
 
Dim nouveauFichier As Workbook
 
Set ceFichier = ActiveWorkbook
 
For Each fSheet In ceFichier.Worksheets
    Set nouveauFichier = Workbooks.Add
    DoEvents
    fSheet.Copy Before:=nouveauFichier.Sheets(1)
    DoEvents
    nouveauFichier.SaveAs Filename:="\\snoyfs01\PartageMD\Unités Commerciales\UC1\PILON\Fichiers Individuels" & "\" & fSheet.Name
    DoEvents
    nouveauFichier.Close False
Next
End Sub

En revanche, ce code créé un fichier pour tous les onglets du classeur alors que deux d'entre eux ne sont que des données administratives de l'appli et donc inutiles pour l'utilisateur.

Je souhaite donc pourvoir sélectionner certains des onglets pour la création de fichiers.

J'ai essayé avec ce genre de code, en considérant que les 2 premières feuilles ne sont pas à prendre en compte, mais sans succès :

Code :

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

1
2
3
 For i = Sheets.Count To 3 Step -1
    .............
    Next i

Pouvez-vous m'aider ?

Merci

[jerome.vaussenat]

Salut,

Je te propose cette modification qui test le nom de la feuille en cours de traitement avec de faire le job.
Bien sûr à toi de modifier le nom des feuilles selon ton cas ...

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
20
21
Sub Split()
 
Dim nouveauFichier As Workbook
 
Set ceFichier = ActiveWorkbook
 
For Each fsheet In ceFichier.Worksheets
 
    If fsheet.Name = "toto" Or fsheet.Name = "titi" Then
    'ne rine faire pour ces deux feuilles
    Else
        Set nouveauFichier = Workbooks.Add
        DoEvents
        fsheet.Copy Before:=nouveauFichier.Sheets(1)
        DoEvents
        nouveauFichier.SaveAs Filename:="\\snoyfs01\PartageMD\Unités Commerciales\UC1\PILON\Fichiers Individuels" & "\" & fsheet.Name
        DoEvents
        nouveauFichier.Close False
    End If
Next
End Sub

[froutloops62]

Bonjour Jérôme,

Merci ça fonctionne et je peux en plus sélectionner les feuilles plus précisément.

Merci!