Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
envoyé le PDF et le fichier excel, cela avec une macro
89 views
Skip to first unread message
pellet15
Jun 24, 2012, 11:48:11 AM6/24/12
to
Bonjour à tous
J'ai un fichier excel que je sauvegarde en pdf
dans le dossier C:\Data\monfichier.pdf .
1: je voudrait l'envoyé par email avec une macros
les adresse d'envoie sont dans
Sheets("Feuille_insp").[A3]
2: et envoyé le fichier excel a un autre adresse
Sheets("Feuille_insp").[A2]
présentement j'ai la procédure suivante pour envoyé le fichier excel:
----
Dim Subject As String, Attention As String
Subject = "Inspection du " & Date
Attention = Sheets("Feuille_insp").[A2]
Application.Dialogs(xlDialogSendMail).Show Attention, Subject
-----
Quoi faire pour envoyé la premier etape le PDF avant d'envoyé le fichier excel
Merci
J'ai un fichier excel que je sauvegarde en pdf
dans le dossier C:\Data\monfichier.pdf .
1: je voudrait l'envoyé par email avec une macros
les adresse d'envoie sont dans
Sheets("Feuille_insp").[A3]
2: et envoyé le fichier excel a un autre adresse
Sheets("Feuille_insp").[A2]
présentement j'ai la procédure suivante pour envoyé le fichier excel:
----
Dim Subject As String, Attention As String
Subject = "Inspection du " & Date
Attention = Sheets("Feuille_insp").[A2]
Application.Dialogs(xlDialogSendMail).Show Attention, Subject
-----
Quoi faire pour envoyé la premier etape le PDF avant d'envoyé le fichier excel
Merci
DanielCo
Jun 24, 2012, 1:25:20 PM6/24/12
to
Bonjour,
Quel est ton logiciel de messagerie ?
Cordialement.
Daniel
Quel est ton logiciel de messagerie ?
Cordialement.
Daniel
pellet15
Jun 24, 2012, 2:24:53 PM6/24/12
to
Bonjour DanielCo
Outlook avec exchange au travail et a la maison WindowsLiveMail
Pour ce qui est de l'envoie de excel ca va bien ces celui du PDF ???
Merci
Outlook avec exchange au travail et a la maison WindowsLiveMail
Pour ce qui est de l'envoie de excel ca va bien ces celui du PDF ???
Merci
Gloops
Jun 24, 2012, 3:17:02 PM6/24/12
to
Bonjour,
La recherche à taper dans Google est "VBA envoi mail Outlook"
et là on a ça qui est bien référencé :
http://olivier-bureautique.blogspot.fr/2009/07/excel-2007-vba-envoyer-un-email-via.html
sauf que comme tu as deux fichiers à envoyer, la commande
Attachments.Add va devoir être utilisée deux fois d'affilée, en donnant
chaque fois le chemin vers un des deux fichiers. ça pourrait être pas
mal de mettre les deux dans un ZIP, mais ça nous entraîne dans d'autres
considérations pour maîtriser les commandes en ligne d'un programme ZIP,
donc c'est peut-être mieux que je te laisse chercher et au besoin ouvrir
un autre fil.
A toi d'organiser ton classeur pour qu'au moment où tu déclenches
l'envoi du mail les deux fichiers aient été sélectionnés par
l'utilisateur. ça pourrait être pratique de placer les deux chemins l'un
sous l'autre, pour que l'utilisateur puisse avoir une vue d'ensemble. ça
n'empêche pas de les avoir aussi ailleurs, si c'est plus logique pour
d'autres aspects du traitement.
Au passage, dans la page proposée ci-dessus, tu notes l'instruction
Application.GetOpenFileName, qui affiche une boîte de dialogue pour
demander à l'utilisateur de choisir le fichier. Il sera
vraisemblablement préférable de l'afficher une fois pour chacun des deux
fichiers.
_______________________________________
La recherche à taper dans Google est "VBA envoi mail Outlook"
et là on a ça qui est bien référencé :
http://olivier-bureautique.blogspot.fr/2009/07/excel-2007-vba-envoyer-un-email-via.html
sauf que comme tu as deux fichiers à envoyer, la commande
Attachments.Add va devoir être utilisée deux fois d'affilée, en donnant
chaque fois le chemin vers un des deux fichiers. ça pourrait être pas
mal de mettre les deux dans un ZIP, mais ça nous entraîne dans d'autres
considérations pour maîtriser les commandes en ligne d'un programme ZIP,
donc c'est peut-être mieux que je te laisse chercher et au besoin ouvrir
un autre fil.
A toi d'organiser ton classeur pour qu'au moment où tu déclenches
l'envoi du mail les deux fichiers aient été sélectionnés par
l'utilisateur. ça pourrait être pratique de placer les deux chemins l'un
sous l'autre, pour que l'utilisateur puisse avoir une vue d'ensemble. ça
n'empêche pas de les avoir aussi ailleurs, si c'est plus logique pour
d'autres aspects du traitement.
Au passage, dans la page proposée ci-dessus, tu notes l'instruction
Application.GetOpenFileName, qui affiche une boîte de dialogue pour
demander à l'utilisateur de choisir le fichier. Il sera
vraisemblablement préférable de l'afficher une fois pour chacun des deux
fichiers.
_______________________________________
pellet15
Jun 25, 2012, 9:29:48 AM6/25/12
to
Pour être plus claire il me manque la ligne pour attacher mon fichier PDF ??
J'ai dans ma procedure suivante la sauvegarde en PDF que je veut envoye....
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Data\MTQ\Patrouille_GPS_MTQ.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Merci
J'ai dans ma procedure suivante la sauvegarde en PDF que je veut envoye....
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Data\MTQ\Patrouille_GPS_MTQ.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Merci
DanielCo
Jun 25, 2012, 11:56:48 AM6/25/12
to
Avec OutLook :
Sub Mail()
Set olApp = CreateObject("Outlook.application")
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Subject1"
.Body = "Body1"
.Recipients.Add Sheets("Feuille_insp").[A3]
.Attachments.Add "C:\Data\MTQ\Patrouille_GPS_MTQ.pdf"
.Send
End With
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Subject2"
.Body = "Body2"
.Recipients.Add Sheets("Feuille_insp").[A22]
.Attachments.Add ThisWorkbook.FullName
.Send
End With
End Sub
Daniel
Sub Mail()
Set olApp = CreateObject("Outlook.application")
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Subject1"
.Body = "Body1"
.Recipients.Add Sheets("Feuille_insp").[A3]
.Attachments.Add "C:\Data\MTQ\Patrouille_GPS_MTQ.pdf"
.Send
End With
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Subject2"
.Body = "Body2"
.Recipients.Add Sheets("Feuille_insp").[A22]
.Attachments.Add ThisWorkbook.FullName
.Send
End With
End Sub
Daniel
pellet15
Jun 25, 2012, 2:07:24 PM6/25/12
to
Bonjour Daniel
J'ai WindowsLiveMail a la maison et cela ne fonctionne pas....
Comment y remédier?
Merci
J'ai WindowsLiveMail a la maison et cela ne fonctionne pas....
Comment y remédier?
Merci
DanielCo
Jun 25, 2012, 2:29:36 PM6/25/12
to
DanielCo
Jun 25, 2012, 3:09:17 PM6/25/12
to
pellet15
Jun 25, 2012, 7:56:05 PM6/25/12
to
je regarde cela, mais un peut complique ...
je vais y travailler...
Merci
DanielCo
Jun 26, 2012, 4:01:47 AM6/26/12
to
> bonsoir Daniel
>
> je regarde cela, mais un peut complique ...
> je vais y travailler...
>
> Merci
La partie intéressante, dans le PDF en français, c'est "l'envoi
>
> je regarde cela, mais un peut complique ...
> je vais y travailler...
>
> Merci
d'e-mails en CDO", paragraphe VI-A.
Daniel
0 new messages