Enregistrer un formulaire en PDF et l'envoyer par mail Fermé

Question

Bonjour,

Je souhaiterais ,via le clic d'un bouton, enregistrer sous format PDF un formulaire et envoyer celui-ci directement par mail.
A vrai dire, je suis un peu paumé sur le sujet... Quelqu'un aurait-il une solution à m'apporter, s'il vous plait ?
Merci de vos réponses.
Je@n

cs_Le Pivert · Answer

Bonjour,

voir ceci:


 https://excel-malin.com/codes-sources-vba/envoyer-un-email-avec-excel/

#jquem# · Answer

Bonjour et merci pour votre réponse. Tout cela va énormément me servir pour d'autres documents.
Pour celui-ci, ma préoccupation est :
- d'enregistrer le formulaire en PDF
- que ce formulaire en PDF soit directement mis en pièce jointe et envoyé par mail (est-ce le même procédé que pour excel ?)

Ce fichier est un QCM. Il s'ouvre automatiquement sur le formulaire de réponses (ce dernier est protégé par un mot de passe afin d'éviter que chacun puisse aller sur excel). Je crains que si tout le fichier est envoyé par mail, il s'ouvre sur le formulaire vierge. C'est pourquoi j'ai absolument besoin que seul le PDF soit envoyé.

Merci à nouveau pour votre aide.

#jquem# · Answer

Merci pour cette solution. 
J'ai copié ces codes et modifié certains paramètres propres à mon fichier (voir détail à la fin de ma réponse)
Toutefois, lorsque je clique sur mon bouton, un message d'erreur s'affiche dans une fenêtre : 
"Erreur de compilation"
"Type défini par l'utilisateur non défini"

J'ai mis un "*"  devant les phrases concernées 

1 * oOutlook As Outlook.Application est surbrillé en bleu 

Après avoir cliqué "OK" sur le message, la phrase ci-dessous est surbrillée en jaune.

2 * Sub EnvoyerEmail(ByVal Sujet As String, ByVal Destinataire As String, ByVal ContenuEmail As String, Optional ByVal PieceJointe As String)
'par Excel-Malin.com ( https://excel-malin.com )

On Error GoTo EnvoyerEmailErreur

'définition des variables
1 * Dim oOutlook As Outlook.Application
Dim WasOutlookOpen As Boolean
Dim oMailItem As Outlook.MailItem
Dim Body As Variant

Les seules modifs que j'ai faites sont :
Le nom de l'onglet à enregistrer (nom du formulaire)
Mon adresse mail dans MonDestinataire

Ai-je fait une erreur ?

Merci pour votre réponse.

Je@n

#jquem# · Answer

Je le trouve où dans Outlook ?

Je suis allé dans Options Outlook. Je suppose que c'est là... mais plus précisément ?

Merci

Je@n

#jquem# · Answer

Bonsoir, 
Ca a l'air de marcher 
J'ai cliqué sur Microsoft Outlook 16.0 Object Library (peut une version différente...)

Question : si je passe ce document à un confrère via une clé USB par exemple, doit-il de son côté faire la même manipulation s'il souhaite faire fonctionner ce formulaire sur son PC ?

Merci pour votre réponse et encore pour votre aide. Je finalise mon document et mettrai cet échange comme solutionné dès que je me serai assuré que tout fonctionne bien.

Bien cordialement

Je@n

#jquem# · Answer

Ce format me satisfait pleinement à titre personnel.

Par contre, je vais paraitre un peu "capricieux", mais y a-t-il une autre solution (codage) pour éviter de passer par l'intégration de Microsoft Outlook 16.0 Object Library ?

