pb de compilation?

lolo44

XLDnaute Occasionnel
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
 

Pièces jointes

  • Classeur1.xls
    21.5 KB · Affichages: 88
  • Classeur1.xls
    21.5 KB · Affichages: 97
  • Classeur1.xls
    21.5 KB · Affichages: 86

Staple1600

XLDnaute Barbatruc
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 023
Messages
2 084 713
Membres
102 637
dernier inscrit
TOTO33000