XL 2016 Enregistrer une feuille excel au format Txt (Tab)

[BPM]

Bonjour, toujours dans le cadre de mon apprentissage VBA.

J'aimerais écrire un code qui convertit en format Txt une feuille Excel d'un classeur1 et cette feuille au format texte doit s'enregistrer sous le nom de la feuille Excel d'origine, s'enregistrer dans le même dossier que le classeur1 et se fermer automatiquement.

Si vous avez une idée de code votre aide me serez précieuse, je vous remercie.

 

[Valtrase]

A voir pas testée

Sub ExportTxt(sh As Worksheet)
    '// Une variable ....
Dim Path As String

    ' // Si la feuille est omise on se cale sur la feuille active
    If sh Is Nothing Then Set sh = ActiveSheet
    ' // On récupère le répertoire actif
    Path = ActiveWorkbook.Path & "\"
    ' // On lance la sauvegarde
    ActiveWorkbook.SaveAs _
            Filename:=Path & sh.Name & ".txt", _
            FileFormat:=xlText, CreateBackup:=False

' // Pas trop compris qui doit se fermer la feuille ou le classeur
' // On ferme le classeur en le sauvegardant
ActiveWorkbook.Close True
End Sub

 

[BPM]

A voir pas testée

Sub ExportTxt(sh As Worksheet)
    '// Une variable ....
Dim Path As String

    ' // Si la feuille est omise on se cale sur la feuille active
    If sh Is Nothing Then Set sh = ActiveSheet
    ' // On récupère le répertoire actif
    Path = ActiveWorkbook.Path & "\"
    ' // On lance la sauvegarde
    ActiveWorkbook.SaveAs _
            Filename:=Path & sh.Name & ".txt", _
            FileFormat:=xlText, CreateBackup:=False

' // Pas trop compris qui doit se fermer la feuille ou le classeur
' // On ferme le classeur en le sauvegardant
ActiveWorkbook.Close True
End Sub

Bonjour, merci pour votre exemple de code que je vais pouvoir tester. Et pour préciser c'est la feuille qui doit se fermer.