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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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...
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
111
Réponses
7
Affichages
338
Réponses
5
Affichages
416
Retour