Exporter en txt

sala · 6 Février 2005

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 · 6 Février 2005

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 · 6 Février 2005

C'est ok. Merci pour tout...

Bonne soirée

Sala

Exporter en txt

sala

Guest

@+Thierry

Guest

sala

Guest

Discussions similaires