Reproduction des fichiers à l'aide de la Matrice

Tophe2 · 7 Août 2007

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 · 7 Août 2007

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

Salut Tophe,

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

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+

Reproduction des fichiers à l'aide de la Matrice

Tophe2

XLDnaute Impliqué

Pièces jointes

Compte Supprimé 979

Guest

Discussions similaires

Reproduction des fichiers à l'aide de la Matrice

Tophe2

XLDnaute Impliqué

Pièces jointes

Compte Supprimé 979

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency