Manque une petite touche à mon code

Bonsoir,

je veux enregistrer un fichier excel sous txt avec comme le nom du fichier la valeur d'une cellule, mon code fonctionne 10/10 !!! aucun probléme.

j'ai volu faire une petite modification : le nom du fichier sera non pas celui de la cellule Q1 de la feuil1 mais Q1 de la feuil2...j'ai tout essayé et ça bugue. Je vous prie de m'aider à débloquer ce bug

Sub Bouton1_Clic()

    Dim wb As Workbook, ws As Worksheet
    Dim newWB As Workbook, newWS As Worksheet
    Dim strSaveAs As String

    On Error GoTo errSave

    Application.ScreenUpdating = False

    Set wb = ActiveWorkbook
    Set ws = Sheets("feuil1")

    With ws
        .Select
        .Copy
    End With

    Set newWB = ActiveWorkbook
    Set newWS = Sheets("feuil1")

    strSaveAs = Range("q1").Value

    With newWB
        .SaveAs strSaveAs, xlText
        .Close (False)
    End With

    wb.Activate
    ws.Select

exitSave:
    Application.ScreenUpdating = True
    Sheets("feuil1").Activate

    Exit Sub

errSave:
    MsgBox (Err.Number)
    MsgBox (Err.Description)
    Resume exitSave

With Sheets("feuil1").Activate
End With

End Sub

Hello je dirais :

strSaveAs = sheets("Feuil2").Range("q1").Value

Bonne soirée

non ça bloque toujours