Bonjour,
Voici une macro que j'utilise afin de sauvegarder et imprimer mon classeur (20 feuilles) pour le Mois complet.
Il sauvegarde en gardant les formats impressions du Classeur et Imprime l'ensemble sans erreur.
Je précise qu'il n'est pas de moi, je l'ai trouvé sur le forum.
Cela peut aider, je pense.
Sub PdfMOIS()
Dim nom As String
Dim dossier As String
'emplacement a derterminée
If MsgBox(" Générer le PDF du Mois ?", vbYesNo, _
"Demande de confirmation") <> vbYes Then Exit Sub
dossier = ChoixDossier
If dossier = "" Then Exit Sub
nom = dossier & "\" & Range("B2")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Function ChoixDossier()
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = ""
End If
End With
Else
ChoixDossier = InputBox("Choix du Répertoire ?")
End If
End Function
Bon courage.
DARYL.B