Note: The other languages of the website are Google-translated. Back to English

 Comment incrémenter automatiquement la valeur de la cellule après chaque impression?

Supposons que j'ai une page de feuille de calcul à imprimer à 100 exemplaires, la cellule A1 est le numéro de chèque Company-001, maintenant, je voudrais que le nombre augmente de 1 après chaque impression. Cela signifie que lorsque j'imprime le deuxième exemplaire, le numéro sera automatiquement augmenté à Company-002, le troisième exemplaire, le numéro sera Company-003… cent exemplaires, le numéro sera Company-100. Existe-t-il une astuce pour résoudre ce problème dans Excel rapidement et éventuellement?

Valeur de cellule d'incrémentation automatique après chaque impression avec le code VBA


flèche bleue bulle droite Valeur de cellule d'incrémentation automatique après chaque impression avec le code VBA

Normalement, il n'y a pas de moyen direct pour vous de résoudre cette tâche dans Excel, mais, ici, je vais créer un code VBA pour y faire face.

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: valeur de cellule d'incrémentation automatique après chaque impression:

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, et une boîte de dialogue s'affiche pour vous rappeler d'entrer le nombre de copies que vous souhaitez imprimer la feuille de calcul actuelle, voir capture d'écran:

incrément de doc lors de l'impression 1

4Cliquez sur OK et votre feuille de calcul actuelle s'imprime maintenant, et en même temps, les feuilles de calcul imprimées sont numérotées Société-001, Société-002, Société-003… dans la cellule A1 selon vos besoins.

Notes: Dans le code ci-dessus, la cellule A1 seront insérés les numéros de séquence que vous avez commandés et la valeur de cellule d'origine dans A1 sera effacé. Et "Société-00»Est le numéro de séquence, vous pouvez les modifier selon vos besoins.


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité en
80 %

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus que
    300
    Caractéristiques puissantes
    . Prend en charge Office/Excel
    2007-2019 et 365
    . Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes
    30
    -jour d'essai gratuit. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité en
    50 %
    , et réduit chaque jour des centaines de clics de souris !
bas de cabine
Commentaires (51)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Ce code est incroyable, c'est exactement ce dont j'ai besoin, cependant, je me demandais s'il y avait un moyen de commencer à imprimer à partir du numéro entré dans la cellule "A1" ? Par exemple, si j'ai imprimé 100 exemplaires, lors du prochain tirage, je devrai imprimer à partir du numéro 101 et compter à partir de là. J'ai essayé quelques ajustements de code mais il ne semble prendre que le numéro entré dans la cellule, c'est-à-dire 101, ajouter 1, puis le reste des empreintes sont bloquées avec ce numéro, c'est-à-dire 102... Votre aide serait grandement appréciée : -)
Ce commentaire a été minimisé par le modérateur sur le site
Si vous n'avez pas encore trouvé de solution, vous pouvez modifier la ligne 17 du code en ceci : ActiveSheet.Range("A1").Value = Range("A1").Value + 1
Cela ajoutera +1 au nombre que vous avez dans la cellule A1.
Ce commentaire a été minimisé par le modérateur sur le site
Il n'envoie pas à mon imprimante
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

en exécutant la macro ça efface le nombre de ma cellule.
Je voudrais par exemple avoir A1= 153, je lance une impression de 10 exemplaires. J'ai dis feuilles imprimées de 154 à 164 ET je voudrais que le nombre de la cellule soit aussi 164.
Comme ça quand je relance une impression ça prend le chiffre dans A1.
J'aimerais aussi si possible na pas à avoir aller dans basic. je voudrais que la macro s'active directement via l'option impression. C'est possible ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,

en exécutant la macro ça efface le nombre en A1.

je voudrais si c'est possible par exemple A1=153 et faire une impression de 10 exemplaires. donc je récupère 10 impressions numérotées de 154 à 164 ET je voudrais aussi que le 153 en A1 s'incrémente jusqu'à 164.

Je voudrais aussi si possible ne pas avoir à utiliser de base pour l'impression. je voudrais pouvoir déclancher directement la macro en utilisant l'option impression tout simplement.

Merci pour votre aide
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Kaji,
Pour résoudre votre problème, veuillez appliquer le code ci-dessous :
Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
Dim xInt As Integer
On Error Resume Next
xInt = 153 'number
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xInt
ActiveSheet.PrintOut
Next
Application.ScreenUpdating = xScreen
End If
End Sub

Veuillez essayer, j'espère que cela peut vous aider, si vous avez un autre problème, veuillez commenter ici.
Ce commentaire a été minimisé par le modérateur sur le site
Retrouvez ci-joint les codes modifiés.

Et le voici en texte :
Sub IncrementPrint()
'mise à jour par Extendoffice
Dim xFin comme variante
Dim xStart en tant que variante
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LEntrée :
xStart = Application.InputBox("Veuillez entrer le premier chiffre :", "Kutools for Excel")
xEnd = Application.InputBox("Veuillez entrer le dernier numéro :", "Kutools for Excel")
Si TypeName(xCount) = "Booléen" Alors Quittez Sub
Si (xStart = "") Ou (Not IsNumeric(xStart)) Ou (xStart < 1) Alors
MsgBox "Erreur saisie, veuillez entrer à nouveau", vbInformation, "Kutools for Excel"
GoTo LInput
autre
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Faux
Pour I = xStart To xEnd
ActiveSheet.Range("A1").Value = " Société-00" & I
ActiveSheet.PrintOutActiveSheet.PrintOut
Suivant
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Si fin
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
J'ai besoin de numéros de série comme IA1-055242, IA1-055243, IA1-055244 .....
Ce commentaire a été minimisé par le modérateur sur le site
Merci d'avoir posté ceci, c'est très utile. Ma question est la suivante : j'ai 2 codes-barres différents qui doivent être incrémentés sur une page, comment puis-je modifier le code pour le faire ?
Ce commentaire a été minimisé par le modérateur sur le site
Désolé de poser cette question sur un poste séparé... Mes numéros de série commencent par un ZÉRO, mais lorsque j'exécute le programme, il élimine les zéros. J'ai essayé de convertir le champ numérique en texte, mais cela n'a pas résolu le problème. D'autres idées ?
Ce commentaire a été minimisé par le modérateur sur le site
R-Click Cell, Format, Custom, Là où il est écrit "Général", remplacez-le par autant de zéros que votre numéro de série le sera. Cela forcera le nombre de zéros nécessaires devant votre numéro de série. Si j'ai un groupe de numéros de série à 10 chiffres, j'entre 0000000000 dans le champ Type pour que '0004563571' s'affiche dans le champ du numéro de série.
Ce commentaire a été minimisé par le modérateur sur le site
Merci Art. J'ai essayé cela, mais le code-barres a continué d'éliminer les zéros non significatifs... même après avoir créé un format de nombre personnalisé.
Ce commentaire a été minimisé par le modérateur sur le site
mon numéro de série commence par 227861 comment puis-je imprimer à partir de
Ce commentaire a été minimisé par le modérateur sur le site
imprimé comme 30 exemplaires mais maintenant je ne peux pas imprimer, j'ai exécuté le script plusieurs fois mais ne fonctionne pas, ne faites rien :(
Ce commentaire a été minimisé par le modérateur sur le site
merci pour ce qui précède, vraiment utile. est-il possible d'enregistrer et de mémoriser la dernière valeur
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Pieter,
Pour enregistrer et mémoriser la dernière valeur imprimée lors de la prochaine impression, vous devez appliquer le code VBA suivant :

Sub IncrementPrint()
Dim xCount comme variante
Dim xScreen As Boolean
Dim I As Long
Dim xM aussi longtemps
Dim xMNWS en tant que feuille de travail
Dim xAWS en tant que feuille de calcul
On Error Resume Next
LEntrée :
xCount = Application.InputBox("Veuillez entrer le nombre de copies que vous souhaitez imprimer :", "Kutools for Excel")
Si TypeName(xCount) = "Booléen" Alors Quittez Sub
Si (xCount = "") Ou (Not IsNumeric(xCount)) Ou (xCount < 1) Alors
MsgBox "erreur saisie, veuillez saisir à nouveau", vbInformation, "Kutools for Excel"
GoTo LInput
autre
xScreen = Application.ScreenUpdating
Définir xAWS = ActiveSheet
En cas d'erreur GoTo EMarkNumberSheet
Set xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet :
Si xMNWS n'est rien alors
Définir xMNWS = Application.Worksheets.Add(Type:=xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Plage("A1").Valeur = 0
xM = 0
xMNWS.Visible = xlSheetVeryHidden
autre
xM = xMNWS.Plage("A1").Valeur
Si fin
Application.ScreenUpdating = Faux
Pour I = 1 To xCount
xM = xM + 1
xAWS.Range("A1").Value = " Société-00" & xM
xAWS.PrintOut
Suivant
xMNWS.Plage("A1").Valeur = xM
xAWS.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Si fin
End Sub

Si vous devez réinitialiser le numéro imprimé au numéro par défaut, veuillez d'abord exécuter le code ci-dessous, puis exécutez le code ci-dessus pour imprimer.

Sub IncrementPrint_Reinstall()
Dim xMNWS en tant que feuille de travail
En cas d'erreur GoTo EMarkNumberSheet
Set xMNWS = Sheets("IncrementPrint_MarkNumberSheet")
EMarkNumberSheet :
Si non xMNWS n'est rien alors
Application.DisplayAlerts = Faux
xMNWS.Visible = xlSheetHidden
xMNWS.Supprimer
Application.DisplayAlerts = Vrai
Si fin
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Salut, merci pour ce code. J'ai une question. J'ai utilisé ce code mais les séries sautent comme 0071,0072,0073. arrivé comme 3x entre les séries 1-100. J'ai donc fermé le vba sans enregistrer pour réinstaller le code mais il imprime la dernière série qui a été enregistrée (0032). Ma question est de savoir comment puis-je imprimer en continu sans que la série ne saute et comment puis-je réimprimer à nouveau à partir de 101 ? appréciera vraiment votre réponse. Désolé pour ça. Je ne suis pas un programmeur, j'espère que vous comprenez. Merci! 
Ce commentaire a été minimisé par le modérateur sur le site
merci d'avoir posté ça, c'est très utile. Ma question est la suivante : j'ai 2 codes-barres différents qui doivent être incrémentés sur une page, comment puis-je modifier le code pour le faire ?
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Desmond,
Si vous avez 2 emplacements sur une page (comme 2 coupons ou 2 modèles / 2 bons, etc.), vous pouvez essayer d'utiliser le code ci-dessous. (En supposant que votre 1er code-barres et votre 2e code-barres se trouvent dans les cellules "A1" et "A20" de la même page, ce code incrémentera des valeurs telles que Company-001 et Company-002 sur la première page et Company-003 et Company-004 sur la deuxième page Vous pouvez modifier le numéro de cellule et le nom de la société comme vous le souhaitez dans les lignes 20, 21, 23, 24 et 28,29 du code. 
Il vous demandera également d'entrer le numéro de départ et le numéro de fin (Merci à Geniusman pour cette partie de code). Ainsi, par exemple, votre numéro de départ. est 1 et se termine par non. 8, il imprimera 4 pages de 1,2 sur la 1ère page, 3,4 sur la 2ème page, 5,6 sur la 3ème page et enfin 7,8 sur la 4ème page. J'espère que cela vous aidera, vous ou quiconque recherche ce type de besoin/exigence. 
Code modifié : ----------------------------------------------- ------------Sub IncrementPrint()
'mise à jour par Extendoffice
Dim xFin comme variante
Dim xStart en tant que variante
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LEntrée :
xStart = Application.InputBox("Veuillez entrer le premier chiffre :", "Kutools for Excel")
xEnd = Application.InputBox("Veuillez entrer le dernier numéro :", "Kutools for Excel")
Si TypeName(xCount) = "Booléen" Alors Quittez Sub
Si (xStart = "") Ou (Not IsNumeric(xStart)) Ou (xStart < 1) Alors
MsgBox "Erreur saisie, veuillez entrer à nouveau", vbInformation, "Kutools for Excel"
GoTo LInput
autre
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Faux
Pour I = xStart To xEnd
Si I Mod 2 = 0 Alors
ActiveSheet.Range("A1").Value = " Société-00" & I + 1
ActiveSheet.Range("A20").Value = " Société-00" & I
autre
ActiveSheet.Range("A20").Value = " Société-00" & I + 1
ActiveSheet.Range("A1").Value = " Société-00" & I
ActiveSheet.PrintOutActiveSheet.PrintOut
Si fin
Suivant
ActiveSheet.Range("A1").ClearContents
ActiveSheet.Range("A20").ClearContents
Application.ScreenUpdating = xScreen
Si fin
End Sub

-------------------------------------------------- -------------------------------------------------- -----Merci, RNS
Ce commentaire a été minimisé par le modérateur sur le site
Ma cellule est I3 et le nombre est 2298 lorsque j'essaie le (code VBA: valeur de cellule d'incrémentation automatique après chaque impression :) cela me donne 22981 comment puis-je l'obtenir à 2298,2299,2300
Ce commentaire a été minimisé par le modérateur sur le site
Salut jenifer,
Pour traiter votre problème, veuillez appliquer le code VBA suivant :
Remarque : Veuillez remplacer le texte et le numéro du préfixe par les vôtres.

Sub IncrementPrint_Num()
Dim xCount comme variante
Dim xScreen As Boolean
Dim I As Long
Dim xStr As String
Dim xInt As Integer
On Error Resume Next
xStr = "Société-" 'texte de préfixe
xInt = 2291 'nombre
LEntrée :
xCount = Application.InputBox("Veuillez entrer le nombre de copies que vous souhaitez imprimer :", "Kutools for Excel")
Si TypeName(xCount) = "Booléen" Alors Quittez Sub
Si (xCount = "") Ou (Not IsNumeric(xCount)) Ou (xCount < 1) Alors
MsgBox "erreur saisie, veuillez saisir à nouveau", vbInformation, "Kutools for Excel"
GoTo LInput
autre
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Faux
Pour I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Valeur = xStr & xInt
ActiveSheet.PrintOutActiveSheet.PrintOut
Suivant
ActiveSheet.Range("A1").ClearContents
Application.ScreenUpdating = xScreen
Si fin
End Sub

S'il vous plaît essayez-le, j'espère que cela peut vous aider!
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour pouvez-vous m'aider avec ça? Je veux que le xINT soit supérieur à 5 chiffres. Chaque fois que je mets un nombre à 6 chiffres, le décompte revient à 1. Comment puis-je empêcher cela ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut, très intéressant même si je cherche une solution différente que je n'ai pas pu trouver et même si j'ai essayé de personnaliser le code n'a pas pu être réalisé jusqu'à présent.Suivant votre exemple, j'aurais besoin d'imprimer la même page 100 fois, dans le même PDF par exemple et sur chaque page le numéro de page incrémenté. Comme je l'ai dit, j'ai essayé la méthode d'assemblage, mais si j'ai bien compris, cela vous permet d'imprimer ensemble si vous avez besoin de plusieurs copies de la même impression. Merci d'avance Giuseppe
Ce commentaire a été minimisé par le modérateur sur le site
Salut, ce code fonctionne très bien, mais après la valeur de cellule 32767, il revient à 1. Après cette valeur, il imprime à partir du numéro 1.
Ce commentaire a été minimisé par le modérateur sur le site
merci beaucoup, ça marche pour moi. Et je parviens à apporter quelques modifications mineures pour répondre à mes besoins. J'apprécie vraiment votre partage.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour Jennifer, essayez ceci
Sub IncrementPrint()
'mise à jour par Extendoffice 20160530
Dim xCount comme variante
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LEntrée :
xCount = Application.InputBox("Veuillez entrer le nombre de copies que vous souhaitez imprimer :", "Kutools for Excel")
Si TypeName(xCount) = "Booléen" Alors Quittez Sub
Si (xCount = "") Ou (Not IsNumeric(xCount)) Ou (xCount < 1) Alors
MsgBox "erreur saisie, veuillez saisir à nouveau", vbInformation, "Kutools for Excel"
GoTo LInput
autre
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = Faux
Pour I = 1 To xCount

