Enregistrement incrementé

[guillaume]

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

 

[guillaume]

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@]

Bonjour

Ben quillaume, remplace Workbook.close par:

ThisWorkbook.Close

Cela devrait marché

Bonne journée

@Christophe@

 

[@Christophe@]

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@

 

[guillaume]

Merci a tous,
Je garde l'adresse du site sous le coude.