Enregistrement incrementé

  • Initiateur de la discussion guillaume
  • Date de début
G

guillaume

Guest
Bonjour,
J'aimerais créer un bouton enregistrement qui m'enregistre ma feuille dans un dossier.
Son nom sera la date du jour, suivi d'un numero incrémenté.
Comment faire, Merci
 
G

guillaume

Guest
Il me trouve une erreur sur : WorkBook.Close

Mon code :


Private Sub CommandButton1_Click()
Dim DocName As String
DocName = Format(Now, "yyyy mm dd hh mm ss")

ActiveWorkbook.SaveAs Filename:="Z:\Services\SCA\SAV\Hotline\Planification intervention\sauvegardes\" & DocName


ActiveWindow.SelectedSheets.PrintOut

Workbook.Close


End Sub
 
@

@Christophe@

Guest
Re

Et je devine déjà ta prochaine question, comment faire pour éviter que le message Voulez enregistré les modif, OUI, NON apparaisse

Rire, ai je raison ou pas,

Tu as deux possibité

1/

Tu ajoute ceci a la fin de ton code

Application.displayalerts = False
ThisWorkbook.close
Application.displayalerts = True


2/
Ou alors tu modifie par:

ThisWorkbook.close Savechanges:=True 'pour fermer avec enregistrement

ou ThisWorkbook.close Savechanges:=False 'pour fermer sans enregistré

Voila, rire

Bonne journée

@Christophe@
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO