Bonjour à tous,
Je souhaiterais copier l'onglet sélectionné dans un nouveau classeur sans m’occuper du nom de la feuille. (ensuite, je l'envoi par mail)
Je veux bien de l'aide, merci
Sub mail()
Sheets("3116").Select
Sheets("3116").Copy
Dim Wbk As Workbook
Set Wbk = ActiveWorkbook
Wbk.SendMail "test", "Terre - " & Range("C6").Value
Set Wbk = Nothing
End Sub
Je souhaiterais copier l'onglet sélectionné dans un nouveau classeur sans m’occuper du nom de la feuille. (ensuite, je l'envoi par mail)
Je veux bien de l'aide, merci
Sub mail()
Sheets("3116").Select
Sheets("3116").Copy
Dim Wbk As Workbook
Set Wbk = ActiveWorkbook
Wbk.SendMail "test", "Terre - " & Range("C6").Value
Set Wbk = Nothing
End Sub