Hello flobat,

Excuse-moi, je vois seulement maintenant ton message.

Pour activer Before_Close :

- Va dans VBA
- Dans l'Explorateur de Projets, double-clique sur ThisWorkbook La partie droite qui s'affiche est surmontée de deux boites à listes : Général et Déclarations

- Dans Général, clique sur Workbook, puis...
- Dans Déclarations clique sur Before_Close

Et là tu mets le contenu de ta macro.

Bonsoir Armojax,

Je te remercie pour ton aide, j'ai trouvé la macro BeforeClose et je l'ai testée. Elle fonctionne très bien avec Fichier Enregistrer, mais lorsque j'utilise Fichier Enregistrer Sous, mon numéro s'incrémente après fermeture du fichier, mais pas à la réouverture de mon modèle. Je comprend la procédure puisque le modèle lui-même n'est pas enregistré (je lui donne un autre nom).

Peut-être existe-t-il une autre macro qui puisse me permettre d'utiliser Fichier Enregistrer Sous tout en incrémentant mes numéros ?
Merci de me donner ton avis.

Hello flobat,

Le plus simple (?) me semble de stocker à part le numéro de facture.

Dans l'exemple ci-dessous, j'utilise un petit classeur IncrémentFacture dans lequel je stocke, à la fermeture du classeur, le numéro de facture incrémenté.

Ensuite, à l'ouverture, on va y chercher le numéro en question.
De cette façon, quel que soit le fichier qu'on ouvre (le modèle ou bien un enregistrement sous...), on obtient toujours le bon numéro.

Le code n'est pas condensé. On peut simplifier en donnant des noms, etc.

Si quelqu'un a mieux, je suis preneur.

Private Sub Workbook_Open()

  Application.ScreenUpdating = False

  Dim CeClasseur As Workbook
  Dim SaveNofact As Workbook
  
  Workbooks.Open Filename:="D:\Forums_CCM\IncrémentFacture.xls"
  Set SaveNofact = ActiveWorkbook
  Set CeClasseur = ThisWorkbook
  
  CeClasseur.Sheets("Feuil1").Cells(1, 1).Value = SaveNofact.Sheets("Feuil1").Cells(1, 1).Value
  SaveNofact.Close

  Application.ScreenUpdating = True
  
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

  Application.ScreenUpdating = False

  Dim CeClasseur As Workbook
  Dim SaveNofact As Workbook
  
  Workbooks.Open Filename:="D:\Forums_CCM\IncrémentFacture.xls"
  Set SaveNofact = ActiveWorkbook
  Set CeClasseur = ThisWorkbook
  
  CeClasseur.Sheets("Feuil1").Cells(1, 1).Value = CeClasseur.Sheets("Feuil1").Cells(1, 1).Value + 1
  SaveNofact.Sheets("Feuil1").Cells(1, 1).Value = CeClasseur.Sheets("Feuil1").Cells(1, 1).Value
  
  SaveNofact.Close True

  Application.ScreenUpdating = True
  
End Sub

Re-bonjour,

Tu peux rechercher dans l'éditeur VBA avec la fonction recherche.

Sinon pour savoir si le problème vient de là, ouvre ton fichier en appuyant sur la touche "Shift" du clavier. Quand on fait ça et qu'il existe une macro auto_open, celle-ci n'est pas exécutée à l'ouverture du fichier.

Si en ouvrant ton fichier de cette façon, tu ne retrouve toujours pas le dernier numéro avant enregistrement, c'est que le problème ne vient pas d'une macro auto_open.

Cordialement

Sergio