Microsoft 365 Archivage et Récupération données

eric72 · 11 Juillet 2023

Bonsoir à tous,
Tout d'abord à TooFatBoy pour avoir solutionné un de mes problème, cependant il m'en reste un...
Lorsque je remplis mon planning pour une semaine choisie j'archive ces données dans l'onglet "Archives", par contre quand je rappelle cette semaine, le temps de traitement est long pour récupérer les données.
Vous avez peut-être un code "allégé" pour effectuer cette récupération (je galère)!!!
Merci à tous pour votre aide (comme d'habitude).
Eric

TooFatBoy · 12 Juillet 2023

Gégé-45550 à dit:
Vous pourriez peut-être aussi faire un fichier "modèle" sur 1 an et l'utiliser pour créer une nouvelle archive chaque année.

J'allais dire pareil, mais avec une feuille par année au lieu d'un fichier par année.

Et du coup j'allais demander la quantité maximale d'informations à mémoriser par année.

eric72 · 17 Juillet 2023

Mais du coup la plage fera toujours le même nombre de colonnes puisqu'on en ajoutera autant qu'on en enlèvera, je ne sais pas si c'est bien clair!!!

TooFatBoy · 17 Juillet 2023

eric72 à dit:
Mais du coup la plage fera toujours le même nombre de colonnes puisqu'on en ajoutera autant qu'on en enlèvera, je ne sais pas si c'est bien clair!!!

C'est parfaitement clair.

Il suffit de rechercher la date d'hier moins un an, de supprimer tout ce qui est inférieur ou égal et d'ajouter autant de colonnes que nécessaire.

(ou chercher la date d'aujourd'hui moins un an, et supprimer tout ce qui est strictement inférieur)

eric72 · 17 Juillet 2023

TooFatBoy à dit:
C'est parfaitement clair.

Il suffit de rechercher la date d'hier, de supprimer tout ce qui est inférieur et d'ajouter autant de colonnes que nécessaire.

oui mais ça ne fonctionne pas, je ne trouve pas le code pour ajouter, snifff!!!

TooFatBoy · 17 Juillet 2023

eric72 à dit:
oui mais ça ne fonctionne pas, je ne trouve pas le code pour ajouter, snifff!!!

Je regarderais ce soir et te donnerais un bout de code pour faire ça.

ChTi160 · 17 Juillet 2023

Re
Ça devrait pouvoir ce faire
Tu pars d'une base qui respect ses deux consignes et ensuite en fonction de la dernière date on calcule le delta de Date du jour et date du jour plus 6 mois
Je regarde ce soir si pas de réponse avant
Jean marie
PS : depuis mon téléphone !

eric72 · 17 Juillet 2023

Vous êtes vraiment géniaux , de plus vous contribuez à faire progresser les autres
Merci

TooFatBoy · 17 Juillet 2023

Saurais-tu me dire à quoi servent la plage de données BW8:CC584, stp ?

J'ai bien une petite idée, mais je voudrais être sûr.
Et du coup : pourquoi CC584 et non CC455 ?

eric72 · 17 Juillet 2023

TooFatBoy à dit:
Saurais-tu me dire à quoi servent la plage de données BW8:CC584, stp ?

J'ai bien une petite idée, mais je voudrais être sûr.
Et du coup : pourquoi CC584 et non CC455 ?

Dans "Planning" sauf a avoir les données alignées pour pouvoir les archiver, sinon à rien du tout!!

eric72 · 17 Juillet 2023

mais j'imagine que cela ne sert plus avec ton code Z_archiver, je peux donc le virer?

TooFatBoy · 17 Juillet 2023

eric72 à dit:
Dans "Planning" sauf a avoir les données alignées pour pouvoir les archiver, sinon à rien du tout!!

Oui, pardon, j'ai oublié de préciser la feuille.

Bon, c'est bien ce que je pensais donc, si tu utilises ma proposition de macro pour l'archivage, on doit pouvoir supprimer cette plage de données.

eric72 · 20 Juillet 2023

Bonjour à tous,
je me permets de venir aux nouvelles pour l'ajout de colonnes, je n'arrive pas à trouver de mon côté!!!
Merci et bonne journée
Eric

TooFatBoy · 20 Juillet 2023

Euh... comment dire... ben... je t'ai complètement oublié... Et là, je n'ai pas vraiment le temps.

eric72 · 20 Juillet 2023

TooFatBoy à dit:
Euh... comment dire... ben... je t'ai complètement oublié... Et là, je n'ai pas vraiment le temps.

Je suis plié de rire, pas de souci je comprends, si tu as un moment un de ces jours n'hésite pas.
Bonne journée.

TooFatBoy · 21 Juillet 2023

Une proposition pour les colonnes :

VB:

Sub SupprAjoutColArchives()
'
Dim MaDate As Long, MaColonne As Long, NbColonnes As Long

    With Sheets("Archives")

        MaDate = DateAdd("yyyy", -1, Date)
        MaColonne = Application.Match(MaDate, .Range("2:2"), 0)
        NbColonnes = MaColonne - 4
        If Not IsError(MaColonne) And NbColonnes > 0 Then .Range("D2").Resize(, NbColonnes).EntireColumn.Delete Shift:=xlToLeft

        MaDate = DateAdd("m", 6, Date)
        MaColonne = .Range("B2").End(xlToRight).Column
        NbColonnes = MaDate - .Cells(2, MaColonne).Value
        If NbColonnes > 0 Then
            With .Cells(2, MaColonne + 1).Resize(, NbColonnes)
                .FormulaR1C1 = "=RC[-1]+1"
                .Value = .Value
            End With
        End If

    End With

End Sub

eric72 · 21 Juillet 2023

TooFatBoy à dit:

Une proposition pour les colonnes :

VB:

Sub SupprAjoutColArchives()
'
Dim MaDate As Long, MaColonne As Long, NbColonnes As Long

    With Sheets("Archives")

        MaDate = DateAdd("yyyy", -1, Date)
        MaColonne = Application.Match(MaDate, .Range("2:2"), 0)
        NbColonnes = MaColonne - 4
        If Not IsError(MaColonne) And NbColonnes > 0 Then .Range("D2").Resize(, NbColonnes).EntireColumn.Delete Shift:=xlToLeft

        MaDate = DateAdd("m", 6, Date)
        MaColonne = .Range("B2").End(xlToRight).Column
        NbColonnes = MaDate - .Cells(2, MaColonne).Value
        If NbColonnes > 0 Then
            With .Cells(2, MaColonne + 1).Resize(, NbColonnes)
                .FormulaR1C1 = "=RC[-1]+1"
                .Value = .Value
            End With
        End If

    End With

End Sub

Bonjour TooFatBoy,
J'ai testé ce code et apparemment ça fonctionne nickel, merci d'avoir pu te dégager du temps.
Ca parait si simple!!!
Merci pour tout le boulot réalisé ces derniers jours.

Bonne journée et bon courage.
Eric

Microsoft 365 Archivage et Récupération données

eric72

XLDnaute Accro

Pièces jointes

TooFatBoy

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

eric72

XLDnaute Accro

Discussions similaires