NUMEROTATION EXCEL 2010
NININE1953
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'essaie en vain de faire une macro pour numéroter automatiquement (N°facture + 1) à l'ouverture du modèle.
Les macros ne s'activent pas à l'ouverture du modèle et le numéro reste donc le même.
Je voulais ouvrir le modèle qui a donc le nouveau numero de facture, faire la facture et l'enregistrer sous comme d'habitude avec un autre nom de fichier bien sûr pour ne pas changer le modèle , à chaque fois il me dit que-c je dois enregistrer sous excel acceptant les macros, bon est-ce nécessaire car sinon il ne veut pas. Et après j'ouvre à nouveau mon module et le numéro n'a pas changé.
MERCI pour votre aide
J'essaie en vain de faire une macro pour numéroter automatiquement (N°facture + 1) à l'ouverture du modèle.
Les macros ne s'activent pas à l'ouverture du modèle et le numéro reste donc le même.
Je voulais ouvrir le modèle qui a donc le nouveau numero de facture, faire la facture et l'enregistrer sous comme d'habitude avec un autre nom de fichier bien sûr pour ne pas changer le modèle , à chaque fois il me dit que-c je dois enregistrer sous excel acceptant les macros, bon est-ce nécessaire car sinon il ne veut pas. Et après j'ouvre à nouveau mon module et le numéro n'a pas changé.
MERCI pour votre aide
A voir également:
- NUMEROTATION EXCEL 2010
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Clé activation office 2010 gratuit - Télécharger - Sécurité
- Si ou excel - Guide
2 réponses
Bonsoir,
En supposant que le numéro facture est en cellule G5
dans la Thisworkbook colle un de ces deux codes
Private Sub Workbook_Open()
[G5] = [G5] + 1
ActiveWorkbook.Save
End Sub
si tu as plusieurs onglets, nomme l'onglet concerné, exemple pour la Feuil3
Private Sub Workbook_Open()
Sheets("Feuil3").[G5] = Sheets("Feuil3").[G5] + 1
ActiveWorkbook.Save
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
En supposant que le numéro facture est en cellule G5
dans la Thisworkbook colle un de ces deux codes
Private Sub Workbook_Open()
[G5] = [G5] + 1
ActiveWorkbook.Save
End Sub
si tu as plusieurs onglets, nomme l'onglet concerné, exemple pour la Feuil3
Private Sub Workbook_Open()
Sheets("Feuil3").[G5] = Sheets("Feuil3").[G5] + 1
ActiveWorkbook.Save
End Sub
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Bonjour,
Un modèle est protégé. Quand tu l'ouvres c'est un autre fichier qui est créé. Le n° dans le modèle reste donc inchangé et c'est tant mieux puisque c'est le principe.
Il faudrait que ce n° soit sauvegardé dans un autre fichier (xls ou texte), récupéré, incrémenté pour ton nouveau classeur, et mis à jour dans ce fichier dédié.
eric
Un modèle est protégé. Quand tu l'ouvres c'est un autre fichier qui est créé. Le n° dans le modèle reste donc inchangé et c'est tant mieux puisque c'est le principe.
Il faudrait que ce n° soit sauvegardé dans un autre fichier (xls ou texte), récupéré, incrémenté pour ton nouveau classeur, et mis à jour dans ce fichier dédié.
eric