Novice avance !?
XLDnaute Occasionnel
bonjour,
voici une simple macro exemple qui préparre l'envoi du fichier en pièce jointe et à un destinataire précis par mail:
Sub Macro1()
Range("B3").Select
ActiveCell.FormulaR1C1 = "5"
ChDir "C:\Documents and Settings\xxx\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxx\Classeur1.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show "aaaa@yahoo.fr"
End Sub
quelle ligne de code manque-t-il pour que l'envoi soit effectif puisque là outlook s'ouvre... il y a bien le mail du destinataire en place et bien le fichier en piève jointe mais il faut cliquer manuellement sur envoyer pour envoyer le mail !?
est-ce possible !?
merci par avance
voici une simple macro exemple qui préparre l'envoi du fichier en pièce jointe et à un destinataire précis par mail:
Sub Macro1()
Range("B3").Select
ActiveCell.FormulaR1C1 = "5"
ChDir "C:\Documents and Settings\xxx\"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxx\Classeur1.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show "aaaa@yahoo.fr"
End Sub
quelle ligne de code manque-t-il pour que l'envoi soit effectif puisque là outlook s'ouvre... il y a bien le mail du destinataire en place et bien le fichier en piève jointe mais il faut cliquer manuellement sur envoyer pour envoyer le mail !?
est-ce possible !?
merci par avance