Rapport de message :*
 

Re: Numérotation automatique

Titre du sujet : Re: Numérotation automatique
par Lunécume le 23/05/2008 17:15:50

Merci beaucoup pour la rapidité de ta réponse, c'est super sympa.

j'ai essayé cela marche pas, cela me numérote les classeurs.
pour plus d'information j'ai crée un modéle de facture, et c'est la cellule I6 que je numérote.
voila la macro qui fonctionne avec excel 97 mais pas avec excel 2007
_____________________________________________________________________
Private Sub Workbook_Open()
If ActiveWorkbook.Path = "" Then
[numFact] = [numFact] + 1
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveCopyAs (Application.TemplatesPath & "Fact.xlt")
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
chemXlt = Application.TemplatesPath & "Fact.xlt"
If ActiveWorkbook.Path = "" Then
Set wbk = Workbooks.Open(chemXlt)
With wbk.ActiveSheet
.Range("NumFact") = .Range("NumFact") - 1
End With
wbk.Close True
End If
End Sub
___________________________________________________________________
En sachant que fact.xlt est mon modéle de facture.

Encore merci Lunécume