Archivage de données

[gianluca]

Bonjour le Forum...


Une nouvelle question sur laquelle je bute....

Gans mon projet de gestion de congé, je souhaite pouvoir archiver en fin d'année les différentes feuilles de suivis individuels des agents. (Et ce dans un classeur différent que j'ouvre et ferme apres les opérations d'archivage)

Je souhaite que chaque feuille agent soit archivée sur la même feuille du classeur archives.

Pour chaque feuille agent de mon classeur de gestion Congés, il me faut:
- connaitre la dernière ligne (Ca je sais faire, merci à vous),
- copier les données,
- les coller a la suite sur la feuille du classeur d'archivage

ensuite je dois trouver la dernière ligne du la feuille du classeur Archivages pour coller les données de la feuille de l'agent suivant à la suite.
et là je bugge... pour passer d'un classeur à l'autre.... 🙂


J'ai commencé a écrire cette procédure mais...

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

Bref, le gars Gianluca patauge un fois de plus.... et un coup de main serait le bienvenu... 🙂

Merci à vous par avance

Bonne journée

Gianluca

 

[gianluca]

Re : Archivage de données

Re le fil,

merci à toi Wilfried,
Je vais de ce pas tester la chose 🙂


Gianluca

 

[gianluca]

Re : Archivage de données

Re le fil...


Eh bé.... je suis impressionné.
Ca fonctionne !! Bravo Wilfried.

J'ai juste du virer les application.screenupdating... ( 🙂 Hervé....)
parce que cette instruction me pollue le plein écran en faisant apparaitre des bandes grises en haut de l'écran... Et ce n'est pas faute d'avoir cherché pourquoi... A ce propos, si tu as une idée sur ce sujet là Wilfried, je suis preneur...


Pour ce qui est du report des couleurs dans le classeur de sauvegarde, ce n'est pas important, et c'est très bien comme cela ...

Un grand merci à tous...
Et si ces 😡 de barres grises en mode plein écran me gachent un peu le plaisir, puisque pour les enlever on voit tourner les feuilles en arrière, je suis très heureux d'en être arrivé là grâce à vous. Merci encore

Gianluca