Exporter en txt

[sala]

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

 

[@+Thierry]

Bonjour Sala, le Forum

Tu aurias pu rester dans le même fil de discussion (Lien supprimé enfin bon, maintenant on est ici.

Pour l'exemple que tu donnes de moi, je suppose qu'il s'agit de Lien supprimé

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

 

[sala]

C'est ok. Merci pour tout...

Bonne soirée

Sala