Re: Numérotation automatique | ||
---|---|---|
Inscription: 23/05/2008
Messages:
3
Système d'exploitation: PC Version Excel utilisée: 2002 |
Posté le : 23-05-2008 17h15
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 |
|
|
Numérotation automatique | ||
---|---|---|
Inscription: 23/05/2008
Messages:
3
Système d'exploitation: PC Version Excel utilisée: 2002 |
Posté le : 23-05-2008 14h56
Bonjour,
Je fais les factures de mon mari sous excel, quand j'étais sous excel 97 j'avais fait une macro qui me permettait la numérotation automatique, mais hélas elle ne fonctionne pas avec excel 2002 et 2007. Pouvez vous m'aider à modifier ou à créer une nouvelle macro ? merci par avance. Lunécume |
|
|