Sauvegarde de l'aperçu avant impression

Bonjour ! a tous . voici ma question, je souhaiterai sauvegarder automatiquement la ou les vues de l'aperçu avant Impression.

Cet aperçu peut avoir une feuille ou plusieurs, en fonction du tableau .

J'ai réaliser une Macro avec une formule Sauvegarder mais hélas rien ne fonctionne comme souhaité .

Pouvez vous m'aider a réaliser cette formule .

Cordialement

Sub impression_fin_du_concours()

' bouton 210

Dim Plage As Variant

Dim Chemin As String, Fichier As String

Range("B5:B155").Select

‘’’’’ recherche première cellule vide ‘’’’’’’’’’’’’

Selection.AutoFilter

Selection.AutoFilter Field:=1, Criteria1:="<>"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Selection.AutoFilter

'''''formule pour sauvegarder uniquement l’aperçu du filtre ‘’’’’’’

Chemin = "C:\Documents\Mes documents"

Sheets("Tableau Tournante").Copy

Fichier = "Tableau Tournante" & Format(Date, " dd-mmm-yyyy") & ".xls"

ActiveWorkbook.SaveAs Filename:=Chemin & Fichier, _

FileFormat:=xlExcel8, CreateBackup:=False

‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’

Range("l1").Select

End Sub

Bonsoir,

Pas vu dans le détail ta demande, mais pour conserver une vue de ce que tu vas imprimer, il me semble que la meilleure solution est d'en faire un enregistrement en pdf.

Cordialement.

Bonjour M.Ferrand, pour sauvegarder l'aperçu du tableau je vais voir une formule comme tu dis en PDF .

Merci pour ton aide

Rechercher des sujets similaires à "sauvegarde apercu impression"