Sub BtnArchive_Clic()
Dim LeFichierAVerifier As String, Reponse As Boolean
Dim MiseAJourDate As Byte
Dim Mois1 As String
Dim Mois2 As String
Dim Mois3 As String
Dim Mois4 As String
Dim Mois5 As String
Dim Mois6 As String
Dim Mois7 As String
Dim Mois8 As String
Dim Mois9 As String
Dim Mois10 As String
Dim Mois11 As String
Dim Mois12 As String
Mois1 = "Janvier"
Mois2 = "Février"
Mois3 = "Mars"
Mois4 = "Avril"
Mois5 = "Mai"
Mois6 = "Juin"
Mois7 = "Juillet"
Mois8 = "Août"
Mois9 = "Septembre"
Mois10 = "Octobre"
Mois11 = "Novembre"
Mois12 = "Décembre"
LeFichierAVerifier = "E:\Documents\Archive Comptes\Archives " & Sheets("configuration").Cells(3, 6) & ".xlsm"
' Création du fichier d'archive de l'année s'il n'existe pas
If Dir(LeFichierAVerifier) = "" Then
FileCopy "E:\Documents\Archive Comptes\modèle.xlsm", "E:\Documents\Archive Comptes\Archives " & Sheets("configuration").Cells(3, 6) & ".xlsm"
Workbooks.Open (LeFichierAVerifier)
' -----------------------------------------------------------------------
' REVOIR CETTE PARTIE: LES FICHIERS UTILISES NE DOIVENT PAS ETRE LES BONS
' -----------------------------------------------------------------------
For MiseAJourDate = 1 To 12
' Code
Workbooks(LeFichierAVerifier).Sheets(Mois & MiseAJourDate).Range("B2").Value = "Compte chèque - " & Mois & MiseAJourDate & .Sheets().Range("B2") & Workbooks("Archives " & Workbooks("Comptes chèques").Sheets("configuration").Cells(3, 6) & ".xlsm").Sheets().Range("B2")
Workbooks("Archives " & Workbooks("Comptes chèques").Sheets("configuration").Cells(3, 6) & ".xlsm").Worksheets(ActiveSheet.Index + 1).Select
Next
MsgBox ("Le fichier vient d'être créé")
End If
End Sub