[VBA] GetSaveAsFilename - txt

  • Initiateur de la discussion Initiateur de la discussion swan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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")".
 
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...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
Réponses
7
Affichages
3 K
sami1814
S
Réponses
14
Affichages
1 K
Retour