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