besions d aide pour creer un bouton de sauvegarde

[nicolas]

bonjour a tous, je suis debutant, mais j essaie de creer un petit logiciel de gestion a la journee.
mes formules fonctionnent , tout va bien, mais je voulais savoir s il existait une solution pour avoir un bouton qui permetrait de tout sauvegarder a la fin de la journee ds un fichier portant le nom:
Sauvegarde du xx/xx/xxxx ( par exemple)
et de ne pas changer mon fichier original vierge, pour recommancer le lendemain

 

[Temjeh]

Bonjour nicolas

Comme tout bon nouveau tu doit d'abbord lire la charte ici:

http://www.excel-downloads.com/html/French/CharteXLD.php

et pour ton code tu peut mettre comme macro

Sub Save_Date()
ThisWorkbook.SaveAs "C:\" & Format(Date, "yyyymmdd") & ".xls"
End Sub

 

[Temjeh]

Moi aussi je doit la relire 😱)

A++

Temjeh

 

[nicolas]

RE merci a tous!!!!
j ai lu la charte..... j espere que j ai pas ete mal poli, ou autre.....;
pour en revenir a mon pb, est ce qu il existe un site ou un forum, ou un bouquin qui parle de excel, des bases de donnees, des macros, parce que j ai deja achete excel pour les nul, 1001 applications excel etc, mais a chaques fois il s agit simplement de formulles prefaites ou de mise en page.
moi j ai besoin de choses comme:
-creer un bouton ,ds un classeur ,qui sauvegarde tout automatiquement( ds certain fichiers)
-sauvegarder certaine entree d un classeur pour les utiliser dans un autre.
Enfin creer son propre logiciel quoi.
si vous pouvez m aider, merci, sinon, desole de vous avoir derange

 

[michel]

bonjour Nicolas , bonjour Temjeh


tu peux en autre utiliser la base de connaissances du forum Excel Downloads:
en utilisant les mots clés appropriés pour tes recherches , les 3 liens ci-dessous te permettont d'obtenir de nombreux exemples de macros , issus du forum XLD

https://www.excel-downloads.com/search/

Lien supprimé

Lien supprimé


tu peux aussi visiter ces pages ( il faut relancer une 2eme fois les liens , si un message d'erreur s'affiche )

Lien supprimé

Lien supprimé

https://www.excel-downloads.com/threads/ref-wiki-1-de-michelxld-generalites-excel.92356/


sur XLD il y a aussi une zone de téléchargement par themes , avec de nombreux exemples prêt à l'emploi

Lien supprimé



pour ta question specifique dans ce fil de discussion
cette methode te permet de sauvegarder ton fichier principal et d'en faire une copie de sauvegarde

Sub enregistrer()
'enregistrement modifications du classeur principal
ThisWorkbook.Save
'et copie de sauvegarde dans un dossier specifique
ThisWorkbook.SaveCopyAs Filename:="C:\Documents and Settings\michel\excel\sauvegarde du " & Format(Date, "yyyy mm dd") & ".xls"
End Sub

en piece jointe tu trouveras un descriptif pour Créer un CommandButton dans la feuille et lui affecter une macro


bonne journée
MichelXld

 

[nicolas]

re bonjour et merci a tous, tout fonctionne parfaitement, c est geniale.
si j osais encore juste une petite question:

est il possible que lorsque j appuis sur mon bouton de sauvegarde, une fenetre s ouvre pour me demander le nom de la sauvegarde souhaitee
( je n entre pas toujour mes donnees le jour meme)
et enfin est il possible de desactiver ds excel la demande de sauvegarde qui se fait quand on quitte.

de toute facon je voulais vous remercier pour votre aide, il est rare de trouver
un site aussi competant

merci

 

[michel]

bonjour Nicolas

pour afficher la boite de dialogue enregistrer sous

Private Sub CommandButton1_Click()
'boite de dialogue enregistrer sous
Application.Dialogs(xlDialogSaveAs).Show
End Sub



pour fermer le classeur actif sans sauvegarde ni message

Sub fermerSansSauver()
'fermer le classeur actif sans sauvegarde
ActiveWorkbook.Close False
End Sub


fermer le classeur actif avec sauvegarde et sans message

Sub SauverEtFermer()
'fermer le classeur actif avec sauvegarde
ThisWorkbook.Close True
End Sub


si tu souhaites que cette action soit effectuée automatiquement lors de l'utilisation de la croix de fermeture du classeur,tu peux inserer cette macro au niveau de ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
fermerSansSauver
'ou
'SauverEtFermer
End Sub



bonne journée
MichelXld