Archivage de données

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion gianluca
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
gianluca

gianluca

XLDnaute Occasionnel
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
Cliquez pour agrandir...



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
 
Trier par date Trier par votes
Re : Archivage de données

bonjour gianluca


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 ?
Cliquez pour agrandir...

Selection.Copy
Workbooks(fichier).select
sheets("Exercice 2007").select
range("A" & cstr(range("A65000").end(xlup).row + 1)).select
selection.paste
workbooks(1).select ' Reselectionne le 1er fichier ouvert
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Archivage de données

Re everybody....


Heu... me revoilou...

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 & "\" & FichierS)
'Création feuille exercice
Workbooks(FichierS).Sheets.Add after:=Worksheets(Worksheets.Count)
Workbooks(FichierS).ActiveSheet.Name = "Exercice 2007"
'Recopie des feuilles agents
Workbooks(FichierO).Activate
For i = 6 To Workbooks(FichierO).Sheets.Count
FeuilleActive = Sheets(i).Name
Sheets(FeuilleActive).Select
Derligne = Range("A65536").End(xlUp).Row
Range("A2:O" & Derligne).Select
ici j'ai une erreur d'execution 1004 - erreur définie par l'application ou par l'objet
Selection.Copy
Workbooks(FichierS).Activate
Sheets("Exercice 2007").Select
Range("A" & CStr(Range("A65000").End(xlUp).Row + 1)).Select
Selection.Paste
Workbooks(FichierO).Activate
Next i
Workbooks(FichierS).Close savechanges:=True
Cliquez pour agrandir...

Y'a un schmilblick 🙂

A l'aide les amis !!! 😀
 
Vote positif 0 Vote négatif
Re : Archivage de données

Bonjour Hervé, Re Wilfried et le forum...


J'ai essayé avec select mais cela me génère une erreur 438 (propriét non gérée par cet objet) alors que activate marche.

en fait, pour les deux workbooks(FichierO).activate, je selectionne Origine avant le for i, je traite la feuille i, dans le traitement j'appelle Sauvegarde pour coller les données de la feuille i et je réappelle Origine pour continuer la boucle. C'est pas comme cela ?

Quand je vais en pas a pas je m'aperçois que Derligne me renvoie 1 alors que ce devrait etre 10.... ne serait-ce pas la source de l'erreur ?


Je peux vous envoyer le fichier (Hervé tu connais déjà... lol) mais par mail peut être.

A vous lire les amis...
 
Vote positif 0 Vote négatif
Re : Archivage de données

Houhou

J'ai mis un lien pour le fichier, ou met un lien avec ta nouvelle macro sur le même site.

A plus

P.S. SUr Vista, le fichier ne se met pas en plein écran
icon8.gif


Heureusement, je suis sous 2000 Pro

Je regarde
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Archivage de données

Re le fil...


J'avance dans la macro....

elle plante maintenant quand je veux copier la selection...

'Ouverture du classeur de sauvegarde
Workbooks.Open (ThisWorkbook.Path & "\" & FichierS)
'Création feuille exercice
Workbooks(FichierS).Sheets.Add after:=Worksheets(Worksheets.Count)
Workbooks(FichierS).ActiveSheet.Name = "Exercice 2007"
'Recopie des feuilles agents
Workbooks(FichierO).Activate
For i = 6 To Workbooks(FichierO).Sheets.Count
FeuilleActive = Sheets(i).Name
Sheets(FeuilleActive).Select
Derligne = Sheets(FeuilleActive).Range("A65536").End(xlUp).Row
Sheets(FeuilleActive).Range("A2:O" & Derligne).Select
Selection.Copy
Workbooks(FichierS).Activate
'Sheets("Exercice 2007").Select
DerligneDestination = Sheets("Exercice 2007").Range("A65536").End(xlUp).Row
Selection.Paste Destination:=Sheets("Exercice 2007").Range("A" & DerligneDestination).Select

Workbooks(FichierO).Activate
Next i
Workbooks(FichierS).Close savechanges:=True
Cliquez pour agrandir...


Pas simple tout cela.... 😛
 
Vote positif 0 Vote négatif
Re : Archivage de données

Bonjour tout le mode,

Si je peux me permettre de m'immiscer dans le fil 😉

J'ai remarqué Gianluca, dans ta sub : Private Sub CBTFinAnnee_Click()
que tu code la variable "FichierO" en dur !?
Mieux vaut mettre un truc du style
Code: 
FichierO = [COLOR=blue][B]ThisWorkbook.Name[/B][/COLOR]

De plus ce n'est pas "Select" pour un classeur, mais "Activate"
Donc
Code: 
Workbooks(FichierO[B][COLOR=blue]).Activate[/COLOR][/B]

Ensuite, pour la dernière ligne, il faut préciser sur qu'elle feuille tu te trouves :
Code: 
 For i = 6 To Workbooks(FichierO).Sheets.Count
                    FeuilleActive = Sheets(i).Name
                    Sheets(FeuilleActive).Select
                    Derligne = [COLOR=blue][B]ActiveSheet.[/B][/COLOR]Range("A65536").End(xlUp).Row

Et ainsi de suite, il vaux mieux toujours préciser sur quel objet on se trouve, lorsque l'on effectue des actions

A+
 
Vote positif 0 Vote négatif
Re : Archivage de données

Bonjour Bruno, re le fil....


Mais je t'en prie, immisce-toi 😉

Oui je viens de me rendre compte qu'il valait mieux préciser où on se trouve...
merci de tes conseils.

je bugge maintenant pour la copie de la selection.... Mais justement peut être bien qu'excel ne sait plus qu'elle est la selection....

Ah que diable allais-je faire dans cette galère... 😱

Gianluca.
 
Vote positif 0 Vote négatif
Re : Archivage de données

re:

voici le fichier : Fichier c-joint

Pour un gain de temps, aucun select ni activate

j'ai parametré l'année de sauvegarde -> 2007,2008,2009...... en creation de feuille
les boutons etaient copiés aussi, ils sont supprimés de la copie
Un copiage special est fait --> valeur, format, largeur de colonne je n'ai pas trouvé pour les couleurs
le pastespecial est imperatif à cause des formules

bonne journée

Ps : superbe travail les gars
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2019 Boucle For Next and select case
Réponses
2
Affichages
119
dadaze
D
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
570
Chaton77
Chaton77
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
165
CortoXls
C
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
243
xavieralvaro
X
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
359
cdric78
C
M
  • Question Question
Microsoft 365 Mon TCD ne prend pas en compte le filtre de la table auquel il est lié.
Réponses
3
Affichages
113
chris
chris
T
  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
247
cathodique
cathodique
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
218
safranien
S
pompaero
  • Question Question
Microsoft 365 Calcul total horaire entre 1er jour et dernier jour de chaque mois
Réponses
5
Affichages
192
pompaero
pompaero
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
219
Abi23
A
J
  • Question Question
erreur de compilation
Réponses
6
Affichages
162
Jielgé
J
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
862
jebibo
J
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
673
job75
job75
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
548
ph.vanne
ph.vanne
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
510
tnion
T
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
264
StéphaneDeLà
S
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
267
sylvanu
sylvanu
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
142
job75
job75
N
  • Question Question
Microsoft 365 Alimenter une Combo Active X inséré dans une feuille de calcul
Réponses
3
Affichages
277
NONO14
N
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
145
job75
job75
Retour