Private Sub Workbook_Open()
Dim num As Integer
Worksheets("Infos").Range("b11").Select
num = Worksheets("Infos").Range("b11").Value
num = num + 1
Worksheets("Infos").Range("b11").Value = num
ActiveWorkbook.Save
End Sub
Pour le moment sa ressemble a sa.
Pour resume, jai ma numerotation qui marche quand jouvre mon document. Après avoir rempli mon devis je l'enregistre sous manuellement.
Je veux juste creer une sauvegarde auto dès que ma numerotation est faite à l'ouverture du document afin que quand je réouvrirai celui-ci pour un autre devis je puisse avoir la nouvelle numerotation qui apparaisse.
J'ai essayé en rajoutant ActiveWorkbook.Save mais j'ai un message d'alerte en fermant excel, alors j'ai cherché en rajoutant Application.DisplayAlerts = false à la fin mais sa ne marche pas..
Je sais pas si j'ai étais clair.
EDIT Je retire tout ce que je viens de dire, la macro marche niquel, j'ai ce que je veux !
Merci .