Sauvegarde de feuille dans un nouveau fichier

[laurent45]

Bonsoir le Forum,

Je suis toujours sur mon fichier de caisse, auquel j'ajoute des améliorations.
J'ai trois feuilles : Encaissements (détails des encaissements), Tableau de bord et feuille des caisse cumulées, qui se remplissent mensuellement.

A la fin de chaque mois, ces feuilles sont imprimées et remise à jour pour le mois suivant.

Ce que je recherche, c'est à créer un nouveau classeur intitulé "fin de mois "+Format(date,MMAAAA)--jusque là ça peu aller, mais je souhaite ensuite copier les trois feuilles dans ce nouveau classeur avant de les imprimer et le remettre à jour.

Merci de vos lumières, qui nous permettent toujours d'avancer en VBA.

Laurent

Bonne nuit (ça me portera conseil, peut-être )

 

[Dan]

Re : Sauvegarde de feuille dans un nouveau fichier

Bonsoir,

essaie avec ce code :

Sub Archives()
Dim a As Workbook
' Macro par Dan pour Laurent45 le 05/08/06
Workbooks.Add
Set a = ActiveWorkbook
ThisWorkbook.Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy Before:=a.Sheets(1)
ActiveWorkbook.SaveAs Filename:="fin de mois_" & Format(Now(), "ddmmyy")
End Sub

Si pb n'hésite pas.

 

[JeanMarie]

Re : Sauvegarde de feuille dans un nouveau fichier

Bonsoir

Regarde à la fin de ce fil

@+Jean-Marie

 

[Gorfael]

Re : Sauvegarde de feuille dans un nouveau fichier

Bonsoir le Forum,

Je suis toujours sur mon fichier de caisse, auquel j'ajoute des améliorations.
J'ai trois feuilles : Encaissements (détails des encaissements), Tableau de bord et feuille des caisse cumulées, qui se remplissent mensuellement.

A la fin de chaque mois, ces feuilles sont imprimées et remise à jour pour le mois suivant.

Ce que je recherche, c'est à créer un nouveau classeur intitulé "fin de mois "+Format(date,MMAAAA)--jusque là ça peu aller, mais je souhaite ensuite copier les trois feuilles dans ce nouveau classeur avant de les imprimer et le remettre à jour.

Merci de vos lumières, qui nous permettent toujours d'avancer en VBA.

Laurent

Bonne nuit (ça me portera conseil, peut-être )

Salut à tous
pas envie de passer derrière Dan et JeanMarie pour le code, ferais pas mieux.
C'est juste pour une réflexion (un réfléchissement hein, pas une critique )
Dans ton dossier tu vas avoir
fin de mois 012006
fin de mois 012007
fin de mois 012008
.....
fin de mois 022006
fin de mois 022007 etc.
Serait plus facile d'avoir :
fin de mois 2006-01
fin de mois 2006-02 etc.
Quand t'as 4, 5 fichiers, c'est pas grave, mais quand tu fais une recherche sur une valeur d'un fichier et que tu n'as qu'une vague idée de la date, ça fait toute la différence
A+

 

[laurent45]

Re : Sauvegarde de feuille dans un nouveau fichier

Bonjour le Forum,

Merci à tous de vos réponses.

Désolé Jean-Marie, j'avais vu le fil au-quel tu as participé, mais le titre ne me semblait pas convainquant par rapport à mon pb. Comme quoi, il faut tout lire pour mieux savoir ...

Pour répondre à Gorfael, mon intention est de créer un dossier par année, pour un emeilleure lisibilité. Mais je prends note de ta critique (constructive), pour améliorer encore et encore...

Bon week-end à tous.

Laurent