Enregistrement fichier et envoi en .csv

[rjcb]

Bonjour,

J'ai réussi une macri me permettant d'envoyer un fichier atacher excel:


Private Sub mail_Click()
Dim ch As Integer

ch = MsgBox("Etes-vous sûr d'envoyer le mail maintenant?", vbYesNo, "ENVOI Mail")

ActiveWorkbook.SendMail Recipients:=Sheets("Feuil2").Range("nomMail").Value, Subject:="fichier test"

End Sub


Par contre cela ne va pas totalement.
Je voudrais rajouter un bouton pour l'enregistrement où la macro me demande où je veux l'enregistrer le fichier puis pour l'envoi, il faudrait que cela envoie juste la feuille1 et pas la macro et tout cela en .csv.

Est ce possible?

Merci beaucoup. 😉

 

[kiki29]

Re : Enregistrement fichier et envoi en .csv

Envoie une feuille ShIntervention sauvée en Intervention.xls sans les macros qu'elle peut contenir
puis la détruit à l'issue de l'envoi en PJ
A toi de faire le reste : chemin de sauvegarde différent, sauvegarde en csv , non destruction

 

[rjcb]

Re : Enregistrement fichier et envoi en .csv

Ok merci,

mais à:
Dim CdoMessage As CDO.Message j'ai le message

erreur de compilation:

donc je pense qu'il faut faire ceci:

Menu VBE Outils | Références : Cocher Microsoft CDO for Exchange XXXX Library
' Microsoft Visual Basic for Applications Extensibility 5.X

Mais je ne trouve pas ces options dans VB.

Merci

 

[kiki29]

Re : Enregistrement fichier et envoi en .csv

j'ai placer un exemple en lieu et place du code

 

[rjcb]

Re : Enregistrement fichier et envoi en .csv

J'ai télécharger votre fichier, lorsque je clique sur Email Feuille2
j'ai un message d'erreur excel "erreur400"
Je fais alt F11 pour voir le code:

et cela blooque à
Dim CdoMessage As CDO.Message

.

Merci

 

[kiki29]

Re : Enregistrement fichier et envoi en .csv

Menu VBE Outils | Références :
Cocher Microsoft CDO for Exchange XXXX Library
Microsoft Visual Basic for Applications Extensibility 5.X

Sinon voir Example Code for sending mail from Excel

Pour ton bout de code "recipients" désigne le ou les destinataires ...