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