[VBA] GetSaveAsFilename - txt

[swan]

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]

Re : [VBA] GetSaveAsFilename - txt

Bonjour swan,

Voici une solution :

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]

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

 

[swan]

Re : [VBA] GetSaveAsFilename - txt

arf! je cherche trop les complications. je me contenterais juste de faire fichier/ enregistrer sous et puis voilà, ça revient au même.

Merci quand même et a+