Bonjour,

Je souhaite éditer un rapport PDF depuis un fichier Excel. Pour cela, j'ai créé la macro suivante que j'ai affectée à un bouton :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Edition_Rapport()
Sheets("Diag - Modèle relationnel").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Windows\Temp\" & "Diagnostic_Rapport" & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
Sheets("Diag - RH").Select
    Range("A1").Select
End Sub

Le problème c'est que lorsque le document PDF est édité, le zoom est beaucoup trop élevé, je suis obligé de le régler manuellement dans le doc publié.

Sauriez-vous quelle instruction ajouter pour faire en sorte que le PDF soit édité avec un zoom à 25% (au lieu de 125% actuellement) ? Vous trouverez en pièce jointe le fichier concerné
PJ_forum vba.xlsm

Merci beaucoup d'avance pour votre aide,