OVH Cloud OVH Cloud

Sauvegarder un bilan en effacant des données

6 réponses
Avatar
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.

6 réponses

Avatar
MichDenis
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" a écrit dans le message de news:

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.
Avatar
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" a écrit dans le message de news:

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.





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

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

Salutations"


"Kickback" a écrit dans le message de news:

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" a écrit dans le message de news:

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.





Avatar
Kickback
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...
Avatar
Starwing
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" a écrit dans le message de
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...


Avatar
Kickback
Ca marche ! Merci à tous les deux :)

"Starwing" wrote:

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" a écrit dans le message de
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...