Automatisation d'une macro

bonjour,

j'ai créé une macro qui sauvegarde un fichier txt avec le nom trouvé dans une cellule.

donc j'ai un bouton sur chaque page mais voila je commence à avoir beaucoup de page et je voudrais pouvoir créer tout mes fichiers txt à la fermeture du fichier en une seule fois (un par page).

car à chaque ouverture il y as plein de modif à faire et il arrive d'oublier de sauver un fichier.

à l'avance merci pour votre aide.

Daniel

Sub envoitxt()
Dim fichier As String
fichier = Range("g6").Text

    Application.ScreenUpdating = False
    SauveZoneFichierTexte Feuil1.Range("c1:c100"), fichier & ".txt"

    Application.ScreenUpdating = True
End Sub

Private Sub SauveZoneFichierTexte(rZone As Range, stName As String)
    Dim f As Integer
    Dim c As Range
    Dim i As Integer
    f = FreeFile
    Open stName For Output As #f
    For Each c In rZone
        temp = Split(c.Text, Chr(10))
        For i = 0 To UBound(temp)
            ' MsgBox temp(i)
            Print #f, temp(i)
        Next i
    Next
    Close f
End Sub

Bonjour,

une proposition, s'il y a des feuilles à exclure enlever le commentaire est mettre le nom qui va bien

Sub envoitxt()
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        'If ws.Name <> "feuille à exclure" Then ' adapter l'instruction
            ws.Activate
            Dim fichier As String
            fichier = Range("g6").Text
            SauveZoneFichierTexte Feuil1.Range("c1:c100"), fichier & ".txt"
        'End If
    Next
    Application.ScreenUpdating = True
End Sub

merci super cela fonctionne à merveille.

Daniel