Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro pdf mail 1 seul onglet

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jeromeN95
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

jeromeN95

XLDnaute Impliqué
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.


Code: 
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
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
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é
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : macro pdf mail 1 seul onglet

Re, c'est quoi
Code: 
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

Code: 
.Attachments.Add "C:\Documents and Settings\" & Environ("USERNAME") & "\Bureau\" & sNomFichierPDF
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro pdf mail 1 seul onglet

Il me dit Argument ou appel de procedure incorect :

Code: 
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
 
Vote positif 0 Vote négatif
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...
 
Vote positif 0 Vote négatif
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🙂
 
Dernière édition:
Vote positif 0 Vote négatif
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.
Cliquez pour agrandir...

Dès que tu as la solution, pense à la donner, histoire que toutes tes questions puissent aussi nous servir 🙂.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro pdf mail 1 seul onglet

Bonsoir, alors le code est :

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2021 Envoi mail via VBA et Outlook
Réponses
6
Affichages
659
patricktoulon
G
  • Question Question
Microsoft 365 Vba Excel l'instruction Set OutApp = CreateObject("Outlook.Application") bloque excel
Réponses
2
Affichages
908
laurent950
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
849
Phil69970
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
717
Phil69970
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
638
spike29
S
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
828
AtTheOne
N
  • Résolu(e)
XL 2021 Exporter un graphique dans Outlook
Réponses
3
Affichages
650
NLSCt
N
V
  • Résolu(e)
Microsoft 365 Envoie mail automatique
2
Réponses
17
Affichages
2 K
vby
V
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
615
Maxou69
M
K
  • Résolu(e)
XL 2019 Probleme codage
Réponses
2
Affichages
553
Kevin42560
K
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
1 K
halecs93
  • Question Question
XL 2019 HTML Corps de mail
Réponses
6
Affichages
964
My<3
  • Question Question
envoyer un mail depuis excel
2
Réponses
27
Affichages
3 K
Zon
Z
B
  • Question Question
XL 2019 Mail d'alerte automatique contenant tableau si condition remplie
Réponses
2
Affichages
947
fanch55
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
F
  • Résolu(e)
XL 2016 Envoi mail fichier Excel renommer
Réponses
6
Affichages
1 K
FS69
F
B
  • Question Question
XL 2019 Macro - Envoyer des mails depuis un tableau de données
Réponses
3
Affichages
1 K
AtTheOne
Z
  • Question Question
Microsoft 365 code VBA envoie de mail
Réponses
2
Affichages
1 K
kiki29
A
  • Résolu(e)
XL 2021 Macro de création mail de relance avec référence cellules
Réponses
4
Affichages
892
arnoldbrice19
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…