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

MONTREAL2020

XLDnaute Junior
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
 
Solution
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

XLDnaute Junior
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 838
dernier inscrit
Christelle.B86