Enregistrement feuille

Bonjour,

J'ai une macro qui m'enregistre ma feuille excel. Cependant le chemin doit être sur cette meme feuille.

Je n'arrive pas a modifier le chemin et préciser qu'il est sur une autre feuille :

[/

   Sheets("aa").Select
    Dim extension As String
    Dim chemin As String, nomfichier As String
    Dim style As Integer
    Application.ScreenUpdating = False
    ThisWorkbook.ActiveSheet.Copy
    extension = ".xlsx"
                                    'Chemin d'enregistrement

    chemin = "Bureau\"
    nomfichier = Worksheets("bb").Range("B2") & extension
    With ActiveWorkbook
    .SaveAs Filename:=chemin & nomfichier
    .Close
    End With

Actuellement, j'ai un message d'erreur Erreur d'execution 9 l'indice n'appartien pas a la selection

Bonjour

Essaie ça :

Sub essai()

   Sheets("aa").Select
    Dim extension As String
    Dim chemin As String, nomfichier As String
    Dim style As Integer
    Application.ScreenUpdating = False

    chemin = ThisWorkbook.Path
    If Worksheets("bb").Range("B2") = "" Then
        MsgBox "La cellule B2 de la feuille ''bb'' est vide et ne peut servir à donner un nom à un nouveau fichier.", 16
        Exit Sub
    End If
    nomfichier = Worksheets("bb").Range("B2") & extension
    ThisWorkbook.ActiveSheet.Copy
    With ActiveWorkbook
    .SaveAs Filename:=chemin & "\" & nomfichier
    .Close
    End With
End Sub

Bye !