Archivage de données

Dim RepFinAnnee As String
Dim Fichier As String, FeuilleActive As String
Dim i As Integer
Dim Derligne As Long, DerLigneDestination As Long

Fichier = "Gestions Congés - Sauvegardes.xls"
RepFinAnnee = MsgBox("Appuyez sur Ok pour lancer les traitements de fin d'année." _
& Chr(10) & Chr(10) & "ATTENTION, les données de l'exercice en cours seront archivées." _
, vbOKCancel + vbInformation + vbDefaultButton2, "Gestion Congés")

Select Case RepFinAnnee
Case 1
Sheets("Données").Select
Sheets("Données").Range("$C$2").Value = Sheets("Données") _
.Range("$C$2").Value + 1
'Ouverture du classeur de sauvegarde
Workbooks.Open (ThisWorkbook.Path & "\" & Fichier)
'Création feuille exercice
Workbooks(Fichier).Sheets.Add after:=Worksheets _
(Worksheets.Count)
Workbooks(Fichier).ActiveSheet.Name = "Exercice 2007"
'Recopie des feuilles agents
For i = 6 To ThisWorkbook.Sheets.Count
FeuilleActive = Sheets(i).Name
Sheets(FeuilleActive).Select
derlign = Range("A65536").End(xlUp).Row
Range("A1;O" & derlign).Select
Selection.Copy
Selection.Paste Destination:=Workbooks(Fichier) _
.Worksheets("Exercice 2007").Range("A25")
est-ce là qu'il faut calculer la dernière ligne de la feuille
du classeur archivage ?
End If
Workbooks(Fichier).Close savechanges:=True


Case 3
Exit Sub
Range("B6").Select

End Select

End Sub

Cliquez pour agrandir...