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

 

[@Christophe@]

Bonjour Quillaume,

Voici a mon avis ce que tu cherches, tient moi au courant, je t'envoi un fichier par mail pour ne pas surcharger le forum

@Christophe@

 

[nanor]

salut Guillaume, salut @Christophe@ et salut le forum,

@Christophe@ peux-tu me mailer ton fichier stp? Pour la date je sais faire mais pour le nombre incrémenté, ca m'intéresse de savoir.

merci d'avance

nanor

 

[@Christophe@]

Re

Ben Nanor, c'est parti, lol

Bonne journée

@Christophe@

 

[nanor]

re-

Merci @Christophe@, bien reçu.

nanor

 

[guillaume]

Merci,
L'enregistrement avec la date marche. Mais je ne peut pas enregistrer plusieurs fois la meme feuille le meme jour.
Il faudrait un nombre qui s'incremente apres la date pour le nom du fichier.

 

[guillaume]

Et au lieu de mettre un chiffre incrementé, je peut mettre l'heure et les minutes?
Ex : 200312031435

 

[jpierre]

salut christophe,

peux tu svp,m'envoyer aussi ce fichier

merci par avance

jpierre

 

[nanor]

Aller, un ptit effort guillaume,

Tu as juste cette ligne à modifier dans "Feuil1":
DocName = Format(Date, "yyyy") & Format(Date, "mm") & Format(Date, "dd") & Cells(1, 1)

Aller je t'aide, ca donne:
DocName = Format(Now, "yyyy mm dd hh mm ss")


A+
nanor

 

[nanor]

re-

ActiveWorkbook.SaveAs Filename:="C:\le chemin\que je veux\" & DocName & ""

nanor

 

[@Christophe@]

Bonjour

Merci d'avoir pris le relay Nanor, c'est parfait.

Bonne journée

@Christophe@

 

[@Christophe@]

Re

PS, comme a mon avis la version de Nanor vas donnée des espaces et que je ne sais pas si il sont désire, modifie par le code suivant, cela devrait marché:

DocName = Format(Date, "yyyy") & Format(Date, "mm") & Format(Date, "dd") & Format(Now, "hh") & Format(Now, "mm")

@Christophe@

 

[guillaume]

Les espaces m'arranges. Merci a tous.

 

[guillaume]

Serait t'il possible qu'apres l'enregistrement de mon document, celui-ci s'imprime (sur l'imprimante par defaut) et se ferme.
Merci

PS : vous avez du remarquer que je ne suis pas tres boen en programmation sous excel mais j'achete un bouquin des ce week-end, si vous avez des livres a me conseiller.

 

[nanor]

Ajoute

ActiveWindow.SelectedSheets.PrintOut
WorkBook.Close

nanor