Bonjour,
ce code permet d'ouvrir la fenêtre "Enregistrer sous" pour sauvegarder le fichier en txt par défaut.
Sub savetxt()
Set mafeuille = ActiveWorkbook.ActiveSheet
Filename = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
ActiveWorkbook.SaveAs Filename, FileFormat:=xlText
mafeuille.Activate
End Sub
je voudrais écrire une macro à la suite de ce code qui permet de fermer le classeur sans le sauvegarder:
une fois que j'ai cliqué sur "Enregistrer", un message du genre "Fermer le classeur sans enregistrer" avec un unique bonton "OK" s'affiche.
Est-ce possible?
ce code permet d'ouvrir la fenêtre "Enregistrer sous" pour sauvegarder le fichier en txt par défaut.
Sub savetxt()
Set mafeuille = ActiveWorkbook.ActiveSheet
Filename = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
ActiveWorkbook.SaveAs Filename, FileFormat:=xlText
mafeuille.Activate
End Sub
je voudrais écrire une macro à la suite de ce code qui permet de fermer le classeur sans le sauvegarder:
une fois que j'ai cliqué sur "Enregistrer", un message du genre "Fermer le classeur sans enregistrer" avec un unique bonton "OK" s'affiche.
Est-ce possible?