XL 2016 vba créer un classeur pour chaque feuille d'un classeur

MONTREAL2020 · 25 Octobre 2022

Bonjour,

Je sollicite votre aide pour:
À partir d'un classeur comportant plusieurs feuilles:
1- Créer un classeur chaque feuille du classeur
2- Définir les feuilles qui vont être transformer en classeur
3- Leur donner un nom figurant sur une cellule de la feuille elle même + un suffixe commun à toutes les feuille
4- Les enregistrés dans le même dossier du classeur initial

Merci beaucoup votre support

Staple1600 · 26 Octobre 2022

Re

@MONTREAL2020
Je te laisse étudier ce petit test
1) Sur un classeur vierge, avec une seule feuille
Lance la macro nommée cree_Exemple

Code:

Sub cree_Exemple()
Sheets(1).Name = "DATA BASE PRODUITS"
Sheets.Add(after:=Sheets(1)).Name = "Liste Acheteurs"
Sheets.Add(after:=Sheets(2)).Name = "Pays"
For i = 4 To 8
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "STAPLE_" & Format(i, "00")
Next
End Sub

Puis lance cette macro

Code:

Sub test_boucle()
Dim exclure, F As Worksheet
exclure = Array("DATA BASE PRODUITS", "Liste Acheteurs", "Pays")
For Each F In Worksheets
 Matched = Application.Match(F.Name, exclure, 0)
If IsError(Matched) Then
MsgBox F.Name & " <- feuille à supprimer!", vbCritical, "Test Suppression"
End If
Next
End...

MONTREAL2020 · 26 Octobre 2022

Staple1600 à dit:
Euh ? WTF

Je parlais de ce que toi tu avais modifié

L'adaptation aurait dû être celle-ci, non ?

VB:

Sub export_Feuilles() Dim exclure, F As Worksheet exclure = Array("DATA BASE PRODUITS", "Liste Acheteurs", "Pays") For Each F In Worksheets Matched = Application.Match(F.Name, exclure, 0) If IsError(Matched) Then NOM_FIC = F.Name & "_Price_List_" & Format(Date, "ddmmyy") & ".xlsx" F.Copy ActiveWorkbook.SaveAs strPath & NOM_FIC, 51 ActiveWorkbook.Close True End IF Next End Sub

Mais apparemment tu n'as pas trop mouillé la chemise

J'avais rien modifié.

Dans la macro #21

ces deux ligne étaient désactivé (en vert)
ActiveWorkbook.SaveAs strPath & NOM_FIC, 51
ActiveWorkbook.Close True
le code bloqué et quand je les ai remises, ça donné le résultat que je vous ai transmis en screen shot.

Pour l'instant je ne suis pas capable de changer quoi que ce soit, mais je commence à regarder quelques tutos sur YouTube et surtout ceux de l'hexagone

Staple1600 · 26 Octobre 2022

Re

@MONTREAL2020
Ok

Donc désormais la macro du message#35 fait-elle ce que tu veux obtenir ?

XL 2016 vba créer un classeur pour chaque feuille d'un classeur

MONTREAL2020

XLDnaute Junior

Staple1600

MONTREAL2020

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Discussions similaires