Enregistrement incrementé

@

@Christophe@

Guest

• 12 Mars 2003

• #2

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@

 

Vote positif 0 Vote négatif

N

nanor

Guest

• 12 Mars 2003

• #3

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

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 12 Mars 2003

• #4

Re

Ben Nanor, c'est parti, lol

Bonne journée

@Christophe@

 

Vote positif 0 Vote négatif

N

nanor

Guest

• 12 Mars 2003

• #5

re-

Merci @Christophe@, bien reçu.

nanor

 

Vote positif 0 Vote négatif

G

guillaume

Guest

• 12 Mars 2003

• #6

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.

 

Vote positif 0 Vote négatif

G

guillaume

Guest

• 12 Mars 2003

• #7

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

 

Vote positif 0 Vote négatif

J

jpierre

Guest

• 12 Mars 2003

• #8

salut christophe,

peux tu svp,m'envoyer aussi ce fichier

merci par avance

jpierre

 

Vote positif 0 Vote négatif

N

nanor

Guest

• 12 Mars 2003

• #9

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

 

Vote positif 0 Vote négatif

N

nanor

Guest

• 12 Mars 2003

• #10

re-

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

nanor

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 12 Mars 2003

• #11

Bonjour

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

Bonne journée

@Christophe@

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 12 Mars 2003

• #12

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@

 

Vote positif 0 Vote négatif

G

guillaume

Guest

• 12 Mars 2003

• #13

Les espaces m'arranges. Merci a tous.

 

Vote positif 0 Vote négatif

G

guillaume

Guest

• 13 Mars 2003

• #14

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.

 

Vote positif 0 Vote négatif

N

nanor

Guest

• 13 Mars 2003

• #15

Ajoute

ActiveWindow.SelectedSheets.PrintOut
WorkBook.Close

nanor

 

Vote positif 0 Vote négatif