Creer un commandbutton enregistrer

Etudiantempc -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aimerais faire pour mon projet en VBA un boutton Enregistrer, il faut savoir que je suis débutant dans ce domaine, pour l'instant j'ai codé ceci : 

Private Sub CommandButton1_Click()

Dim nom As String

nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
     
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
    
Rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")

End Sub


Ce code marche bien, mais j'aimerais que quand je clique une seconde fois sur le boutton enregistrer il sauvegarde 8_06_2015projetexcel2 puis après 8_06_2015projetexcel3.....

J'aimerais si possible aussi que mon enregistrement, enregistre que la feuil1.

Merci pour votre aide ! j'espère avoir était assez clair.

Cordialement
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
Vous devez memoriser la date dans une cellule, au changement de date faire une raz du compteur et memoriser le changement de date
Vous devez memoriser un compteur de saugegarde dans une cellule, a chaque clic sur le bouton incrementer ce compteur
Vous devez creer un nouveau classeur, le nommer et faire une copie de votre feuille vers ce classeur et le clore en le sauvegardant
0
Etudiantempc
 
Je vais essayer cette démarche cela me semble difficile au premier abord mais je vais travailler dessus.
Merci de votre aide.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Etudiantempc
 
Re,

cela me semble difficile Non, vous trouverez des exemples en cherchant un peu sur internet


A+
0