Nommer + Enregistrer + Envoyer par mail juste un onglet

Bonjour,

Je recherche une macro qui me permettrait de Nommer un Fichier à partir de la cellule A1 + A2, Enregistrer automatiquement l'onglet dans le répetoire où se trouve le fichier servant de base, Envoyer par mail juste l'onglet concerné.

Bien evidement, le tout après avoir cliquer sur un gros bouton Rouge : Envoyer par mail

Un grand merci pour votre aide.

Bonjour

Juste un pb, le nouveau fichier comprends 2 feuilles, une vide et la copie. (N'étant pas un pro, je patine là-dessus). Quelqu'un corrigera surement

cordialement

Merci amadeus.

Si quelqu'un sait reprendre ce léger bug ?

Merci

Quelqu'un peut trouver où se trouve l'errreur dans ce code, tout le classeur est enregistré et non uniquement la feuille comme je le souhaite.

Par avance merci.

Sub Newtotale()

Dim i As Long, Chemin As String

Chemin = ActiveWorbook.Path

ActiveWorkbook.ActiveSheet.SaveAs Filename:=Chemin & "\" & Range("A1") & Range("B1") & ".xlsm"

On Error Resume Next

For i = 1 To 3

ActiveWorkbook.ActiveSheet.SendMail "mail@test.fr", "Objet" & Range("A1")

If Err.Number = 0 Then Exit For

Next i

On Error GoTo 0

ActiveWorkbook.Close

End Sub

Hello,

Sans avoir testé, mais peut-être que, essaie en remplacant cette ligne...

ThisWorkbook.Sheet("Feuil1").Copy

Par celle-là...

ActiveSheet.Copy

j'ai testé, et ça fonctionne...

Francky