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
Philippe.R
Bonsoir, Le format csv est un fichier texte à séparateur point virgule Ne pourrais tu pas l'utiliser ? -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"JMH" a écrit dans le message de news:eVJS5%
Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";" Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Jean-Michel
Bonsoir,
Le format csv est un fichier texte à séparateur point virgule
Ne pourrais tu pas l'utiliser ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"JMH" <abc@def.gh> a écrit dans le message de news:eVJS5%23qPEHA.2264@TK2MSFTNGP10.phx.gbl...
Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";"
Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Bonsoir, Le format csv est un fichier texte à séparateur point virgule Ne pourrais tu pas l'utiliser ? -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"JMH" a écrit dans le message de news:eVJS5%
Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";" Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Jean-Michel
JMH
OK, je vais essaier. Merci pour la réponse
"Philippe.R" a écrit dans le message de news:%23%
Bonsoir, Le format csv est un fichier texte à séparateur point virgule Ne pourrais tu pas l'utiliser ? -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"JMH" a écrit dans le message de news:eVJS5%
Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";" Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Jean-Michel
OK, je vais essaier.
Merci pour la réponse
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:%23%23KvXHrPEHA.640@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Le format csv est un fichier texte à séparateur point virgule
Ne pourrais tu pas l'utiliser ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"JMH" <abc@def.gh> a écrit dans le message de
news:eVJS5%23qPEHA.2264@TK2MSFTNGP10.phx.gbl...
Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";"
Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Bonsoir, Le format csv est un fichier texte à séparateur point virgule Ne pourrais tu pas l'utiliser ? -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"JMH" a écrit dans le message de news:eVJS5%
Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";" Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";"
Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Jean-Michel
michdenis
Bonsoir JMH,
Voici une façon de le créer....Variables à redéfinr !
'------------------------------ 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:G10") 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!
"JMH" a écrit dans le message de news:eVJS5% Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";" Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Jean-Michel
Bonsoir JMH,
Voici une façon de le créer....Variables à redéfinr !
'------------------------------
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:G10")
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!
"JMH" <abc@def.gh> a écrit dans le message de news:eVJS5%23qPEHA.2264@TK2MSFTNGP10.phx.gbl...
Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";"
Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Voici une façon de le créer....Variables à redéfinr !
'------------------------------ 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:G10") 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!
"JMH" a écrit dans le message de news:eVJS5% Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";" Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Jean-Michel
JMH
OK. Merci bien pour le code.
"michdenis" a écrit dans le message de news:%
Bonsoir JMH,
Voici une façon de le créer....Variables à redéfinr !
'------------------------------ 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:G10") 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!
"JMH" a écrit dans le message de news:eVJS5%
Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";" Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Jean-Michel
OK.
Merci bien pour le code.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23apKXarPEHA.3748@TK2MSFTNGP09.phx.gbl...
Bonsoir JMH,
Voici une façon de le créer....Variables à redéfinr !
'------------------------------
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:G10")
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!
"JMH" <abc@def.gh> a écrit dans le message de
news:eVJS5%23qPEHA.2264@TK2MSFTNGP10.phx.gbl...
Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";"
Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
Voici une façon de le créer....Variables à redéfinr !
'------------------------------ 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:G10") 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!
"JMH" a écrit dans le message de news:eVJS5%
Bonsoir
Je cherche à enregistrer un fichier txt en mettant les séparateurs à ";" Apparement, il y a une possibilité avec "espace" ou ":"
Merci d'avance de m'indiquer comment modifier ce paramètre.
