imprimer zone identique sur plusieurs onglets

[mix770]

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

 

[Cousinhub]

Re : imprimer zone identique sur plusieurs onglets

Bonjour,

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

Essaie ainsi :

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

 

[mix770]

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
;-)

 

[Cousinhub]

Re : imprimer zone identique sur plusieurs onglets

Re-,

Peut-être comme ceci :

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

 

[mix770]

Re : imprimer zone identique sur plusieurs onglets

j'essaie et te dit
merci à toi pour la réponse
cdt

 

[mix770]

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

 

[Cousinhub]

Re : imprimer zone identique sur plusieurs onglets

Re-,

Es-tu sûr de l'orthographe de l'onglet? (Accueil, accueil, ......)

Peut-être?

 

[mix770]

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

 

[mix770]

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

 

[Cousinhub]

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?

 

[mix770]

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

 

[Cousinhub]

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

 

[mix770]

Re : imprimer zone identique sur plusieurs onglets

je teste TDS tes préco et te dit

pour le fichier je vais le faire, il est vrai que c'est des fois plus simple

 

[mix770]

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

 

[mix770]

Re : imprimer zone identique sur plusieurs onglets

j'ai oublié pour les macro pour y accéder le code: Tidf94