Re : besoin aide pour matrice archive
hello merci de ton aide
je comprend que ces difficile a comprendre,
mais je ne voi pas comment l'expliquer autrement peut etre en mettant un bout de code que j'ai trouver dans un classeur ce code permet d'archiver dans un dossier windows classic les feuilles compris dans le classeur mais je n'arrive pas encore a le comprendre .
si cela parait claire a quelqu'un merci de son aide avance
respectueusement flycyber
Sub Archivage()
'On Error GoTo Erreur
'----- Cette sub créé un fichier d'archive qui contient toutes les feuilles -----'
FichierArchive = Range("Fichier_Archive")
Worksheets.Copy
Sheets(Array("Tables", "Menu", "Base")).Select
ActiveWindow.SelectedSheets.Delete
For Feuille = 1 To Sheets.Count
Sheets(Feuille).Select
Call MEF_Impression_Siège
Range("A1").Select
Next Feuille
'Worksheets.Select
ActiveWorkbook.SaveAs Filename:=FichierArchive, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Exit Sub