pb de compilation?

[lolo44]

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]

Re : pb de compilation?

Bonsoir

En remplaçant les ' par des "

Ca devrait fonctionner

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]

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