Exporter des onglets mais exclure les 5 premiers onglets
Fermé
sionbeach
Messages postés
2
Date d'inscription
dimanche 6 octobre 2019
Statut
Membre
Dernière intervention
6 octobre 2019
-
6 oct. 2019 à 21:11
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 7 oct. 2019 à 15:08
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 7 oct. 2019 à 15:08
A voir également:
- Exporter des onglets mais exclure les 5 premiers onglets
- Restaurer onglets chrome - Guide
- My hero academia saison 5 vf ✓ - Forum Cinéma / Télé
- Exporter les favoris chrome - Guide
- Exporter excel en pdf - Guide
- Fichier gta 5 ✓ - Forum jeux en ligne
2 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
7 oct. 2019 à 07:59
7 oct. 2019 à 07:59
Bonjour,
Il faut faire une boucle à partir du 6ème onglet comme ceci:
Il faut faire une boucle à partir du 6ème onglet comme ceci:
Dim i As Integer
For i = 6 To ThisWorkbook.Worksheets.Count
MsgBox Worksheets(i).Name
'mettre ton code ici en remplaçant la MsgBox par une variable
Next i
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
Modifié le 7 oct. 2019 à 15:10
Modifié le 7 oct. 2019 à 15:10
Re,
Sans utiliser le presse papier qui peux réserver des surprises (ni activeworkbook pour la même raison)
Il suffit de définir le nom des feuilles (quelle que soient leurs positions) à ne pas copier dans le premier Case.
Cordialement
Patrice
Personne ne peut détenir le savoir, c'est pour ça qu'on le partage.
Sans utiliser le presse papier qui peux réserver des surprises (ni activeworkbook pour la même raison)
Option Explicit
Sub enregistrer()
Dim wbk As Workbook
Dim wsh As Worksheet
Dim nom As String
Dim dos As String
dos = ThisWorkbook.Path & "\"
For Each wsh In ThisWorkbook.Worksheets
nom = wsh.Name
Select Case nom
Case "page1", "page2", "page3", "page4", "page5"
Case Else
Set wbk = Workbooks.Add(xlWorksheet)
wbk.Worksheets(1).Name = nom & "0" 'pour éviter les doublons
wsh.Copy after:=wbk.Worksheets(1)
Application.DisplayAlerts = False
wbk.Worksheets(1).Delete
wbk.SaveAs dos & nom & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = True
wbk.Close
Set wbk = Nothing
End Select
Next wsh
End Sub
Il suffit de définir le nom des feuilles (quelle que soient leurs positions) à ne pas copier dans le premier Case.
Cordialement
Patrice
Personne ne peut détenir le savoir, c'est pour ça qu'on le partage.