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

Autres impression pdf excel 2003

gh4

XLDnaute Occasionnel
Bonjour à toutes et tous,
Je suis sur excel 2003. mon prog tourne normalement.
lorsque je demande une impression au format pdf avec n'importe quelle imprimante pdf la page s'imprime bien.
Application.Dialogs(xlDialogPrint).Show
mais après l'impression cela ralentit une autre de mes macros lorsque je la sollicite. je suis obligé de fermer le classeur et de le ré-ouvrir pour que mes macros
redeviennent avec une rapidité normale.
ce ralentissement vient uniquement du fait que j'imprime en pdf.

auriez vous une solution?
d'avance merci
cdt
 
Solution
Salut, à tenter ? ici cela fonctionne : Warum ? ( W10 / imprimante par défaut : Acrobat PDF / Excel 2003 ). Pour la macro "masquer ligne" c'était juste une réaction "épidermique" face à un code inbuvable.

VB:
Sub test_04()
    With Feuil23
        .DisplayPageBreaks = False
        ' La procédure de mise en page/impression
        test_pour_Excel2003
        .DisplayPageBreaks = False
    End With
End Sub
VB:
Option Explicit

Private Sub CommandButton1_Click()
Dim i As Long, LastRow As Long
Dim Lign As Long, colon As Long

    Application.ScreenUpdating = False

    LastRow = Feuil23.Range("B" & Rows.Count).End(xlUp).Row

    Lign = 3
    colon = 2

    For i = LastRow To Lign Step -1
        If Feuil23.Cells(i, colon) = "C" Then...

gh4

XLDnaute Occasionnel
Bonsoir Staple1600,
on en avait deja parler y'a en moment,
quand je croyais que c'etait le fait des copier coller qui ralentissait les macros mais elle ne ralentissent que si et seulement si j'imprime en pdf. si je zappe l'impression pdf tout se passe normalement et je n'ai aucun ralentissement
 

gh4

XLDnaute Occasionnel
ci joint le fichier test avec ce que vous m'aviez préconisé il y a un petit moment
avant de lancer imprim regardez la macro" masquer les lignes" a quelle vitesse elle s’exécute
ensuite lancer la macro" imprim " puis après validation du pdf la macro "masquer les lignes" s’exécute avec une grande lenteur.
j'ai essayer d'imprimer en pdf en dehors de la macro mais le résultat est le même. faut refermer le programme pour retrouver une vitesse normale de la macro "masquer les lignes".
si l'on zappe l'impression la vitesse reste normale.
après avoir lu plusieurs choses sur le net il me semble qu'il y a un problème excel 2003 avec l'impression pdf en vba mais je ne trouve pas de solution pour le résoudre
 

Pièces jointes

  • Classeurtest.xls
    119 KB · Affichages: 12

kiki29

XLDnaute Barbatruc
Salut, à tenter ? ici cela fonctionne : Warum ? ( W10 / imprimante par défaut : Acrobat PDF / Excel 2003 ). Pour la macro "masquer ligne" c'était juste une réaction "épidermique" face à un code inbuvable.

VB:
Sub test_04()
    With Feuil23
        .DisplayPageBreaks = False
        ' La procédure de mise en page/impression
        test_pour_Excel2003
        .DisplayPageBreaks = False
    End With
End Sub
VB:
Option Explicit

Private Sub CommandButton1_Click()
Dim i As Long, LastRow As Long
Dim Lign As Long, colon As Long

    Application.ScreenUpdating = False

    LastRow = Feuil23.Range("B" & Rows.Count).End(xlUp).Row

    Lign = 3
    colon = 2

    For i = LastRow To Lign Step -1
        If Feuil23.Cells(i, colon) = "C" Then
            Feuil23.Rows(i).EntireRow.Hidden = True
        End If
    Next i

    Feuil23.Columns("A:B").EntireColumn.Hidden = True
    Feuil23.Columns("G:G").EntireColumn.Hidden = True

    Feuil23.Cells(4, 11).Select
    Unload Me
    Application.ScreenUpdating = True
End Sub
 
Dernière édition:

gh4

XLDnaute Occasionnel
Merci beaucoup Kiki29 je croyais mon cas désespéré
comme quoi une petite phrase peu tout changer
.DisplayPageBreaks = False grâce à ça plus de ralentissement tout marche impeccablement
encore merci et bonne soirée
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…