Discussion :

[LotfiB]

Bonsoir
je voudrai envoyer des emails contenus sur une colonne de feuille Excel avec comme titre et body ce qu'il y a sur une autre colonne (parce que Moodle ne fait pas d'envoi automatiques de login qd on enregistre de nouveaux utilisateurs... enfin passons pour Moodle).
Alors j'ai lu et cherché du VBA et j'ai vu sur :
http://silkyroad.developpez.com/VBA/FeuilleDeCalcul/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub envoiPlageCellules_Excel2002() 
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644 
Worksheets("Feuil1").Range("A1:B5").Select ' la plage de cellules à envoyer 
ActiveWorkbook.EnvelopeVisible = True 
With Worksheets("Feuil1").MailEnvelope 
    .Introduction = "bonjour , ci joint les données ..." 
    .Item.To = "destinataire@mail.fr" 
    .Item.Subject = "le sujet" 
    .Item.attachments.Add "C:\dossier\ma piece jointe.txt" 
    .Item.Send 
End With 
End Sub

dès que j'esaye de toucher à ActiveWorkbook.EnvelopeVisible = True ou au mailenveloppe, ça génère une erreur
est ce qu'il y a une protection ou niveau de securité ?
j'arrive à exécuter la macro (selection de celluleà mais pas de mail enveloppe.
Merci pout tte aide
Lotfi

[SilkyRoad]

bonsoir

Quelle erreur?

Tu disposes bien d'Excel2002 (ou ultérieur) ?


michel

[LotfiB]

bonsoir

Quelle erreur?

Erreur d'executiopn 1004
La methode EnveloppeVisible de l'objet _Workbook a échoué

sur
ActiveWorkbook.EnvelopeVisible = True

ou sur

Tu disposes bien d'Excel2002 (ou ultérieur) ?


michel

excel 2003 SP2

[SfJ5Rpw8]

et si sous excel tu clique sur l'enveloppe "Message electronique" dans la barre d'outils standard ..?

[LotfiB]

je ne l'ai pas, c'est ptt ça le pb
où est ce que je devrais voir ce menu exactement ?
ça ressemble à quoi ?

[SfJ5Rpw8]

menu fichier /envoyer vers destinataire