XL 2010 ralentissement programme

gh4 · 14 Octobre 2022

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

Staple1600 · 15 Octobre 2022

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

VB:

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 · 15 Octobre 2022

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 · 15 Octobre 2022

RE

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

VB:

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 · 15 Octobre 2022

@gh4

gh4¸ un peu tête en l'air à dit:
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 · 15 Octobre 2022

excel 2003
j'ai supprimé a ligne

Staple1600 à dit:
@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 · 15 Octobre 2022

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 · 15 Octobre 2022

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

VB:

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 · 15 Octobre 2022

Staple1600 à dit:
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

VB:

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

XL 2010 ralentissement programme

gh4

XLDnaute Occasionnel

Staple1600

gh4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

gh4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

gh4

XLDnaute Occasionnel

Discussions similaires