GNT sans publicité, site mobile, fonctionnalitées exclusives...

Sauvegarder un bilan en effacant des données

Le
Kickback
Bonjour,
Je débute un peu sur excel, j'espère que ma question n'a pas déjà été
traitée mais je ne la trouve pas ailleurs. 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.
Lire les 6 réponses

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #1963985
Bonjour Kickback,

Une suggestion ....

Tu te crées un répertoire que tu appelles : "Sauvegarde"

Cette sub va enregistrer ton fichier dans le répertoire choisi
sous le nom de Bilan + la date du jour
à chaque fois que tu enregistreras, Attention, il écrase le fichier antérieur (de la journée). Si tu as besoin
d'enregistrer plusieurs fois des copies différentes, ajoute les heures minutes et secondes au nom de ton fichier via la
fonction Format.

Évidemment, tu peux décider d'un autre processus pour l'appellation de tes fichiers ...!

'------------------------------
Sub EnregistrerSauvegarde()
Application.ScreenUpdating = False

With Worksheets("Feuil1") 'Feuille à déterminer
.copy
' faudrait ajouter quelques lignes de code
'pour supprimer seulement les datas de ta feuille
End with

Application.DisplayAlerts = False
With activeworkbook
.saveas "c:SauvegardeBilan " & format(date("DD-MM-YY")" & ".xls"
.close
end with
Application.DisplayAlerts = true
'------------------------------

*** Non tester

Salutations!

"Kickback"
Bonjour,
Je débute un peu sur excel, j'espère que ma question n'a pas déjà été
traitée mais je ne la trouve pas ailleurs. 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.
Kickback
Le #1967981
Merci de la réponse, visiblement cette ligne :

& format(date("DD-MM-YY")" & ".xls"

ne fonctionne pas.


"MichDenis" wrote:


Bonjour Kickback,

Une suggestion ....

Tu te crées un répertoire que tu appelles : "Sauvegarde"

Cette sub va enregistrer ton fichier dans le répertoire choisi
sous le nom de Bilan + la date du jour
à chaque fois que tu enregistreras, Attention, il écrase le fichier antérieur (de la journée). Si tu as besoin
d'enregistrer plusieurs fois des copies différentes, ajoute les heures minutes et secondes au nom de ton fichier via la
fonction Format.

Évidemment, tu peux décider d'un autre processus pour l'appellation de tes fichiers ...!

'------------------------------
Sub EnregistrerSauvegarde()
Application.ScreenUpdating = False

With Worksheets("Feuil1") 'Feuille à déterminer
.copy
' faudrait ajouter quelques lignes de code
'pour supprimer seulement les datas de ta feuille
End with

Application.DisplayAlerts = False
With activeworkbook
.saveas "c:SauvegardeBilan " & format(date("DD-MM-YY")" & ".xls"
.close
end with
Application.DisplayAlerts = true
'------------------------------

*** Non tester

Salutations!

"Kickback"
Bonjour,
Je débute un peu sur excel, j'espère que ma question n'a pas déjà été
traitée mais je ne la trouve pas ailleurs. 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.





MichDenis
Le #1967980
Oui tu as raison, j'ai omis une virgule + une parenthèse en trop

& format(date,"DD-MM-YY") & ".xls"

Salutations"


"Kickback"
Merci de la réponse, visiblement cette ligne :

& format(date("DD-MM-YY")" & ".xls"

ne fonctionne pas.


"MichDenis" wrote:


Bonjour Kickback,

Une suggestion ....

Tu te crées un répertoire que tu appelles : "Sauvegarde"

Cette sub va enregistrer ton fichier dans le répertoire choisi
sous le nom de Bilan + la date du jour
à chaque fois que tu enregistreras, Attention, il écrase le fichier antérieur (de la journée). Si tu as besoin
d'enregistrer plusieurs fois des copies différentes, ajoute les heures minutes et secondes au nom de ton fichier via
la
fonction Format.

Évidemment, tu peux décider d'un autre processus pour l'appellation de tes fichiers ...!

'------------------------------
Sub EnregistrerSauvegarde()
Application.ScreenUpdating = False

With Worksheets("Feuil1") 'Feuille à déterminer
.copy
' faudrait ajouter quelques lignes de code
'pour supprimer seulement les datas de ta feuille
End with

Application.DisplayAlerts = False
With activeworkbook
.saveas "c:SauvegardeBilan " & format(date("DD-MM-YY")" & ".xls"
.close
end with
Application.DisplayAlerts = true
'------------------------------

*** Non tester

Salutations!

"Kickback"
Bonjour,
Je débute un peu sur excel, j'espère que ma question n'a pas déjà été
traitée mais je ne la trouve pas ailleurs. 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.





Kickback
Le #1967976
Je n'y arrive toujours pas, la phrase apparait en rouge et semble bloquer sur
le & : application à nommer.
De plus rien n'apparait dans le fichier sauvegarde. Désolé de poser autant
de difficultés...
Starwing
Le #1967975
Essaie ceci:

.SaveAs "c:SauvegardeBilan " & Format(Date, ("DD-MM-YY")) & ".xls"

--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing

--
"Kickback" news:
Je n'y arrive toujours pas, la phrase apparait en rouge et semble bloquer
sur

le & : application à nommer.
De plus rien n'apparait dans le fichier sauvegarde. Désolé de poser autant
de difficultés...


Publicité
Suivre les réponses
Poster une réponse
Anonyme