je voudrais écrire une macro qui ouvre la boîte de dialogue "enregistrer sous", affiche le nom de la feuille par défaut et sauvegarde au format txt.
J'ai pensé à ce code:
Sub Sauvegarder()
Set mafeuille = ActiveWorkbook.ActiveSheet
Filename = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
ActiveWorkbook.SaveAs Filename, FileFormat:=xlText
mafeuille.Activate
End Sub
Cela te donnait FALSE car tu comparais "Filename" et "Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")".
C'est presque ce que je veux. En fait, je voudrais garder un modèle du fichier excel. Or le code de ta macro change le nom de la feuille, du fichier excel de départ et du fichier txt enregistré. Mais je ne veux pas changer le nom du fichier excel...