archiver une situation journalière Fermé

Question

Bonjour ! Mon tableau excel est indexé sur une cellule AUJOURDHUI(). Il est donc évolutif et enregistre un changement journalier.
je voudrai conserver automatiquement une situation journalière de ce tableau et l'archiver ...
COMMENT ON FAIT ?
Merci.

Vaucluse · Answer

Bonjour
au plus simple:
clic droit sur l'onglet, créer une copie de la feuille
sélectionner la feuille complète (curseur dans le petit carré à gauche de la règle des colonnes)
clic droit / copier / collage spécial "valeurs"
le tableau ne comprendra plus de formule et sera donc figé
Ca peut se faire en VBA via un bouton 
crdlmnt

via55 · Answer

Bonjour

Si tu veux que cela se fasse de façon automatique il faut passer par une macro
Mais il faut savoir :
- quelles données enregistrer (une feuille, extraction d'une feuille...),
-  sous quel nom 
-  et surtout ce qui va déclencher la macro (l'écriture dans une cellule particulière, la fermeture du classeur ...)

Pour bâtir une macro il faut ces indications et un exemple de ton fichier que tu postes sur mon-partage.fr, tu fais créer un lien que tu copies et reviens coller ici

Cdlmnt
Via

via55 · Answer

Ton tableau est indexé sur une cellule avec AUJOURDHUI() qui s'actualise donc chaque jour, le passage au jour suivant ne semble pas indiqué pour lancer la macro d'archivage.
Le mieux c'est quand le tableau du jour a été complété donc soit la macro sera lancée automatiquement lorsqu'on remplit une certaine cellule ou lorsqu'on ferme le classeur soit lancée manuellement à partir d'un bouton sur la feuille comme suggère Vaucluse

Mais si tu veux de l'aide il faut nous envoyer une copie de ton fichier

Lenulenexcel · Answer

Salut Via55. Merci. Donc OK pour t'envoyer une copie du fichier en question.
Peux tu m'indiquer la marche à suivre STP ?

via55 · Answer

Tu vas sur le site : ttps://mon-partage.fr
Tu choisis ton fichier puis tu le fais uploader et ensuite tu copies le lien en bleu qui s'affiche et reviens le coller ici
Dans l'attente

Lenulenexcel · Answer

https://mon-partage.fr/f/utRGKOR7/
Voilà môssieur !
Faudra me dire quand même comment on fait !!!
Merci

via55 · Answer

OK bien reçu
Mais tu ne dis pas quelles données doivent être conservées
ni si tu veux un archivage à la fermeture du classeur ou à l’appui sur un bouton
ni sous quel nom tu veux archiver

Dans l'attente

Lenulenexcel · Answer

Ok pardon. 
Le mot de passe est : neant 

Et oui,  le savoir c’est l’immagination d’hier et l’immagination c’est le savoir de demain...

via55 · Answer

Re

Avec le bouton ça dysfonctionne pour l'enregistrer en tant que classeur sans macro donc j'ai pris l'option d'archiver avec la raccourci clavier Ctrl+a
https://mon-partage.fr/f/wBzgFsbd/

En espérant que cela te conviendra

Lenulenexcel · Answer

Salut Messieurs Vaucluse et Via.
OK j,'ai retrouvé mon fichier !
Bon je viens de faire un test en mettant mon ordinateur à la date de demain et malheureusement, le fichier archivé a actualisé lui aussi comme le fichier source. donc c'est pas tout à fait ça encore.
Je constate que le fichier archivé contient toutes les formules et reste donc actif.
Vous disez koi ?

via55 · Answer

Re

Ok alors au lieu d'enregistrer un fichier est qu'un enregistrement de la feuille en PDF suffirait ?
En ce cas remplacer la macro par celle-ci :
Sub archives()
chemin = Workbooks(ActiveWorkbook.Name).Path
derligne = Application.WorksheetFunction.CountA(Range("B:B"))
ligne = Application.WorksheetFunction.Max(26, derligne)

Range("C1:V" & ligne).Select
    ActiveSheet.PageSetup.PrintArea = "$C$1:$V" & ligne
    nomcomplet = chemin & "\Archive_" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        nomcomplet, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

MsgBox "PDF archivé"
End Sub
 Cdlmnt
Via

via55 · Answer

En principe non
Mon fichier qui fonctionne : 
https://www.cjoint.com/c/HJrsvTFHuJ8

Par le raccourci Ctrl+a (mais là on pourrait sans doute mettre un bouton)

Lenulenexcel · Answer

Bonjour Via55
ok je vois que c'est tout à fait ce dont j'ai besoin.
Activer l'opération par Ctrl+a me convient parfaitement.
J'ai juste le soucis de lui faire avaler la Macro : il refuse de dépasser la ligne 9 ???
je réessaye ce matin pour voir et je tiens informé  
En tout cas Merci bien.

Lenulenexcel · Answer

Salut Mr Via 
pardon , mais j'ai fait un copier coller de la macro que tu m'envoies ci dessus en remplacement de celle que tu as installée au départ mais quand je fait Ctrl+a, ca m'affiche le dossier Macro avec la partie "indigeste" teintée en jaune et un message comme quoi ça merde. 
Curieux...

via55 · Answer

Re

Envoie moi ton fichier qui bug via le site mon-partage.fr, je regarderai

Cdlmnt
Via

Lenulenexcel · Answer

https://mon-partage.fr/f/SmxcKQL4/
je te renvoie le fichier d'origine. J'arrive pas à faire télécharger l'autre.
si tu peux y coller la nouvelle macro ?

via55 · Answer

Re

Voilà :
https://mon-partage.fr/f/FaoTwQoh/

Lenulenexcel · Answer

Salut.
Le résultat de la deuxième Macro ne convient pas : on archive que le haut de la feuille. les sauts de pages ne sont pas utiles.
Si je compare l'archivage qu'on obtient avec la première Macro, le résultat est bon sauf que les saisies s'actualisent.ors, je n'ai besoin d'archiver que les colonnes de A à Q. cette sélection exclue donc la cellule qui contient AUJOURDHUI(). 
Est-ce que ça peut fonctionner ?
Merci.

via55 · Answer

Salut

Pour n'archiver que de A à Q et pour que cela tienne sur une seule page en largeur :
https://mon-partage.fr/f/L0NXHcsA/

Par contre je ne comprends pas "les saisies s'actualisent", l'enregistrement étant en PDF il ne peut y avoir d'actualisation ?

Cdlmnt

Lenulenexcel · Answer

oui, je parle des résultats de ta première Macro.
Bon j'essaye avec ce que tu viens de m'envoyer.

Merci.

Archiver une situation journalière

20 réponses

Discussions similaires