Exporter en txt

Bonjour a tous,

Pour exporter une feuille excel en Txt, j'ai utilisé une partie du programme ci-dessous (conçu par Thierry du forum):

ThePath = ThisWorkbook.Path & "\ISM_INI"
TheFile = Application.GetSaveAsFilename(ThePath, "Fichier,*.txt")
If TheFile = False Then Exit Sub....

J'aimerai pouvoir sauter l'étape Application.GetSaveAsFilename... et enregistrer directement le fichier Txt sous le répertoire voulu
EX : The file= xxx (ThePath, "Fichier,*.txt")

qq peut m'aider ?

@ +
Sala

Bonjour Sala, le Forum

Tu aurias pu rester dans le même fil de discussion (Export en VB enfin bon, maintenant on est ici.

Pour l'exemple que tu donnes de moi, je suppose qu'il s'agit de Export TXT avec ";" en séparateur, méthode par Array (Super Fast)

Il suffit de replacer TheFile comme ceci :

Dim TheFile As String

TheFile = "c:\mes fichiers\mes txt\toto.txt"


Tu l'utilisera plus bas avec :
Open TheFile For Output As #1


Bonne Soirée
@+Thierry

C'est ok. Merci pour tout...

Bonne soirée

Sala