Ce fichier va passer par le PC de 10 managers et d'une soixantaine de commerciaux... je crains que cette manipulation n'en rebute quelques uns (l'intégration de "Développeur" dans le ruban semblant déjà pour beaucoup mission incroyable...).

Quoiqu'il en soit, merci infiniment pour votre aide, j'ai beaucoup appris.

Pour les PDF, je les retrouve sur  mon bureau.

Cdt, Je@n

#jquem# · Answer

J'ai mis en tant que "nom de l'onglet à enregistrer" "Feuil1" (feuille d'excel ou apparaissent les résultats. Le problème est que le PDF retient tout de cette feuille (11 feuilles en PDF).

Est-il possible de ne retenir qu'une partie que j'aurais renommée "Résultats" ? 

Comment faut-il l'écrire ? SVP

Merci pour votre prochaine réponse

#jquem# · Answer

Merci pour votre réponse sur le VBA et VB.Net.

Je vais essayer cette version.
Inutile de vous préciser que je suis novice et autodidacte, d'où mes méconnaissances et mes nombreuses questions... mais il n'y a qu'en faisant et en se référant à des personnes compétentes qu'on apprend.

merci encore.

Je@n

#jquem# · Answer

Bonjour, on y est presque. J'ai suivi vos conseils et liens. 
Je vous mets ci-dessous ce que j'ai :

Option Explicit
Sub test() 'enregistre 1 page
Dim Rg As Range
Set Rg = ActiveSheet.Range("A1:E25") 'a adapter la plage de cellule
    Rg.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                           ThisWorkbook.Path & "\essai.pdf", _
                           Quality:=xlQualityStandard, _
                           IncludeDocProperties:=True, _
                           IgnorePrintAreas:=False, _
                           OpenAfterPublish:=False
    Set Rg = Nothing
    MsgBox "votre PDF essai est enregistré dans le même dossier que ce classeur.", vbOKOnly + vbInformation, "Enregistrement en PDF"
End Sub

Sub EnvoiMail()

Set MyOlApp = CreateObject("Outlook.Application")
ActiveWorkbook.Save
Filename = ActiveWorkbook.FullName
Set mymail = MyOlApp.CreateItem(olMailItem)

test = Cells(30, 1).Value
If test = "" Then
MsgBox ("Vous n'avez pas saisi d'expéditeur...")

Else

'recherche des adresse email destinataire dans les cases EXCEL de la feuille utilisée
Destinataire = Cells(30, 1).Value & ";" & Cells(31, 1).Value & ";" & Cells(32, 1).Value & ";" & Cells(33, 11).Value & ";" & Cells(34, 1).Value
'ajout au bon endroit des adresses emails précédemment définies
Set MyRecipient = mymail.Recipients.Add(Destinataire)
'définition de la case dans laquelle se trouve l'obejt de mon email
mymail.Subject = Cells(28, 1).Value & " " & Cells(29, 1).Value & " => REPONSE QCM"
'Ecriture de l'email type, avec rajout des cellules variables saisies dans EXCEL si besoin
mymail.Body = " Bonjour," & vbLf & vbLf & "Tu trouveras ci joint la réponse en PDF du QCM Chirurgie :" & vbLf & vbLf & "Expéditeur :" & Cells(30, 1).Value & " " & Cells(1, 1).Value & " " & Cells(29, 1).Value & " " & Cells(4, 4).Value & vbLf & "Dépose à quai  " & vbLf & "Destinataire Final : " & Cells(4, 6).Value & vbLf & "Métrage : " & Cells(4, 8).Value & vbLf & "Poids : " & Cells(4, 9).Value & vbLf & "Nb Palettes : " & Cells(4, 10) & vbLf & "Enlèvement à prévoir le " & Cells(4, 11).Value & ", " & Cells(4, 12).Value
mymail.Display
End If

End Sub

J'avais dans un premier temps installé le "Sub EnvoiMail" et le mail partait effectivement bien, mais sans pièce jointe (normal, le "Sub test" n'était pas encore installé).

j'ai donc installé le "Sub test", le fichier s'enregistre bien en PDF, mais le PC me laisse un message "Erreur de compilation - Variable non définie". 
Cela surbrille sub EnvoiMail et Set MyOlApp.

Pourriez vous m'expliquer s'il vous plait où et comment résoudre de problème. Je pense qu'il n'y a pas grand chose, mais je coince.

Merci beaucoup

Je@n

#jquem# · Answer

Bonsoir,

J'en suis arrivé à bout. Heureusement que vous étiez là pour me guider cs_Le Pivert.

Un grand MERCI !!!!

Je@n