Bonjour à tous,
Je suis à la recherche d'un information certainement simple...
J'ai beau avoir cherché je ne trouve pas ma spécificité.
J'ai une macro top qui envoie par mail un onglet, voici le début du code que j'utilise dans un autre tableau :
Ma question :
La partie "Sheets("Demande ").Range("B1:J46").SpecialCells(xlCellTypeVisible)"
Le nom de l'onglet à traiter se trouve en cellule G5 de l'onget "Mail" et donc n'est pas toujours le même onglet...
De la même facon, une seconde partie :
Le mail doit être envoyées à l'adresse mail inscrite en G9 de l'onglet "Mail"
Merci d'avance pour votre aide
Excellente journée,
Loïc
Je suis à la recherche d'un information certainement simple...
J'ai beau avoir cherché je ne trouve pas ma spécificité.
J'ai une macro top qui envoie par mail un onglet, voici le début du code que j'utilise dans un autre tableau :
Code:
Sub EnvoiMail()
If MsgBox("Envoyer la demande aux personnes concernées ?", 36, "Confirmation") = vbYes Then
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Set rng = Nothing
On Error Resume Next
Set rng = Sheets("Demande ").Range("B1:J46").SpecialCells(xlCellTypeVisible)
On Error GoTo 0
Ma question :
La partie "Sheets("Demande ").Range("B1:J46").SpecialCells(xlCellTypeVisible)"
Le nom de l'onglet à traiter se trouve en cellule G5 de l'onget "Mail" et donc n'est pas toujours le même onglet...
De la même facon, une seconde partie :
Code:
With OutMail
.To = "aaa.bbb@CCC.com"
.CC = ""
.BCC = ""
.Subject = "Demande" & Range("D21").Value & " (" & Range("D25").Value & ")"
.HTMLBody = RangetoHTML(rng)
.Send
Le mail doit être envoyées à l'adresse mail inscrite en G9 de l'onglet "Mail"
Merci d'avance pour votre aide
Excellente journée,
Loïc