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

[MONTREAL2020]

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

 

[MONTREAL2020]

Euh ? WTF

Je parlais de ce que toi tu avais modifié

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

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]

Re

@MONTREAL2020
Ok

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