Discussion :

[laguernette]

Bonjour,

Je souhaite imprimer une plage au format PDF, le problème avec mon code est que cela imprime aussi les commentaires des cellules. Que dois-je rajouter pour que cela ne soit plus le cas ?

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
Sub SauvCQD()
    Dim plage As Range
    Dim Chemin As String, Fich As String, Fichier As String, CheminComplet As String
    Dim reponse As Integer
 
    Set plage = Feuil5.Range("Horaire").CurrentRegion
 
    Feuil5.PageSetup.PrintArea = plage.Address
 
    Chemin = ThisWorkbook.Path
    Fich = Format(Date, "dd/mm/yyyy") & " à " & Format(Time, "hh""H""mm") 'CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
    Fichier = Format(Feuil5.Range("Jour").Value, "yyyymmdd") & "_" & Format(Date, "yymmdd")
    CheminComplet = Chemin & "\CDQ\" & Fichier & ".pdf"
    If Not RepertoireExiste(Chemin & "\CDQ") Then
        MkDir (Chemin & "\CDQ")
    End If
    ChDir Chemin
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .CenterHeader = "TABLEAU QUOTIDIEN du " & Feuil5.Range("Jour").Value
        .CenterFooter = "Imprimé le : " & Fich
        .PrintComments = xlPrintNoComments
    End With
    Application.PrintCommunication = True
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet, _
        IgnorePrintAreas:=False, Quality:=xlQualityStandard, IncludeDocProperties:=True, OpenAfterPublish:=False 'n'affiche pas le fichier PDF
 
End Sub

[jijie]

sans trop savoir:

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
Sub SauvCQD()
    Dim plage As Range
    Dim Chemin As String, Fich As String, Fichier As String, CheminComplet As String
    Dim reponse As Integer
 
    Set plage = Feuil5.Range("Horaire").CurrentRegion
 
    Feuil5.PageSetup.PrintArea = plage.Address
 
    Chemin = ThisWorkbook.Path
    Fich = Format(Date, "dd/mm/yyyy") & " à " & Format(Time, "hh""H""mm") 'CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
    Fichier = Format(Feuil5.Range("Jour").Value, "yyyymmdd") & "_" & Format(Date, "yymmdd")
    CheminComplet = Chemin & "\CDQ\" & Fichier & ".pdf"
    If Not RepertoireExiste(Chemin & "\CDQ") Then
        MkDir (Chemin & "\CDQ")
    End If
    ChDir Chemin
    'Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .CenterHeader = "TABLEAU QUOTIDIEN du " & Feuil5.Range("Jour").Value
        .CenterFooter = "Imprimé le : " & Fich
        .PrintComments = xlPrintNoComments
    End With
    'Application.PrintCommunication = True
 
    ThisWorkbook.Sheets("Horaire").ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
End Sub

et si tu essaie ainsi :

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
Sub SauvCQD()
    Dim plage As Range
    Dim Chemin As String, Fich As String, Fichier As String, CheminComplet As String
    Dim reponse As Integer
 
    Set plage = Feuil5.Range("Horaire").CurrentRegion
 
 
    Chemin = ThisWorkbook.Path
    Fich = Format(Date, "dd/mm/yyyy") & " à " & Format(Time, "hh""H""mm") 'CreateObject("Scripting.FileSystemObject").GetBaseName(ThisWorkbook.Name)
    Fichier = Format(Feuil5.Range("Jour").Value, "yyyymmdd") & "_" & Format(Date, "yymmdd")
    CheminComplet = Chemin & "\CDQ\" & Fichier & ".pdf"
    If Not RepertoireExiste(Chemin & "\CDQ") Then
        MkDir (Chemin & "\CDQ")
    End If
    ChDir Chemin
 
 
    ThisWorkbook.Sheets("Horaire").ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminComplet _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
End Sub

[laguernette]

Merci pour ta réponse, sauf que je n'ai pas d'onglet s'appelant "Horaire", c'est une cellule de Feuil5 qui s'appelle ainsi, sans oublier que je n'ai plus ni titre ni de bas de page.

J'ai fini par résoudre mon problème. Il m'a simplement suffit de supprimer les lignes :

Code :

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

1
2
   Application.PrintCommunication = False
   Application.PrintCommunication = True