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 :

imprimer plage de cellules au format a4


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations forums :
    Inscription : Septembre 2009
    Messages : 83
    Par défaut imprimer plage de cellules au format a4
    Bonjour,

    J'ai créé un bouton pour imprimer automatiquement une plage de cellule avec le nombre de copie à stipuler dans une case.
    Le problème que je rencontre est que je n'arrive pas faire tenir ma sélection de cellules dans un format A4

    Je voudrais savoir le code à mettre??
    apprement le code pour le format A4 est : .PaperSize = xlPaperA4

    Je vous mets mon code actuel:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
    Sheets("Feuil2").Range("F2:N34").PrintOut Copies:=Range("C15").Value, Collate:=True
    End Sub
    Merci de vos réponse

  2. #2
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Essaie ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub CommandButton1_Click()
    With Sheets("Feuil2").PageSetup
        .PrintArea = "F2:N34"
        .PaperSize = xlPaperA4
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Sheets("Feuil2").PrintOut Copies:=Sheets("Feuil2").Range("C15").Value, Collate:=True
    End Sub

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations forums :
    Inscription : Septembre 2009
    Messages : 83
    Par défaut
    Bonjour Fring,

    j'ai essayé ton code mais quand je clique sur le bouton pour imprimer, j'ai une erreur d'exécution 1004: "impossible de définir la propriété Papersize de la classe pagesetup"
    j'ai fait un essai en passant par une impression virtuelle sous format Pdf et je me retrouve en mon fichier sur 2 pages

    merci pour ton aide

  4. #4
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Là je ne vois pas pourquoi le code coince sur le format, chez moi cela fonctionne, d'autant plus que tu arrives à l'imprimer en PDF
    Concernant les 2 pages en PDF, essaye ceci
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub test()
    With Sheets("Feuil2").PageSetup
        .PrintArea = "F2:N34"
        .PaperSize = xlPaperA4
        .Zoom = False '<-- ajoute cette ligne
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Sheets("Feuil2").PrintOut Copies:=Sheets("Feuil2").Range("C15").Value, Collate:=True
    End Sub

  5. #5
    Expert confirmé
    Avatar de Didier Gonard
    Homme Profil pro
    Formateur Office et développeur VBA en freelance
    Inscrit en
    Février 2008
    Messages
    2 805
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Formateur Office et développeur VBA en freelance

    Informations forums :
    Inscription : Février 2008
    Messages : 2 805
    Par défaut
    Bonjour,

    As-tu essayé l'enregistreur de macro, c'est le cas où il en met une tartine, mais te donne tous les paramètres qui vont bien à isoler.

    désignation de la plage, réglage de la mise en page etc....

    cordialement,

    Didier

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations forums :
    Inscription : Septembre 2009
    Messages : 83
    Par défaut
    bonjour,

    Fringe,
    ta modification de code m'a permis de n'avoir q'une page, par contre quand j'entre le nombre de copie dans la cellule "C15" cela ne fonctionne pas??
    merci encore

    Ormonth,
    l'utilisation de l'enregistreur de macro ne prend pas en compte le nombre de copie que je demande dans la cellule 'c15' merci quand même de ton conseil

Discussions similaires

  1. calculer zoom idéal d'une plage de cellules pour l'imprimer
    Par homerlehamster dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 08/07/2011, 13h47
  2. [XL-2003] Plage de cellules nommées avec formats différents déclenche un bug de listbox
    Par comme de bien entendu dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/05/2011, 14h12
  3. Conversion du format d'une plage de cellules Excel
    Par tarbala dans le forum API, COM et SDKs
    Réponses: 0
    Dernier message: 12/06/2009, 23h47
  4. Imprimer automatiquement fichiers de plusieurs formats
    Par lutin511 dans le forum Windows
    Réponses: 5
    Dernier message: 07/12/2005, 18h38
  5. [VBA-E] [Excel] Protection d'une plage de cellules
    Par fikou dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/11/2002, 11h28

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