Archiver feuille

[roro69]

Bonjour ;et merci d'avance de l'aide que vous pourrez m'apporter.

Donc;j'ai dans un premier classeur une feuille "F1";je voudrais que lorsque je quitte mon classeur cette feuille soit sauvegardée dans mon classeur "archive"(Ce classeur;déjà cré; est placé dans le même repertoire que celui utilisé par ma feulile "F1")et que cette nouvelle feuille prenne comme nom la date du jour(dd/mm/aa); et donc que cette nouvelle feuille vienne s'ajouter jour après jour.


Merci pour le temps consacré

 

[wilfried_42]

Re : Archiver feuille

Bonjour

Excel 2003 : Tu es limité à 255 feuilles soit 255 Jours, es tu certain de vouloir continuer dans cette voie ?

 

[roro69]

Re : Archiver feuille

Bonjour;
Oui j'aimerais continuer dans cette direction car en fait je rempli mon tableau ;que 150 fois par an.
Merci pour les réponses

 

[Guest]

Re : Archiver feuille

Bonsoir Roro69,
Wilfried🙂,

Dans le module de code de ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim wb As Workbook
 
    If Dir(ThisWorkbook.Path & "\archive.xls") <> "" Then
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\archive.xls")
        Sheets("F1").Copy After:=wb.Sheets(wb.Sheets.Count)
        wb.Sheets("F1").Name = Format(Date, "dd_mm_yy")
        wb.Save
        wb.Close
    End If
End Sub

Le classeur destination s'appelle ici archive.xls à remplacer par le nom de ton fichier
Un nom de feuille ne peut pas contenir de /. J'ai remplacé par _

A+

 

[roro69]

Re : Archiver feuille

Bonsoir HASCO
Tout mes remerciements pour ta réponses.
Mais j'ai une erreur 91 sur cette ligne:

Sheets("F1").Copy After:=wb.Sheets(wb.Sheets.Count)

Merci pour le temps passé

 

[wilfried_42]

Re : Archiver feuille

re:, bonjour Hasco 😉

pas tres rapide le wil aujourd'hui
à essayer

Sheets("F1").Copy Wb.sheets.add After:=wb.Sheets(wb.Sheets.Count)

question :

peux tu avoir plusieurs enregistrements le meme jour ?

 

[Guest]

Re : Archiver feuille

Re,

Es-tu sûr d'avoir une feuille nommée F1 dans ton classeur?

Chez moi cela fonctionne correctement. Ci-joint les deux classeurs sur lesquels j'ai fait les tests. Avec petit supplément pour tester si la feuille existe déjà dans le classeur archive.xls

A+

 

[roro69]

Re : Archiver feuille

Re ;wilfried et hasco;
En fait mon fichier est une gestion des entrées sorties produits alimentaire journaliers;
;voilà quand j'ai fini de faire mes entrées et sorties je voudrais pouvoir sauvegarder le stock du jour pour y revenir si besoin ; donc je pourrai archiver ma feuille qu'un fois par jour.
Merci beaucoup

 

[ezrielle]

Re : Archiver feuille

Excusez moi de m'intégrer dans votre discussion mais j'ai un peu ce genre de probleme. j'ai un devis que je souhaiterai archiver une foi rempli voir meme si poss l'enregistrer sous format pdf " J'imagine que dans un nouveau classeur se serait mieux du moins plus partique apparamment!
Avec un nom de feuille corrspondant ou nom du fournisseur ou au numéro du devis.

Si vous pouviez m'aider à résoudre ce probleme se serait genial !

Surtout qu'après il faut que je réussisse à transférer les données de mon devis dans un tableau correspondant à la catégorie de fournisseur !

En gros ca me permettrai déjà d efaire un grand pas!
MErci bp
Mathilde

 

[Guest]

Re : Archiver feuille

Bonsoir EzRiel,

Ouvre un nouveau fil pour ton problème qui apparement n'est pas le même que celui discuté ici.

A+

 

[roro69]

Re : Archiver feuille

Re bonsoir Hasco
Tout mes remerciements ;çà marche à merveille;comme tu le disais j'avais un chtiot problème de Nom de feuille .
Merci beaucoup

 

[ezrielle]

Re : Archiver feuille

Ok merci qd meme je pensais que tu pourrais m'aider egalment !

COntente pour toi roro69
Bonne soirée

 

[Guest]

Re : Archiver feuille

Re Ezriel,

je pensais que tu pourrais m'aider egalment !

Il me semble ne pas avoir refusé de t'aider, simplement il est préférable de créer ton propre fil, la formulation de ta demande n'étant pas la même que celle de notre ami Roro69. Chaque cas est particulier.

Moi ou un des nombreux participant à ce forum pourra t'aider.
Ceci dis, je vais pas tarder à me mettre à table.

Va faire un tour du côté de la Lien supprimé

A+ de te lire

 

[roro69]

Re : Archiver feuille

RE
Je reviens juste pour un petit problème:
Si je lance la procédure du Workbook_BeforeClose la macro marche
Par contre si je met la procédure dans un module et que je lance la macro depuis un bouton çà ne marche pas
Si vous aviez la soluction se serait gentil.Merci d'avance

 

[Guest]

Re : Archiver feuille

Re roro69,

Ci-Joins les deux fichiers.

Tu verras que le bouton est copié en même temps que la feuille ainsi que le code associé.

La macro supprime le bouton mais pas son code.

Pour cela, si personne ne résoud le problème d'ici là, je le ferai demain.


A+