Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

imprimer zone identique sur plusieurs onglets

M

mix770

XLDnaute Impliqué
Bonjour le forum,
j'ai un fichier avec 52 onglets (nom 1; nom 2; etc) sur chaque onglet il y a des zones (janvier, fevrier, etc) je n'arrive pas a faire une macro qui imprime une zone (A1:M46) sur l'ensemble des onglets en 1 fichier PDF.

j'ai cherché et même essayé en passant par l'enregistrement de macro je n'ai qu'une feuille qui s'imprime.
ce qui est bizarre c'est que cela fonctionne quand j'enregistre la macro, j'ai bien 52 pages, mais quand je ré exécute la macro ensuite de nouveau je n'ai qu'une feuille.
si quelqu’un peut m'aider
merci beaucoup

ci dessous la macro:

Sub test_imprim_5()

Sheets(Array("Nom 1", "Nom 2", "Nom 3", "Nom 4", "Nom 5", "Nom 6", "Nom 7", "Nom 8", _
"Nom 9", "Nom 10", "Nom 11", "Nom 12", "Nom 13", "Nom 14", "Nom 15", "Nom 16", "Nom 17" _
, "Nom 18", "Nom 19", "Nom 20", "Nom 21", "Nom 22", "Nom 23", "Nom 24", "Nom 25", "Nom 26", "Nom 27", "Nom 28", "Nom 29", "Nom 30", "Nom 31", "Nom 32", _
"Nom 33", "Nom 34", "Nom 35", "Nom 36", "Nom 37", "Nom 38", "Nom 39", "Nom 40", _
"Nom 41", "Nom 42", "Nom 43", "Nom 44", "Nom 45", "Nom 46", "Nom 47", "Nom 48", _
"Nom 49", "Nom 50", "Nom 51", "Nom 52")).Select Replace:=True
Range("A1:M47").Select
Selection.PrintOut
Sheets("Accueil Service continu").Select
End Sub
 
Trier par date Trier par votes

Cousinhub

XLDnaute Barbatruc
Inactif
Re : imprimer zone identique sur plusieurs onglets

Bonjour,

J'ai supposé que tous les onglets devaient être imprimés...

Essaie ainsi :

Code: 
Sub impr()
Dim Sh As Worksheet
For Each Sh In Sheets
    Sh.PageSetup.PrintArea = "$A$1:$M$46"
Next Sh
Sheets.PrintPreview 'a remplacer par PrintOut
End Sub

PS, pour l'impression en pdf, il va falloir passer par pdfcreator si tu es bien sous Excel2003

Bon courage
 
Vote positif 0 Vote négatif
M

mix770

XLDnaute Impliqué
Re : imprimer zone identique sur plusieurs onglets

Bonjour,
merci à toi, j'essaie, je vois sur la macro toute les feuilles, j'ai oublier de dire j'ai une page "accueil" que je ne souhaite pas imprimer
a tout de suite
;-)
 
Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc
Inactif
Re : imprimer zone identique sur plusieurs onglets

Re-,

Peut-être comme ceci :

Code: 
Sub impr()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In Sheets
    If Sh.Name <> "accueil" Then
        Sh.PageSetup.PrintArea = "$A$1:$M$46"
        Sh.Select False
    End If
Next Sh
ActiveWorkbook.Windows(1).SelectedSheets.PrintPreview 'a remplacer par PrintOut
Sheets("accueil").Select
End Sub

Bonne journée
 
Vote positif 0 Vote négatif
M

mix770

XLDnaute Impliqué
Re : imprimer zone identique sur plusieurs onglets

RE-

cela marche très bien j'ai testé pour février, mais il imprime quand même la page accueil, je vois pas comment empecher l'impression de cette page.
as tu une idée ?
merci beaucoup
 
Vote positif 0 Vote négatif
M

mix770

XLDnaute Impliqué
Re : imprimer zone identique sur plusieurs onglets

super tu es là,

tout à l'heure j'avais fait court l'onglet est nommé " accueil service continu "
ci dessous la macro, elle fonctionne sauf pour la page accueil qui s’imprime

merci

Private Sub Envoi_Février_Click()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In Sheets
If Sh.Name <> "accueil service continu" Then
Sh.PageSetup.PrintArea = "$A$58:$M$103"
Sh.Select False
End If
Next Sh
ActiveWorkbook.Windows(1).SelectedSheets.PrintOut
Sheets("accueil service continu").Select
Unload Me
End Sub
 
Vote positif 0 Vote négatif
M

mix770

XLDnaute Impliqué
Re : imprimer zone identique sur plusieurs onglets

super tu es là,

tout à l'heure j'avais fait court l'onglet est nommé " accueil service continu "
ci dessous la macro, elle fonctionne sauf pour la page accueil qui s’imprime

merci

Private Sub Envoi_Février_Click()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In Sheets
If Sh.Name <> "accueil service continu" Then
Sh.PageSetup.PrintArea = "$A$58:$M$103"
Sh.Select False
End If
Next Sh
ActiveWorkbook.Windows(1).SelectedSheets.PrintOut
Sheets("accueil service continu").Select
Unload Me
End Sub
 
Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc
Inactif
Re : imprimer zone identique sur plusieurs onglets

Re-,

Vérifie dans ta page "accueil...." qu'il n'y a pas de zone d'impression de définie (Insertion/Nom/Définir, regarde s'il y a un nom "zone_d_impression" faisant référence à cette feuille, et supprime le nom...

Peut-être?
 
Vote positif 0 Vote négatif
M

mix770

XLDnaute Impliqué
Re : imprimer zone identique sur plusieurs onglets

effectivement il y avait une zone d'impression, je l'ai supprimé, mais quand j'ai executé la macro cela à de nouveau créé la zone d'impression
c'est bizarre, il ne le fait que pour cette page

='Accueil Service continu'!$A$58:$M$103

merci
 
Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc
Inactif
Re : imprimer zone identique sur plusieurs onglets

Re-,

si tu fais "Fichier/Mise en Page", dans l'onglet "Feuille", est-ce que la case "Zone d'impression" est vide?

Si non, vide-là

Autre solution, tu ajoutes le bouton "Définir" (la zone d'impression) dans tes barres d'outils :
- Affichage/Barre d'outils/Personnaliser
- Onglet "Commandes", Barre d'outils "Fichier", tu descends un peu, et tu cliques sur "Définir"

Tout en maintenant la souris enfoncée, tu déplaces vers une de tes barres d'outils

Puis "Fermer"

Pour supprimer toute zone d'impression de l'onglet, tu cliques sur la case grise, en haut à gauche (entre A et 1) -> toutes les cellules sont sélectionnées
Tu cliques sur l'outil "Définir" (cela supprime toute zone d'impression)

Et tu réessayes...

A part ça, je ne vois pas trop d'autres solutions, à moins de joindre un exemple de ton fichier réel, avec 5 ou 6 onglets, sans données confidentielles...

Bon courage
 
Vote positif 0 Vote négatif
M

mix770

XLDnaute Impliqué
Re : imprimer zone identique sur plusieurs onglets

J'ai fait les manips sans succès, je te joins le tableau réduit
merci à toi pour le temps que tu prends c'est sympa
 

Pièces jointes

  • test zone impression.xls
    942 KB · Affichages: 51
  • test zone impression.xls
    942 KB · Affichages: 50
  • test zone impression.xls
    942 KB · Affichages: 56
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

L
  • Résolu(e)
Microsoft 365 Création d'un code VBA pour sélectionner des zone selon choix multiples.
Réponses
3
Affichages
358
Lionel Alfred
L
S
  • Question
Autres Comment traiter filtre imbriqué en formule VBA ? (filtres sur plusieurs colonnes) sur TCD (avec segment) et sur simple base de données
Réponses
2
Affichages
1 K
merinos
B
  • Résolu(e)
XL 2016 Modifier ou créer une macro imprimer une sélection de zones
Réponses
5
Affichages
625
berru76
B
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
  • Résolu(e)
XL 2013 2 onglets enPDF sur Bureau
Réponses
9
Affichages
1 K
jeromeN95
C
  • Question
XL 2016 Excel (sommaire + tri des feuilles ) erreur dans mon VBA
Réponses
1
Affichages
950
Cattleya97
C
K
  • Question
XL 2016 Fusion de données de plusieurs onglets sous conditions
Réponses
4
Affichages
1 K
kvizou
K
K
  • Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
2 K
Hasco
R
  • Résolu(e)
XL 2019 VBA - Simplifier un code fait par enregistrement
2 3
Réponses
33
Affichages
3 K
Staple1600
S
  • Résolu(e)
XL 2016 Séparateurs décimales & milliers sur un import csv
2
Réponses
18
Affichages
2 K
sabrina_
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…