Reproduction des fichiers à l'aide de la Matrice

[Tophe2]

Bonjour le Forum
Je vais essayer d'être clair :
J'ai un fichier excel qui contient plusieurs feuilles qui me sert de matrice par semaine. A l'aide d'un menu déroulant je sélectionne ma semaine et dans un autre l'année et j'enregistre sous ......

J'aimerai savoir s'il était possible (ou comment faire) à l'aide de cette matrice de réaliser 52 fois la même choses semaine par semaine et la cerise sur le gateau avec un nom de fichier Semaine 1, Semaine 2....
Ci joint un fichier qui contient qu'une seule feuille de référence.
Cordialement Christophe.

 

[Compte Supprimé 979]

Re : Reproduction des fichiers à l'aide de la Matrice

Salut Tophe,

Après avoir changé l'année, tu lances ce code

Sub CopieSemaine()
  Dim I As Integer
  For I = 1 To 52
    Sheets("BLOC").Range("S").Value = I
    Sheets("BLOC").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Semaine " & Format(I, "00") & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close
  Next
End Sub

Et admire le travail 😉
Penses à utiliser l'enregistreur de macro, ça aide bien souvent !

A+