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