[vba] Ecrire un .txt d'une seule ligne
Résolu
0seb0
Messages postés
37
Date d'inscription
Statut
Membre
Dernière intervention
-
ShaBoo Messages postés 392 Date d'inscription Statut Membre Dernière intervention -
ShaBoo Messages postés 392 Date d'inscription Statut Membre Dernière intervention -
4 réponses
Essaye ceci :
(la méthode Write écrit le String sans saut de ligne à la suite)
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
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 ! :-)
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 ! :-)
