Exportez mon UserForm en fichier PDF

Mathieu_D · 18 Mars 2014

Bonjour à toute l'équipe,

J'ai effectué beaucoup de recherches pour résoudre mon problème mais rien n'y fait, je ne trouve pas ce qui me correspond 😕

Je souhaitrais qu'en cliquant sur mon bouton "EXPORT PDF", mon userform sois comme "print screené" et convertis en fichier PDF que je puisse envoyez à l'une ou l'autre personne.

Je vous joins un fichier pour illustrer mon problème.

Je vous remercie d'avance pour me retirer l'épine du pied.

Bien à vous

Mathieu_D

xhudi69 · 18 Mars 2014

Re : Exportez mon UserForm en fichier PDF

Bonjour Mathieu_D, le Forum,

A mettre dans un bouton:

Code:

Private Sub CommandButton2_Click()
Dim Ws As Worksheet

fichier2 = "C:\Users\Production\Desktop\MonImage.JPG"

keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents

Set Ws = Sheets.Add
Ws.Name = "IMP"
With ActiveSheet.ChartObjects.Add(0, 0, 466, 339).Chart
     .Paste
     .Export fichier2, "jpg" 'sTemp & "\" & fichier2, "JPG"
     .Parent.Delete
End With
Unload Me

    Set objOL = CreateObject("Outlook.Application")
    Set oBjMail = objOL.CreateItem(olMailItem)
With oBjMail
    .To = "LeClient@gmail.com" ' le destinataire
    .Subject = "Bilan"          ' l'objet du mail
    .Attachments.Add fichier2
    '.Body = "Trouves ici le Bilan de cette affaire"
    '.HTMLBody = "<html><p>Bilan Horaire pour cette Affaire:</p>" & Chr(13) & "<img src='" & fichier2 & "'</BODY></HTML>"
    .HTMLBody = "<html><body><p>Bilan Horaire pour cette Affaire:</p>" & Chr(13) & "<img src='" & fichier2 & "'</body></html>"
    oBjMail.Display
End With

Application.DisplayAlerts = False
Sheets("IMP").Delete
'Kill fichier2
Application.DisplayAlerts = True
End Sub

Ton UserForm sera envoyé dans le Body du mail et en pièce jointe sous form d'image, si cela convient.

@+😎

Mathieu_D · 18 Mars 2014

Re : Exportez mon UserForm en fichier PDF

Autant pour moi, je vais reformuler:

je souhaitrais simplement obtenir un fichier pdf que je puisse enregistrer dans mes dossiers.

Pour ce qui est des envois par mail, on oublie ^^

En tout cas merci pour la réponse déjà fournie

🙂

xhudi69 · 18 Mars 2014

Re : Exportez mon UserForm en fichier PDF

Bonsoir Mathieu_D, le Forum,

Je viens de rentrer 😛, alors vite fait......en PJ ton fichier remanié.

@+

Mathieu_D · 19 Mars 2014

Re : Exportez mon UserForm en fichier PDF

Hip Hip Hourra pour Xhudi69, ça fonctionne.

Mon seul regret: que tu ne sois pas rentré plus tot 😱

Un tout grand merci 🙂

Effectuez une recherche sur Excel Downloads...

Exportez mon UserForm en fichier PDF

Mathieu_D

XLDnaute Nouveau

Pièces jointes

xhudi69

XLDnaute Accro

Mathieu_D

XLDnaute Nouveau

xhudi69

XLDnaute Accro

Pièces jointes

Mathieu_D

XLDnaute Nouveau

Discussions similaires

Nous accordons de l'importance à votre vie privée