XL 2010 USER FORM VERS PDF

[Loulou13300]

Bonjour,

Voici mon Userform en PJ, je souhaite que lorsque j'appuie sur le bouton PDF, ce dernier enregistre mon Userform sous le format PDF afin de pouvoir ensuite l'imprimer.

J'ai vraiment besoin d'aide car je n'y arrive absolument pas malgré le fait que je regarde tous les forums.

Merci d'avance.

 

[patricktoulon]

bonjour kiki69
un petit ajout qui pourrait t'etre utile
dans le pagesetup

Set shap =Activesheet.Shapes(1)
.Orientation = IIf(shap.Width / shap.Height > shap.Height / shap.Width, xlLandscape, xlPortrait)

ou meme simplement

 .Orientation = IIf(Me.Width / Me.Height > Me.Height / Me.Width, xlLandscape, xlPortrait)