Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour damnou,
En supposant que tes données sont dans une feuille excel à cette adresse A1:f10. Modifie le nom de la feuille et l'adresse en référence à ton projet .
'------------------------------------ Sub EcrireUnFichierTexte()
Dim fso As Object, F As Object Dim LaLigne As String Dim Rg As Range, A As Integer Dim B As Integer, Tblo As Variant
With Worksheets("Feuil1") Set Rg = .Range("A1:f10") Tblo = Rg End With
Set fso = CreateObject("Scripting.FileSystemObject") Set F = fso.CreateTextfile("C:exceltttest.txt")
For A = 1 To UBound(Tblo, 1) For B = 1 To UBound(Tblo, 2) LaLigne = LaLigne & """" & Tblo(A, B) & """" & "," Next LaLigne = LaLigne & vbCrLf Next F.WriteLine (LaLigne) F.Close
End Sub '------------------------------------
Salutations!
"damnou" a écrit dans le message de news: Bonjour à tous Je voudrais enregistrer des données dans un fichier texte (ascii) sous le format suivant
Le format qui se rapproche le plus est le CSV , j'obtiens dupont,alain,123.12,12.00 durand,charles,456.12,13.00
Quelqu'un aurait-il une idée pour encadrer chacune des données avec le caractere "
Damnou
Bonjour damnou,
En supposant que tes données sont dans une feuille excel à cette adresse A1:f10.
Modifie le nom de la feuille et l'adresse en référence à ton projet .
'------------------------------------
Sub EcrireUnFichierTexte()
Dim fso As Object, F As Object
Dim LaLigne As String
Dim Rg As Range, A As Integer
Dim B As Integer, Tblo As Variant
With Worksheets("Feuil1")
Set Rg = .Range("A1:f10")
Tblo = Rg
End With
Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.CreateTextfile("C:exceltttest.txt")
For A = 1 To UBound(Tblo, 1)
For B = 1 To UBound(Tblo, 2)
LaLigne = LaLigne & """" & Tblo(A, B) & """" & ","
Next
LaLigne = LaLigne & vbCrLf
Next
F.WriteLine (LaLigne)
F.Close
End Sub
'------------------------------------
Salutations!
"damnou" <damnou2@aol.com> a écrit dans le message de news:u4nN0B1XEHA.1652@TK2MSFTNGP09.phx.gbl...
Bonjour à tous
Je voudrais enregistrer des données dans un fichier texte (ascii) sous le
format suivant
En supposant que tes données sont dans une feuille excel à cette adresse A1:f10. Modifie le nom de la feuille et l'adresse en référence à ton projet .
'------------------------------------ Sub EcrireUnFichierTexte()
Dim fso As Object, F As Object Dim LaLigne As String Dim Rg As Range, A As Integer Dim B As Integer, Tblo As Variant
With Worksheets("Feuil1") Set Rg = .Range("A1:f10") Tblo = Rg End With
Set fso = CreateObject("Scripting.FileSystemObject") Set F = fso.CreateTextfile("C:exceltttest.txt")
For A = 1 To UBound(Tblo, 1) For B = 1 To UBound(Tblo, 2) LaLigne = LaLigne & """" & Tblo(A, B) & """" & "," Next LaLigne = LaLigne & vbCrLf Next F.WriteLine (LaLigne) F.Close
End Sub '------------------------------------
Salutations!
"damnou" a écrit dans le message de news: Bonjour à tous Je voudrais enregistrer des données dans un fichier texte (ascii) sous le format suivant
Le format qui se rapproche le plus est le CSV , j'obtiens dupont,alain,123.12,12.00 durand,charles,456.12,13.00
Quelqu'un aurait-il une idée pour encadrer chacune des données avec le caractere "
Damnou
docm
Bonjour damnou.
Consulte l'aide sur la commande Write.
Sub Exemple() Close 1 Open "C:mes documentstest.txt" For Output As 1 Write #1, "Bonjour à tous", 234 Write #1, "Bonjour à tous", CStr(234) Write #1, ' Écrit une ligne vierge. Close 1 End Sub
"damnou" wrote in message news:
Bonjour à tous Je voudrais enregistrer des données dans un fichier texte (ascii) sous le format suivant
Le format qui se rapproche le plus est le CSV , j'obtiens dupont,alain,123.12,12.00 durand,charles,456.12,13.00
Quelqu'un aurait-il une idée pour encadrer chacune des données avec le caractere "
Damnou
Bonjour damnou.
Consulte l'aide sur la commande Write.
Sub Exemple()
Close 1
Open "C:mes documentstest.txt" For Output As 1
Write #1, "Bonjour à tous", 234
Write #1, "Bonjour à tous", CStr(234)
Write #1, ' Écrit une ligne vierge.
Close 1
End Sub
"damnou" <damnou2@aol.com> wrote in message
news:u4nN0B1XEHA.1652@TK2MSFTNGP09.phx.gbl...
Bonjour à tous
Je voudrais enregistrer des données dans un fichier texte (ascii) sous le
format suivant
Sub Exemple() Close 1 Open "C:mes documentstest.txt" For Output As 1 Write #1, "Bonjour à tous", 234 Write #1, "Bonjour à tous", CStr(234) Write #1, ' Écrit une ligne vierge. Close 1 End Sub
"damnou" wrote in message news:
Bonjour à tous Je voudrais enregistrer des données dans un fichier texte (ascii) sous le format suivant
