Sauvegarder un bilan en effacant des données

[François C.]

Bonjour,
Je cherche un moyen de sauvegarder
un bilan que je fais en m'appuyant sur des valeurs d'une feuille1 d'excel
sachant que je souhaiterai remettre cette feuille à 0 tous les jours sans
perdre mon bilan. Est-ce possible si ce bilan est classé en Feuille2 ?
Dois-je le sauvegarder dans un autre fichier ? Comment pourrais-je faire pour
que cela soit automatique (un bouton pour enregistrer le bilan quelque part
puis remettre la feuille1 à 0). Merci d'avance.

 

[Nanard]

Bonjour François,

met l'enregistreur de macro en "marche", copier et coller le bilan dans une autre feuille ensuite tu efface tes données sur ta feuille1,arrête l'enregistreur

attention il faudra modifier le code pour une seconde opération pour ne pas remettre un nouveau bilan sur celui précédement collé !!

Pour ça met le code sur ce fil et on te proposera des solutions

@+

Nanard

 

[François C.]

ChDir "F:\Dir.\C.\C-S"
ActiveWorkbook.SaveAs Filename:=Date
"F:\Dir.\C.\C-S\date.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Voilà le code, moi je souhaiterai qu'à chaque sauvegarde (tous les jours donc à une nouvelle date) le classeur s'enregistre automatiquement avec comme nom la date du jour. Je ne sais pas si c'est possible mais ca éviterai une manipulation qui pourrait être source d'erreurs.

 

[François C.]

De plus mêmé si cela m'enregistre le classeur cela n'efface pas la feuille1.
Désolé pour toutes ces exigeances, je découvre beaucoup de choses avec ce forum et ca entraîne beaucoup de nouvelles questions

 

[François C.]

Sub EnregistrerSauvegarde()
Application.ScreenUpdating = False

With Worksheets("Feuil2") 'Feuille à déterminer
.Copy
End With

Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs Filename:="c:\Sauvegarde\Bilan ", FileFormat:=(Date)
.Close
End With
Application.DisplayAlerts = True

Voici un autre code que j'ai tenté mais il ne se passe rien, pas de fichiers dans c: