IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Incrémentation et sauvegarde pour X impressions


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    34
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Vienne (Limousin)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Mai 2011
    Messages : 34
    Par défaut Incrémentation et sauvegarde pour X impressions
    Bonjour à tous. Je navigue sur le web depuis un moment sans trouver de véritables réponses.

    J'ai des cartes d'entrées gratuites qui sont créées sous Excel avec un numero propre. On me commande X cartes, et je dois incrémenter le numero de la carte pour chaque impression.

    J'aimerais donc créer un code VBA qui lorsque je veux imprimer 100 cartes, il incrémente seul lors de l'impression, et à la fin sauvegarde le dernier numero imprimé...

    L'imprimante utilisée est une HP LaserJet 1018
    Y a t-il une solution simple? Sans avoir à imprimer page par page le temps que l'incrémentation se fasse, mais plutôt créer une incrémentation de groupe...

    Merci d'avance pour votre aide.

  2. #2
    Membre averti
    Homme Profil pro
    Apprenti
    Inscrit en
    Février 2012
    Messages
    49
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Apprenti
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Février 2012
    Messages : 49
    Par défaut
    Bonjour,

    et bien quelque chose comme cela :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub test()
           For i = 1 To 100
                 Cells(1, 1) = i
                 Sheets("Feuil1").PrintOut
           Next i
    End Sub
    à adapter.

    !!! Attention ça lance 100 Impressions !!!

Discussions similaires

  1. sauvegarde pour impression depuis un autre ordinateur
    Par katorps dans le forum Code::Blocks
    Réponses: 0
    Dernier message: 13/06/2014, 21h49
  2. [XML/CSS] Comment afficher le fond pour l'impression
    Par askeur dans le forum Mise en page CSS
    Réponses: 4
    Dernier message: 09/11/2005, 00h19
  3. Paramétrage pour l'impression
    Par zorba49 dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 25/08/2005, 10h41
  4. Page blanche pour l'impression d'un état
    Par PAINCO dans le forum Access
    Réponses: 2
    Dernier message: 23/06/2005, 14h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo