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

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