Macro enregistrer feuilles en fichiers

Question

Bonjour, j'ai besoin de votre aide appréciée. Mon fichier contient 8 sheets dont 6 doivent être copiées dans 5 fichiers (2 sheets per file),

ensuite enregistrer le fichier dans mon bureau sous un nom précis. (ce qui fera 3 fichiers)

j'ai utilisé l'enregistreur macro en faisant tous les enregistrements un après l'autre et voici ce qu'a généré comme code, ça fonctionne quand j'excécute mais j'ai deux problèmes :

1-quand je ferme le tout et revenir pour l'exécuter : bog au niveau de la 4ème ligne voir partie en gras

2-autre chose, quand j'enlève les 'Sub' et 'End Sub' pour en faire une seule macro, ça bogue à la même place

Sub VentesDisk()

Sheets(Array("VentesDisk-2021", "Ventes-2022")).Select

Sheets("Ventes-2022").Activate

Sheets(Array("VentesDisk-2021", "VentesDisk-2022")).Move Before:= _

Workbooks("Classeur1").Sheets(1)

ChDir "\\fsusr\markj\Bureau"

ActiveWorkbook.SaveAs Filename:= _

"\\C\markj\Bureau\VentesDisk21-22.xlsx", FileFormat:= _

xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

Sheets("PageTitre").Select

End Sub

Sub AchatsDisk202122()

Sheets(Array("AchatsDisk2021", "AchatsDisk2022")).Select

Sheets("AchatsDisk2022").Activate

Sheets(Array("AchatsDisk2021", "AchatsDisk2022")).Move

ActiveWorkbook.SaveAs Filename:= _

"\\C\markj\Bureau\AchatsDisk21-22.xlsx", FileFormat:= _

xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

Sheets("PageTitre").Select

End Sub

Sub Crédits202122()

Sheets(Array("Crédits2021", "Crédits2022")).Select

Sheets("Crédits2022").Activate

Sheets(Array("Crédits2021", "Crédits2022")).Move

ActiveWorkbook.SaveAs Filename:= _

"\\C\markj\Bureau\Crédits202122.xlsx", FileFormat:= _

xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

Sheets("PageTitre").Select

End Sub

Valky68 · Answer

Tes explications ne sont pas claires du tout entre le nombre de feuilles et le nombres de fichiers ! Comment va évoluer le nom de tes fichiers dans le temps quand tes feuilles changeront de nom ...