XL 2010 ralentissement programme

[gh4]

bonjour à tous,
je cherche à cacher des lignes et des colonnes pour créer un pdf.
le masquage est tres tres rapide jusqu'a enregistrement en pdf

Application.ActivePrinter = "Microsoft Print to PDF sur Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Microsoft Print to PDF sur Ne03:", PrintToFile:=True, Collate:=True

puis apres je refais apparaitre les lignes et les colonnes et la c'est super lent !!!!!!
avez vous une idée?
par avance merci
cdt

 

[gh4]

excel 2003
j'ai supprimé la ligne
ensuite je bloque sur
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\test.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

 

[Staple1600]

RE

Donc testes cette version
(je n'ai pas Excel 2003, donc je ne peux pas tester)

Sub test_pour_Excel2003()
Application.ScreenUpdating = False
    Columns("E:F").Columns.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
    ActiveSheet.Range("$B$2:$B$426").AutoFilter Field:=1, Criteria1:="=FIN", Operator:=xlOr, Criteria2:="=P"
    Application.PrintCommunication = False
    ActiveSheet.PageSetup.PrintArea = "$B$1:$I$426"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$2"
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.5)
        .BottomMargin = Application.InchesToPoints(0.5)
        .PrintQuality = 600
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA3
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With
Application.ActivePrinter = "Microsoft Print to PDF sur Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF sur Ne03:", PrintToFile:=True, Collate:=True
End Sub

 

[Staple1600]

@gh4

j'ai supprimé la ligne
ensuite je bloque sur
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\test.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Oui, mais il faudrait lire attentivement mes messages 🙄
Voir le PS du message#15 où je te prévenais 😉

 

[gh4]

excel 2003
j'ai supprimé a ligne

@gh4


Oui, mais il faudrait lire attentivement mes messages 🙄
Voir le PS du message#15 où je te prévenais 😉

désolé j'ai un peu du mal avec les manip des messages
en tout cas votre solution fonctionne .MERCI beaucoup
une derniere chose comment je reviens au fichier normal avec toutes les colonnes et lignes visibles

 

[Staple1600]

Re

solution rapide
fermer excel sans enregistrer les modifs

pour une solution par macro ce sere après la popote du samedi midi

bon Appetit

 

[Staple1600]

Re

@gh4
Le déjeuner est avalé, le café fume dans la tasse
Donc j'ai le temps pour la macro qui remets les choses dans l'état original

Sub R_A_Z()
Dim F As Worksheet: Set F = ActiveSheet
On Error Resume Next
Selection.ClearOutline: F.ShowAllData: F.AutoFilterMode = 0
End Sub

NB: test OK sur mon PC avec ton fichier Exemple.

 

[gh4]

Re

@gh4
Le déjeuner est avalé, le café fume dans la tasse
Donc j'ai le temps pour la macro qui remets les choses dans l'état original

Sub R_A_Z()
Dim F As Worksheet: Set F = ActiveSheet
On Error Resume Next
Selection.ClearOutline: F.ShowAllData: F.AutoFilterMode = 0
End Sub

NB: test OK sur mon PC avec ton fichier Exemple.

merci 1000 fois pour votre aide tout fonctionne correctement
je vous souhaite une bonne fin de journée et un bon week end
cdt