Numérotation sur un seul fichier

[gerard55]

Bonjour à tous
Le code ci-dessous élaboré avec le concours de CCPAPY, DAN et CARCHARIAS que je remercie permet d'incrémenter de 1 le n° de bon de commande.
Le problème c'est que ce document est une matrice. J'enregistre alors ce document sous un autre nom. Il ne faudrait pas que le code fonctionne sur le nouveau document créer.
Que dois rajouter pour que ça fonctionne uniquement sur la matrice.

Private Sub Workbook_BeforeClose(cancel As Boolean)
Sheets("matrice").Activate
Range("A1").Select
ActiveCell.value=ActiveCell.value+1
ThisWorkbook.Save
End sub

Merci pour votre aide
à +

 

[jp14]

Re : Numérotation sur un seul fichier

Bonsoir

Une piste

Au lieu d'enregistrer un classeur on peut enregistrer une feuille du classeur.
Fonction "déplacer ou copier"
"Dans le classeur" sélectionner "nouveau classeur"

JP

 

[Dan]

Re : Numérotation sur un seul fichier

Bonsoir,

Il fait préciser les choses suivantes :
- La sauvegarde se fait avant ou après l'incrémentation
- Veux-tu choisir ton répertoire de sauvegarde du nouveau classeur ou le fais-tu toi même
- veux-tu donner un nom à ta sauvegarde et si oui, lequel ?

Dans ta macro, tu peux utiliser cette instruction après l'activation de la feuille matrice :

Private....
SHEETS("MATRICE").COPY
Thisworkbook.Sheets("matrice").Activate
....

A te lire