Bonjour à tous.
Je souhaiterai enregistrer un fichier .txt ,mis en forme avec une macro, en fichier.xls
Le code ci-dessous fonctionne mais propose par défaut: Type: Texte (Séparateur:tabulation)
Sub impression_enregistrement()
'Définit la zone d'impression
Range("A12").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = ""
'Imprime la zone d'impression
ExecuteExcel4Macro "PRINT(1,,,1,,FALSE,,,,,,1,,,TRUE,,FALSE)"
'Active la boîte de dialogue enregistrer sous
Application.Dialogs(xlDialogSaveAs).Show
'Ferme le fichier sans enregistrer
ActiveWorkbook.Close SaveChanges:=False
End Sub
Pour éviter des erreurs d'enregistrement il faudrait qu'il me propose par défaut:
Type: Classeur Excel 97-2003
Voir détail dans la pièce jointe.
Est-ce dans le domaine du possible ?
Merci à ceux qui pourront consacrer un peu de temps sur ce sujet.
Cordialement.
Joël
Je souhaiterai enregistrer un fichier .txt ,mis en forme avec une macro, en fichier.xls
Le code ci-dessous fonctionne mais propose par défaut: Type: Texte (Séparateur:tabulation)
Sub impression_enregistrement()
'Définit la zone d'impression
Range("A12").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PageSetup.PrintArea = ""
'Imprime la zone d'impression
ExecuteExcel4Macro "PRINT(1,,,1,,FALSE,,,,,,1,,,TRUE,,FALSE)"
'Active la boîte de dialogue enregistrer sous
Application.Dialogs(xlDialogSaveAs).Show
'Ferme le fichier sans enregistrer
ActiveWorkbook.Close SaveChanges:=False
End Sub
Pour éviter des erreurs d'enregistrement il faudrait qu'il me propose par défaut:
Type: Classeur Excel 97-2003
Voir détail dans la pièce jointe.
Est-ce dans le domaine du possible ?
Merci à ceux qui pourront consacrer un peu de temps sur ce sujet.
Cordialement.
Joël
Pièces jointes
Dernière édition: