probleme impression avec macro3

Lathoure

XLDnaute Nouveau
bonjour,
J ai un petit soucis, au travail je doit imprimer une fichier excel qui comporte trois feuille (appelées NICO JULIE et MELISSA)
la premiere feuille (appelé NICO)est toujours en A3 paysage
ensuite je copie la seconde (JULIE) que je colle sur la troisieme (appelé MELISSA) et les mets en forme en A3 paysage
j'en suis donc rendut a avoir premiere feuille A3 et troisième en A3.
Ensuite j'imprime via ctrl les deux feuilles ( NICO et MELISSA) en recto verso
ma macro fonctionne nickel
malheureusement des fois je n'ai pas la feuille JULIE ni MELISSA
il faut donc juste imprimer NICO
mais des fois je n'ai que NICO et JULIE il faut donc imprimer que ces deux feuilles
et des fois oui je sais je suis chiant je n'ai que NICO et MELISSA il faut donc juste imprimer ces deux feuilles
Bref j'ai toujours NICO mais les autres feuilles sont aléatoire et ma macro doit s'adapter suivant la presence des feuilles ou non
Comment faire: dois utiliser le IF and THEN
ou faire une premiere macro qui en lancerai une differente suivant le nom des feuilles?


par avance merci
 

Lathoure

XLDnaute Nouveau
Re : probleme impression avec macro3

Bonsoir à tous

Lathoure
Il manque quelque chose dans ton message, non ?

bonsoir,
Merci pour cette réponse rapide
je ne voit pas trop ce qu'il manque?

en fait j'ai avancé un peut,
j'ai créé quatre macros
macro1 qui imprime que NICO
macro2 qui imprime NICO et JULIE
macro3 qui imprime NICO et MELISSA
macro4 qui imprime NICO + JULIE + MELISSA
donc maintenant je cherche plutôt une macro qui dit
si PAS de feuille "JULIE" ni MELISSA alors appelé la macro1
si PAS de feuille "MELISSA" alors appeler la macro2
si PAS de feuille "JULIE" alors appelé la macro3
si "JULIE " et "MELISSA" présente alors appelé la macro4

je pense que c'est le plus simple
Cordialement
 

Staple1600

XLDnaute Barbatruc
Re : probleme impression avec macro3

Re


Tout simplement un fichier exemple !
Il suffisait juste de prendre le temps de lire quand on crée une discussion...

Ci-dessous ce qui s'affiche quand on crée la dite discussion ;)
IMPORTANT :
- CHARTE DU FORUM : Lisez Lien supprimé avant votre première intervention.

- ILLUSTREZ VOTRE DEMANDE : Afin de faciliter la compréhension de votre demande il est conseillé de joindre un PETIT fichier qui illustre votre question précise et montre les résultats que vous cherchez à obtenir.
Pour l'envoyer, cliquez sur le trombone ci-dessous ou sur le bouton "Gérer les pièces jointes" dans la zone "Options supplémentaires".Ensuite, cliquez sur le bouton "Parcourir" et sélectionnez-le (après l'avoir compressé s'il dépasse les 250Ko).

- DONNEES CONFIDENTIELLES : Ne laissez AUCUNE donnée personnelle ou confidentielle (noms, adresses, N° de téléphone, entreprises...) dans vos pièces jointes. Vous mettriez Excel-Downloads en contravention avec la loi Informatique et Liberté et votre fichier devrait être enlevé.
 
Dernière édition:

Pierrot93

XLDnaute Barbatruc
Re : probleme impression avec macro3

Bonjour,

s'il s'agit de tester si une feuille existe :
Code:
Option Explicit
Sub test()
Dim nomfeuille As String
nomfeuille = "JULIE"
If Not FeuilleExiste(nomfeuille) Is Nothing Then MsgBox "OK, feuille existe"
End Sub
Function FeuilleExiste(f As String) As Worksheet
On Error Resume Next
Set FeuilleExiste = Worksheets(f)
End Function

A adapter à ton projet, espérant que cela puisse te faire avancer...

bone journée
@+
 

Lathoure

XLDnaute Nouveau
Re : probleme impression avec macro3

On Error Resume Next
If IsError(Sheets(Array("Procédure d'Exécution", "AT_GAZ", "1_AT_GAZ", "2_AT_GAZ"))) Then Call BT
If Not IsError(Sheets("1_AT_GAZ")) And ("2_AT_GAZ") Then Call BT2AT
If IsError(Sheets("AT_GAZ")) Then Call BTEXE
If IsError(Sheets("Procédure d'Exécution")) Then Call BTAT
If Not IsError(Sheets("Procédure d'Exécution")) And (Sheets("AT_GAZ")) Then Call BTEXEAT
End Sub


Actuellement j ai l impression que macro se fout literalement du noms de mes feuilles a ma premiere ligne!
Et comment faire pour executer comme cela:
Faire ligne un si condition OK alors fin de macro sinon passer a la ligne2
Si ligne2 OK alors fin de macro sinon passer a la ligne3
Et ainsi de suite!

Par avance merci
 

job75

XLDnaute Barbatruc
Re : probleme impression avec macro3

Bonjour Lathoure, Jean-Marie, Pierrot,

Oui le plus simple est d'utiliser On Error Resume Next et pas besoin de 36 macros :

Code:
Sub Imprimer()
Dim t
On Error Resume Next
For Each t In Array("Procédure d'Exécution", "AT_GAZ", "1_AT_GAZ", "2_AT_GAZ")
  Sheets(t).PrintOut Preview:=True 'False sans l'aperçu
Next
End Sub
A+
 

Lathoure

XLDnaute Nouveau
Re : probleme impression avec macro3

Bonjour STAPLE1600

Bonjour c'est parti je vais faire ce petit fichier qui va fortement vous aider et par la meme m'aider bien sur!


Alors voici ma macro 1 qui met en forme et imprime la feuille BT (cette macro va avec le fichier xls appele BT)

Sub BT()
'
' BT Macro
' Impression de BT en A3
'
' Touche de raccourci du clavier: Ctrl+w
'
Sheets("BT_GAZ").Select
Range("CA18:CM19").Select
Selection.ClearContents
withrépertoirePhoto = "C:\Users\e21253\Images\LOTUS\Signature BT" ' Adapter
Nom = "droc"
Set c = Range("CA18").MergeArea
With ActiveSheet
.Pictures.Insert("C:\Users\e21253\Images\LOTUS\Signature BT\sign.png").Name = Nom
.Shapes(Nom).Left = c.Left
.Shapes(Nom).Top = c.Top
.Shapes(Nom).LockAspectRatio = msoFalse
.Shapes(Nom).Height = c.Height
.Shapes(Nom).Width = c.Width
End With
Sheets("BT_GAZ").Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub




Voici ma macro 2 qui met en forme et improme les feuilles BT+1_AT_GAZ+2_AT_GAZ. Cette macro met en forme et imprime ces trois feuilles en A3 recto verso (pour cette macro il faut utiliser le fichier xls appeler BT 1AT 2AT)

Sub BT2AT()
'
' BT2AT Macro
' impression du BT et des 2 at dans le cadre d'une modification de branchement
'
' Touche de raccourci du clavier: Ctrl+q
'
Sheets("BT_GAZ").Select
Range("CA18:CM19").Select
Selection.ClearContents
withrépertoirePhoto = "C:\Users\e21253\Images\LOTUS\Signature BT" ' Adapter
Nom = "droc"
Set c = Range("CA18").MergeArea
With ActiveSheet
.Pictures.Insert("C:\Users\e21253\Images\LOTUS\Signature BT\sign.png").Name = Nom
.Shapes(Nom).Left = c.Left
.Shapes(Nom).Top = c.Top
.Shapes(Nom).LockAspectRatio = msoFalse
.Shapes(Nom).Height = c.Height
.Shapes(Nom).Width = c.Width
End With
Sheets("BT_GAZ").Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("2_AT_GAZ").Select
Columns("A:G").Select
Range("A8").Activate
Selection.Copy
Sheets("1_AT_GAZ").Select
Columns("J:J").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2_AT_GAZ").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("1_AT_GAZ").Select
ActiveSheet.Paste
Application.CutCopyMode = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("BT_GAZ").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("BT_GAZ", "1_AT_GAZ")).Select
Sheets("BT_GAZ").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub



Voici ma macro 3 qui met en forme et imprime la feuille BT+AT cette macro est a utilisé avec le fichier xls appele BT AT

Sub BTAT()
'
' BTAT Macro
' impression de BT et AT en A3 en recto verso
'
' Touche de raccourci du clavier: Ctrl+n
'
Sheets("BT_GAZ").Select
Range("CA18:CM19").Select
Selection.ClearContents
withrépertoirePhoto = "C:\Users\e21253\Images\LOTUS\Signature BT" ' Adapter
Nom = "droc"
Set c = Range("CA18").MergeArea
With ActiveSheet
.Pictures.Insert("C:\Users\e21253\Images\LOTUS\Signature BT\sign.png").Name = Nom
.Shapes(Nom).Left = c.Left
.Shapes(Nom).Top = c.Top
.Shapes(Nom).LockAspectRatio = msoFalse
.Shapes(Nom).Height = c.Height
.Shapes(Nom).Width = c.Width
End With
Sheets("BT_GAZ").Select
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("AT_GAZ").Select
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$U$43"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("BT_GAZ").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("BT_GAZ", "AT_GAZ")).Select
Sheets("BT_GAZ").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub



et enfin voic ma derniere macro qui suivant les feuilles presente, doit me lancer juste la macro 1 ou 2 ou 3
C'est a dire que
si il y a deux feuilles appelé 1_AT et 2_AT GAZ alors lancer BT2AT
si il y a une feuille appelé AT alors il doit me lancer BTAT (mais pas BT2AT ni BT)
si il n'y a pas de feuiles appelé 1_AT_GAZ, 2 AT_GAZ, AT alors il doit me lancer BT

voici la macro

Sub pleinllecul()
'
' pleinllecul Macro
' marre
'
' Touche de raccourci du clavier: Ctrl+i
'
On Error Resume Next
If (Sheets(Array( "AT_GAZ", "1_AT_GAZ", "2_AT_GAZ"))) = False Then Call BT
If Not IsError(Sheets("1_AT_GAZ")) And ("2_AT_GAZ") Then Call BT2AT
If IsError(Sheets("AT_GAZ")) Then Call BTEXE
On Error Resume Next
End Sub



Donc pour resumer aujourd'hui tout marche a peut pret sauf ma macro final veut appliquer chaque ligne et donc a chaque fois ça commence par m'imprime le BT puis ma feuille concerne suivant le nom des feuilles presentesJe ne sais pas si je suis tres clair

Bonne chance et merci d'avance.
 

Pièces jointes

  • BT.xls
    48.5 KB · Affichages: 41
  • BT 1AT 2AT.xls
    136 KB · Affichages: 40
  • BT AT.xls
    106 KB · Affichages: 42
  • BT.xls
    48.5 KB · Affichages: 37
  • BT.xls
    48.5 KB · Affichages: 39

Staple1600

XLDnaute Barbatruc
Re : probleme impression avec macro3

re

Merci pour les fichiers exemple
(tu aurais mis les codes VBA dans les fichiers respectifs, on t'en aurait pas voulu ;))
J'ai élagué un peu un de tes macros.
Le résultat obtenu est-t-il identique à ta macro d'origine ?
Code:
Sub BT2AT()
'
' BT2AT Macro
' impression du BT et des 2 at dans le cadre d'une modification de branchement
'
' Touche de raccourci du clavier: Ctrl+q
'
Sheets("BT_GAZ").Range("CA18:CM19").ClearContents
withrépertoirePhoto = "C:\Users\e21253\Images\LOTUS\Signature BT" ' Adapter
Nom = "droc"
Set c = Range("CA18").MergeArea
With ActiveSheet
.Pictures.Insert("C:\Users\e21253\Images\LOTUS\Sig nature BT\sign.png").Name = Nom
.Shapes(Nom).Left = c.Left
.Shapes(Nom).Top = c.Top
.Shapes(Nom).LockAspectRatio = msoFalse
.Shapes(Nom).Height = c.Height
.Shapes(Nom).Width = c.Width
End With
With Sheets("BT_GAZ").PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With

Sheets("2_AT_GAZ").Columns("A:G").Copy Sheets("1_AT_GAZ").Columns("J:J")
Application.CutCopyMode = False

With Sheets("1_AT_GAZ").PageSetup
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintQuality = 600
.CenterHorizontally = True
.Orientation = xlLandscape
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
Sheets(Array("BT_GAZ", "1_AT_GAZ")).Select
Sheets("BT_GAZ").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
 

Lathoure

XLDnaute Nouveau
Re : probleme impression avec macro3

Re
Mis a part l'espace a Sign Ature ligne 6
c'est nickel
heu non je dirais meme Parfait
Avant c'était 30s pour que la macro s'applique et maintenant 2secondes
je gagne de la productivité
L'iddée de d'abord fait des macro propre me plait beaucoup
merci
Reste la suite

Quand mon probleme sera résolut je serais curieux de savoir ce que tu a modifier sur mon ancienne macro
mais ça on verra ela apres§
 

Staple1600

XLDnaute Barbatruc
Re : probleme impression avec macro3

Re

Re
Mis a part l'espace a Sign Ature ligne 6
c'est nickel

C'est juste un problème de copier/coller.

Sinon tu peux faire toi-même l'élagage de ton code sur tes deux autres macros
(sur le même principe que mes modifs sur la première)

Au fait quelle est ta version d'Excel?

(PS: Pour augmentter la vitesse de ta macro , il existe une alternative à PageSetup, cf macro XL4 pour plus voir sur le net)
 

Staple1600

XLDnaute Barbatruc
Re : probleme impression avec macro3

Re

J'ai bien compris.
Mais on n'est pas au pièce et nous sommes en week-end et je ne suis que bénévole.
Donc je vais à mon rythme ;)
Et là pour le moment il est temps que je lâche le clavier pour étendre ma lessive ;)
 
Haut Bas