Salut Ancat, salut le forum,
Copie la macro ci-dessous dans un module et affecte-la à ton bouton de la Feuil1. Le problème est que ton fichier de départ se ferme. il te faut le rouvrir après execution de la macro.
La macro te crée le fichier texte dans le même dossier que le dossier dans lequel se trouve ton fichier de départ sous le nom : jjmmaahhmm.txt (j=jour de la date actuelle, m=mois, etc...)
Public Sub creafichtext()
Dim nomcomplet As String 'déclare la variable nomcomplet
Dim sh As Worksheet 'déclare la variable sh
Dim feuil2 As String 'déclare la variable sh
nomcomplet = ThisWorkbook.Path & "\" & Format(Now, "ddmmyyhhmm") & ".txt" 'definie le nom
'à adapter à ton cas, ici : chemin complet de ce fichier +
'la date et l'heure au format jjmmaahhmm.txt
'pour éviter qu'ils sécrasent si tu en créés plusieurs
feuil2 = ThisWorkbook.Sheets(2).Name 'définie la variable feuil2
ThisWorkbook.Save 'enregistre le classeur ('à supprimer si ça te va pas)
Application.DisplayAlerts = False 'ne montre plus les boites de dialogue d'avertissement
For Each sh In ThisWorkbook.Sheets 'supprime toutes les feuille sauf Feuil2
If Not sh.Name = feuil2 Then
sh.Delete
End If
Next sh
'enregistre le fichier au format voulu sous nomcomplet.txt
ThisWorkbook.SaveAs Filename:=nomcomplet, _
FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close 'ferme le fichier txt
Application.DisplayAlerts = True 'reaffiche les boite de dialogue d'avertissement
End Sub
À plus,
Robert
