VBA Excel envoie mail

Bonjour,

J'ai un problème avec ma macro.

Mon but est de sélectionner des informations dans une feuille excel et de l'envoyer après par mail.

Ma macro fonctionne mais qu'une fois, je ne peux pas l'utiliser plusieurs fois sans fermer le fichier.

Aider moi svp!!!

Sub Macro1()

'définition des variables

Dim MaFeuille As Worksheet 'La feuille contenant le tableau de bord

Dim NbLigne As Integer 'Nombre de ligne à récupérer

Dim année1 As Integer 'déclaration de la variable année1 comme un entier

Dim mois1 As Integer 'déclaration de la variable mois1 comme un entier

Dim jour1 As Integer ' déclaration de la variable jour1 comme un entier

année1 = Format(Range(" 'USINE'!D2").Value, "yy") '

mois1 = Format(Range(" 'USINE'!D2").Value, "mm") '

jour1 = Format(Range(" 'USINE'!D2").Value, "dd") '

'Affectation des variables

Set MaFeuille = ThisWorkbook.Sheets("MAINTENANCE")

'On calcule le nombre de ligne à prendre dans la feuille à partir de la colonne AL

NbLigne = 23

'On sélectionne la plage à copier

Sheets("MAINTENANCE").Activate

MaFeuille.Range("AL1:AR" & NbLigne).Select

'création de l'email

With Selection.Parent.MailEnvelope.Item

.To = "*****@****.com"

.Subject = "Consommation d'eau station du " & CStr(jour1) & "/" & CStr(mois1) & "/" & CStr(année1)

.Send

Sheets("USINE").Activate

.Display

End With

End Sub

Bonjour,

Pour pouvoir réutiliser la propriété "MailEnvelope" , un enregistrement du classeur est nécessaire.

Donc ajouter l'instruction :

ThisWorkbook.Save

NB : utiliser SVP la balise "</>" pour afficher du code

Rechercher des sujets similaires à "vba envoie mail"