Finalisation code

bonjour

j 'ai posé cette meme question hier sans recevoir de reponse je mets en attaché mon fichier peut etre ça peut aider

"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"

Bonjour,

Sub Bouton1_Clic()
    Dim newWB As Workbook, strSaveAs As String
    strSaveAs = Sheets("Feuil2").Range("Q1")
    On Error GoTo errSave
    Application.ScreenUpdating = False
    Sheets("feuil1").Copy
    Set newWB = ActiveWorkbook
    With newWB
        .SaveAs strSaveAs, xlTextWindows
        .Close False
    End With
    Exit Sub
errSave:
    MsgBox Err.Number
    MsgBox Err.Description
End Sub

Merci beaucoup

simple et efficace

tu es magnifique