[vba] Ecrire un .txt d'une seule ligne

Essaye ceci :

TmpStr = "gloup"
Set FS = CreateObject("Scripting.FileSystemObject")
Set a = FS.CreateTextFile("a.txt", True)
a.Write (Chr$(34) + TmpStr + Chr$(34))
a.Close

(la méthode Write écrit le String sans saut de ligne à la suite)

Bonjour,

je n'utilise pas la meme syntaxe pour créer ou écrire dans un fichier. Voilà comment je procède en VB ou VBA:

Public Sub EcrireFichier()
Dim fp As Integer
Dim chemin As String
Dim fichier As String
Dim texte As String

fichier = "test.txt"
chemin = App.Path & "\" & fichier
texte = "Gloup"
fp = FreeFile

On Error Resume Next
Open chemin For Append As #fp 'Append pour ajout dans un fichier, créer le fichier s'il n'existe pas.
Print #fp, Chr$(34) & texte & Chr$(34)
Close fp

If Err <> 0 Then
MsgBox " Erreur écriture du fichier : " & fichier, , "Message"
Exit Sub
End If

End Sub

;o)

Polux

C'était tout couillon, merci ShaBoo !
Ca va m'économiser ma solution de fortune (qui marchait néanmoins :p) :

Function VirerRetourChariot(fich As String) As Boolean
Dim FF As Integer
Dim sBuffer As String

FF = FreeFile
On Error GoTo MyEnd
Open fich For Input As #FF
sBuffer = Input(LOF(FF), #FF)
Close #FF
sBuffer = Left(sBuffer, Len(sBuffer) - 2)
Open fich For Output As #FF
Print #FF, sBuffer;
Close #FF
VirerRetourChariot = True
Exit Function
MyEnd:
MsgBox "Souci dans VirerRetourChariot()"
End Function

Pourquoi faire simple quand on peut faire compliqué ?.... :D

----> Résolu ! :-)

lol