Enregistrer sous .txt et fermeture du fichier [Résolu]

[Paenitentia]

Bonjour à tous.

A la fin d'une macro, je souhaite enregistrer le contenu d'une feuille Worksheets dans un document .txt avec séparateur tabulation, puis fermer cette feuille. J'ai donc programmé le code suivant :

Code :

1
2
3
4
5
6
7
8
9
        Workbooks(NomFichierBaseInstallations).Worksheets(1).Activate
        fileSaveName = Application.GetSaveAsFilename( _
            fileFilter:="Text Files (*.txt), *.txt")
        If fileSaveName <> False Then
            Worksheets(1).SaveAs fileSaveName
        End If
 
 
        Workbooks(NomFichierBaseInstallations).Close False

Mon problème est que malgré la sélection du filtre .txt, la boite de sélection indique le nom du fichier actuel, qui est en .xls. Par conséquent, si l'utilisateur clique par défaut sur "Enregistrer sous" sans rien toucher, il ne va pas enregistrer un document au format .txt mais au .xls.

Concrètement, la boîte de sauvegarde remplit le champ du fichier par un "fichier.xls" (avec les guillemets) et un type de fichier : fichier text (.txt), *.txt.

Comment faire pour qu'il enregistre à tous les coups en fichier .txt ?

Merci.

[Daniel.C]

Bonjour,

Essaie :

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub test()
        Workbooks(NomFichierBaseInstallations).Worksheets(1).Activate
        fileSaveName = Application.GetSaveAsFilename( _
            "", fileFilter:="Text Files (*.txt), *.txt")
        If fileSaveName <> False Then
            Worksheets(1).SaveAs fileSaveName
        End If
 
 
        Workbooks(NomFichierBaseInstallations).Close
End Sub

[Paenitentia]

Merci pour ton aide, je peux du coup enregistrer à chaque fois au format .txt, mais j'ai plein de caractères bizarres qui apparaissent et rendent le fichier texte créé inexploitable.

ÐÏࡱá >  þÿ  
 Ô  þÿÿÿ r ó t
õ
v
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿ

Alors qu'en faisant un Fichier > Enregistrer sous manuel, j'obtiens ça :

CODE_LIGNE RANG PK LEGENDE
272000 1 217434 272000 Ligne de Paris-Nord à Lille (du PK 2000 à 250928 - 268 installations)
272000 1 217434 272000 Ligne de Paris-Nord à Lille (du PK 2000 à 250928 - 268 installations)
242000 1 83559 242000 Ligne de Creil à Jeumont (du PK 71271 à 237822 - 489 installations)

Ça vient de l'encodage du fichier ?

Le modifié le "Text file" pour le faire correspondre mais rien n'y fait, voici le code actuel :

Code :

1
2
3
4
5
6
7
 
        Workbooks(NomFichierBaseInstallations).Worksheets(1).Activate
        fileSaveName = Application.GetSaveAsFilename( _
            "", fileFilter:="Texte (séparateur: tabulation) (*.txt), *.txt")
        If fileSaveName <> False Then
            Worksheets(1).SaveAs fileSaveName
        End If

[Daniel.C]

Il faut préciser sous quelle forme tu veux enregistrer ton fichier :

Code :

Worksheets(1).SaveAs fileSaveName, xlTextWindows

[Paenitentia]

Merci beaucoup pour ton aide !