macro pdf mail 1 seul onglet

[jeromeN95]

Bonjour à tous.
J'ai un fichier comprenant plusieur onglet.
Je souhaite crée un bouton sur chaque feuille qui me permet d'envoyer la feuille active par mail (non défini) en en format PDF.
Un bout de code commencer fonctionnant parfaitement mais il m'envoie tout le fichier en .xls...

Je travail avec Outlook.

Sub PDF_with_outlook() 'Transferer feuille active en PDF         +FT produits ?
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String
Dim strsub As String, strbody As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.createitem(0)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
strto = "jerome.xxx@xxx.com" 'déstinataire         FAX?
strsub = "Etude " 'nom
strbody = "Bonjour" & vbNewLine & vbNewLine & _
"Voici l'étude de " & vbNewLine & vbNewLine & _
"" & vbNewLine & vbNewLine & _
"Cordialement, " & vbNewLine & vbNewLine & _
" " & [RS] 'signature
With OutMail
.To = strto
.CC = strcc
.Subject = strsub
.Body = strbody
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
End Sub

 

[jeromeN95]

Re : macro pdf mail 1 seul onglet

Oui mais le problème est que le fichier va etre transmit a des collège qui n'ont pas le meme nom que moi...
Et puis je souahite le Killer aprés le .pdf

Merci de ton soutient, ca fait plaisir.

 

[kiki29]

Re : macro pdf mail 1 seul onglet

Re,voir aide en ligne sur Kill
Tu n'as pas regardé dans mon post précédent la 2eme référence que je t'ai donné

 

[jeromeN95]

Re : macro pdf mail 1 seul onglet

ué merci, je regarde.

 

[kiki29]

Re : macro pdf mail 1 seul onglet

Re,j'avais oublié pour l'UserName utiliser

Environ("USERNAME")

 

[jeromeN95]

Re : macro pdf mail 1 seul onglet

par contre je ne veut pas utiliser :
Cocher PDFCreator
Cocher Microsoft CDO for Exchange xxxx Library

C'est le nom du pc Environ("USERNAME")?

 

[kiki29]

Re : macro pdf mail 1 seul onglet

Re, tu auras le nom de login windows de l'utilisateur ,ne pas confrondre avec username sous VBA qui te donnes le nom utilisé pour l'attribution de la licence lors de l'insatllation d'Office

 

[jeromeN95]

Re : macro pdf mail 1 seul onglet

Ah ok, mais pour le nom du fichier?
Il change...

 

[kiki29]

Re : macro pdf mail 1 seul onglet

Re, c'est quoi

nompdf = Left(NomExcel, Len(NomExcel)) & " " & [A28] & ".pdf"

J'ignore comment est construit ton appli, mais il faut utiliser des variables externes à tes procédures qui garderont une trace du chamin et du nom de ton fichier,cela te permettant de faire

.Attachments.Add "C:\Documents and Settings\" & Environ("USERNAME") & "\Bureau\" & sNomFichierPDF

 

[jeromeN95]

Re : macro pdf mail 1 seul onglet

Il me dit Argument ou appel de procedure incorect :

Sub Envoi() 'envoie pdf feuille active
Dim OutMail As Object
Dim strto As String, strcc As String
Dim strsub As String, strbody As String
  

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.createitem(0)
strto = "jerome.prevost@prohygieneservice.com" 'déstinataire
If [F28] = "" Then
strcc = ""
Else
strcc = "Fax=" & Range("F28") & "@faxagence.net" 'déstinataire fax client
End If
strsub = "Etude " & Range("A28") 'nom+etablissement
strbody = "Bonjour" & " " & Range("B1") & vbNewLine & vbNewLine & _
"Voici l'étude de " & Range("A28") & vbNewLine & vbNewLine & _
"" & vbNewLine & vbNewLine & _
"Cordialement, " & vbNewLine & vbNewLine & _
" " & GetLoginName 'signature
'GetLoginName = Replace(strName, ".", " ")          'BUG objet
With OutMail
.To = strto
.CC = strcc
.Subject = strsub
.Body = strbody
.Attachments.Add Environ("USERNAME") & "\" & sNomFichierPDF
.Display
End With
ActiveWorkbook.Close 0
    Application.DisplayAlerts = False
    Application.DisplayAlerts = True

Kill sNomFichierPDF

End Sub

 

[kiki29]

Re : macro pdf mail 1 seul onglet

Re,rafraichir le post via [F5] ,à plus

 

[jeromeN95]

Re : macro pdf mail 1 seul onglet

oki, merci mais j'ai mis cela car ca fonctionne pas.
.Attachments.Add "C:\Documents and Settings\" & Environ("USERNAME") & "\Bureau\" & Left(NomExcel, Len(NomExcel)) & " " & [A28] & " .pdf"""

et là non plus, chemin introuvable...

 

[Paritec]

Re : macro pdf mail 1 seul onglet

Bonjour Philippe🙂, Jerôme,
je pense que Jérôme ne nous dit pas tout!!!
Erreur :j'avais pas vu le post 14 alors j'efface tout
a+
papou🙂

 

[jeromeN95]

Re : macro pdf mail 1 seul onglet

Bon, j'y suis a moitié arriver mais je pense que ca devrais allez.
merci a tous.

 

[MJ13]

Re : macro pdf mail 1 seul onglet

Re, Bonjour à tous (oups je croyais que c'était pour ucase mais c'est pareil 😉)

Bon, j'y suis a moitié arriver mais je pense que ca devrais allez.

Dès que tu as la solution, pense à la donner, histoire que toutes tes questions puissent aussi nous servir 🙂.

 

[jeromeN95]

Re : macro pdf mail 1 seul onglet

Bonsoir, alors le code est :

Sub Envoi() 'envoie pdf feuille active
ToPdf
Dim OutMail As Object
Dim strto As String, strcc As String
Dim strsub As String, strbody As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.createitem(0)
strto = "jerome.xxx@xxx.com" 'déstinataire
If [F28] = "" Then
strcc = ""
Else
strcc = "Fax=" & Range("F28") & "@faxagence.net" 'déstinataire fax client
End If
strsub = "Etude " & Range("A28") 'nom+etablissement
strbody = "Bonjour" & " " & Range("B1") & vbNewLine & vbNewLine & _
"Voici l'étude de " & Range("A28") & vbNewLine & vbNewLine & _
"" & vbNewLine & vbNewLine & _
"Cordialement, " & vbNewLine & vbNewLine & _
" " & GetLoginName 'signature
With OutMail
.To = strto
.CC = strcc
.Subject = strsub
.Body = strbody
.Attachments.Add "C:\Documents and Settings\" & Environ("USERNAME") & "\Bureau\" & [A28] & ".pdf"
.Display
End With
Kill "C:\Documents and Settings\" & Environ("USERNAME") & "\Bureau\" & [A28] & ".pdf"
End Sub

Merci à tous