Enregistrement incrementé

[germain]

Bonjour a tous,
Voila mon probleme : je suis en train de creer un fichier excel ( une facture )
et je souhaiterai a lenregistrement que le nom de fichier que je vais enregistrer soit la suite du dernier fichier enregistrer dans mon dossier.

Pour creer une facture jouvre mon fichier excel : Facture
chaque facture sera cree par cette meme feuille donc :
exemple : jai deja creer 20 facture
la facture 1 est appelé 1 , la facture 2 est appelé 2 est etc...
apres avoir cree une centaine de facture on ne sait plus ou lon en est.

Donc je suis obliger de regarder la derniere facture enregistrer par ex : 121
et denregistrer ma derniere facture sous le nom de 122

Comment faire pour automatiser cela pour que lenregistrement a la suite seffectue automatiquement

est ce possible ?

D'avance MERCI

 

[Vériland]

Bonsoir Germain,

Tiens tu peux eventuellement procéder ainsi...

Sub EnregistreSous()
' Vériland
' Pour Germain
' Excel Downloads (http://www.Excel-downloads.com)
Dim Num As Long
Dim NomFichier As String
Num = Range("a1").Value
NomFichier = "Facture_"
With Application
.SendKeys "{TAB} {DOWN 0} ~ {TAB}", True
.Dialogs(xlDialogSaveAs).Show NomFichier & Num
End With
Num = Num + 1
Range("a1").Value = Num
End Sub

cette macro ouvre la boite de dialogue "enregistrer sous" et propose d'enregistrer ta facture avec un numéro incrémenté de 1 à chaque fois éxécution de la macro...chiffre dans la cellule A1...

cela donne : Facture_1...et ainsi de suite

 

[germain]

Merci veriland c pas mal je te remercie