pb de compilation?

lolo44 · 22 Avril 2008

Bonjour,
j'essaie d'envoyer une plage de cellule (A1-B6) par mail mais ça me donne une erreur de compilation.
Je ne m'y connais pas trop.
Pourriez vous m'aider, merci
si vous pouviez me la mettre sur mon fichier, ce serait sympa
voilà ce que j'ai mis :
Sub envoiPlageCellules_XP()
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
ActiveSheet.Range('A1:B6').Select '
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = 'bonjour , ci joint les données ...'
.Item.To = 'agostiniloic@yahoo.fr'
.Item.Subject = 'le sujet'
.Item.Send
End With
End Sub

Staple1600 · 22 Avril 2008

Re : pb de compilation?

Bonsoir

En remplaçant les ' par des "

Ca devrait fonctionner

Code:

Sub envoiPlageCellules_XP()
'http://support.microsoft.com/default.aspx?scid=kb;en-us;816644
ActiveSheet.Range("A1:B6").Select '
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "bonjour , ci joint les données ..."
.Item.To = "agostiniloic@yahoo.fr"
.Item.Subject = "le sujet"
.Item.Send
End With
End Sub

lolo44 · 22 Avril 2008

Re : pb de compilation?

Lorsque j'exécute la macro , il me met une erreur d'exécution '1004'
La méthode'EnvelopeVisible'de l'objet'_workbook' a échoué

Que dois-je faire?
Merci

pb de compilation?

lolo44

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

lolo44

XLDnaute Occasionnel

Discussions similaires