Discussion :

[MicKRub]

Bonsoir,

Est-il possible d'accélérer ou de ne pas afficher la fenêtre publication lors de la création d'une feuille excel en PDF?

J'ai une macros qui s’exécute ,lorsque je ferme (via un bouton) mon fichier excel, afin de sauvegarder mes onglets de janvier à décembre en fichier PDF séparés.

Malheureusement cela prend un peu de temps à l'exécution car la fenêtre "Publication" s'affiche 12 fois. (la publication pour un mois se fait rapidement)

Est-il possible désactiver son affichage ou d'accélérer se processus?

Merci

Bonne soirée et salutations

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
'----- MACRO POUR ENREGISTRER EN PDF LES ONGLETS MOIS DU PLANNING -----
Option Explicit
 
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, _
                                              ByVal pszPath As String, _
                                              ByVal lngsec As Long) As Long
 
Private Function CreationDossier(sDossier) As Long
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function
 
Private Function FeuilleExiste(sNomFeuille As String) As Boolean
    FeuilleExiste = Not (IsError(Evaluate("='" & sNomFeuille & "'!A1")))
End Function
 
Sub CreerMoisPDF()
Dim sRep As String, i As Long
Dim sFilename As String, sNumMois As String
Dim Wsh As Worksheet
 
Application.ScreenUpdating = False
 
sRep = ThisWorkbook.Path & "\" & "Planning_2018_PDF"
CreationDossier sRep
 
    For i = 1 To 12
        sNumMois = i
        sFilename = sNumMois & "_" & MonthName(i)
        For Each Wsh In ThisWorkbook.Worksheets
            If FeuilleExiste(MonthName(i)) Then
                Worksheets(MonthName(i)).Range("CG:CR").EntireColumn.Hidden = False
                Worksheets(MonthName(i)).ExportAsFixedFormat _
                            Type:=xlTypePDF, _
                            Filename:=sRep & "\" & sFilename, _
                            Quality:=xlQualityMinimum, _
                            IncludeDocProperties:=True, _
                            IgnorePrintAreas:=False, _
                            OpenAfterPublish:=False
                Exit For
            End If
        Next Wsh
    Next i
 
End Sub

[kiki29]

Salut, ici sous 2007 aucun problème de ce genre.