incrémentation excel

[laure]

bonjour à tous,
je viens de découvrir ce site, et j'aurai besoin de vous!!!
j'utilise excel comme outil de facturation, et je voudrai que mes numéros de factures s'inscrivent automatiquement, donc une incrémentatrion est nécessaire, et j'ai réussi à le faire. Mais le problème que je rencontre c'est que mes factures ne s'enregistrent pas ou du moins à chaque fois que j ouvre ce dossier je reviens sur une page nouvelle.
Comment puis je faire pour qu'à chaque fois que j ouvre le dossier un nouvel onglet s ouvre avec une page neuve et donc un numéro de facture (et que mes anciennes facture soient toujours là).
J'espère que j'ai bien expliqué mon problème.
MERCI D'AVANCE
laure

 

[ziopizza]

Bonjour Laure et le Forum,

ci joint un petit fichier pour une premiere approche.
Une feuille est creé a chaque ouverture,à toi de voir

Yves [file name=factureouverture.zip size=6981]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/factureouverture.zip[/file]

 

[laure]

Merci Yves,
c'est exactement ce que je veux. Pourrais tu m'expliquer comme on fait?
Merci d'avance
LAURE

 

[ziopizza]

Re bonjour Laure et le Forum

Une petite explication sur ce code à mettre dans l'événement
Workboock_Open (pour que cela fonctionne à l'ouverture du classeur)

Private Sub Workbook_Open()

'ici s'ingremente la cellule de la feuille MODELE!b1
Range('MODELE!b1').Value = Range('MODELE!b1').Value + 1

'la variable pointeur prend la valeur de la cellule b1)
pointeur = Range('MODELE!b1').Value
'ici on copie la feuille MODELE
Sheets('MODELE').Copy After:=Sheets(2)
'ici on renomme la copie de la feuille MODELE qui devient
'Facture et la valeur de la variable pointeur

Sheets('MODELE (2)').Name = 'Facture ' & pointeur

End Sub

Yves