[VBA] GetSaveAsFilename - txt

swan

XLDnaute Junior
Bonjour,

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
ActiveWorkbook.SaveAs Filename = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt"), FileFormat:=xlText
mafeuille.Activate

End Sub

mais je sais pas pourquoi, le nom de ma feuille et de mon fichier sont renommés en "FALSE".

Merci.
 

cbea

XLDnaute Impliqué
Re : [VBA] GetSaveAsFilename - txt

Bonjour swan,

Voici une solution :

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

swan

XLDnaute Junior
Re : [VBA] GetSaveAsFilename - 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...
 

Discussions similaires

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 813
dernier inscrit
kaiyi