ActiveSheet.PrintOutActiveSheet.PrintOut
ActiveSheet.Range("J18").Valeur = ActiveSheet.Range("J18").Valeur + 1
Suivant
'ActiveSheet.Range("J18").ClearContents'

Application.ScreenUpdating = xScreen
Si fin
End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Merci un million
Ce commentaire a été minimisé par le modérateur sur le site
Fonctionne bien pour imprimer des # supplémentaires. Comment puis-je imprimer tous les 5, 10, si nécessaire ?
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de sélectionner les valeurs que je souhaite imprimer ? par exemple, j'ai imprimé la séquence 1 à 30 mais j'ai besoin de réimprimer à nouveau la séquence 15 à 19.
Ce commentaire a été minimisé par le modérateur sur le site
Hé, je veux changer le numéro de numéro de cellule K11 après l'impression en 1-2-3-4-5-6, etc., pouvez-vous aider ? et dites-moi aussi comment appeler cette fonction pls help
Ce commentaire a été minimisé par le modérateur sur le site
Je me demandais comment faire un petit changement pour qu'il imprime 1 sur 10, 2 sur 10, 3 sur 10, etc.
Sinon, cela fonctionne très bien. Merci.
Ce commentaire a été minimisé par le modérateur sur le site
salut, je m'appelle suresh j'ai des données au format excel sans aucun numéro de série qui aime un exemple une feuille de route. Je dois le prendre comme 100 pages imprimées et j'ai besoin d'imprimer le numéro de série dont j'ai besoin à partir d'un chiffre à 4, mais lors de l'impression, je dois le faire de manière manuelle. pouvez-vous expliquer qui imprimer générer automatiquement le code du numéro de série lors de l'impression
Ce commentaire a été minimisé par le modérateur sur le site
Génial !! Je ne suis pas programmeur mais j'ai réussi à changer la référence de cellule et la numérotation uniq que je voulais. A travaillé superbe pour moi que Dieu vous bénisse!
Ce commentaire a été minimisé par le modérateur sur le site
Est-il également possible de rajouter à ce code, pour que 2 exemplaires soient automatiquement imprimés ?
Ce commentaire a été minimisé par le modérateur sur le site
Je pense que vous pourriez changer cette partie :ActiveSheet.Range("A1").Value = " Company-00" & I
ActiveSheet.PrintOutActiveSheet.PrintOut

à
ActiveSheet.Range("A1").Value = " Société-00" & I
ActiveSheet.PrintOutActiveSheet.PrintOut
ActiveSheet.PrintOutActiveSheet.PrintOut

pour obtenir 2 exemplaires de chacun.
Ce commentaire a été minimisé par le modérateur sur le site
Je me demandais si vous pouviez simplement imprimer directement le fichier après sa réouverture et s'il suit toujours le numéro séquentiel ?
Ce que je fais actuellement, c'est qu'à chaque fois que j'ouvre le fichier, ALT + F11 puis F5 et indique le nombre de copies. Il imprimera ensuite le fichier avec la bonne numérotation, puis l'enregistrera à nouveau. et quand je rouvrirai à nouveau, j'ai juste besoin de faire la même étape.
S'il existe un code que vous pouvez simplement imprimer directement à chaque fois que vous ouvrez le fichier et qu'il suivra toujours la numérotation séquentielle ?
Merci d'avance
Ce commentaire a été minimisé par le modérateur sur le site
Je me demandais si vous pouviez simplement imprimer directement le fichier après sa réouverture et s'il suit toujours le numéro séquentiel ?

Ce que je fais actuellement, c'est qu'à chaque fois que j'ouvre le fichier, ALT + F11 puis F5 et indique le nombre de copies. Il imprimera ensuite le fichier avec la bonne numérotation, puis l'enregistrera à nouveau. et quand je rouvrirai à nouveau, j'ai juste besoin de faire la même étape.

S'il existe un code que vous pouvez simplement imprimer directement à chaque fois que vous ouvrez le fichier et qu'il suivra toujours la numérotation séquentielle ?

Merci d'avance
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup pour le partage du code ci-dessus. C'est très utile pour tout le monde. Pouvons-nous ajouter un code supplémentaire pour augmenter 8 chiffres au lieu de 1 après les impressions ? En attente de votre réponse. Merci
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL