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