Bonjour,
je voudrais convertir un tableau en texte, en clair faire en sorte que les
lignes de mon texte correspondent aux lignes de mon tableau, le tout en
format texte. Supprimer le quadrillage ne suffit pas puisque l'ensemble
reste en format tableau. Je ne vois pas comment opérer. J'ai essayé en
convertissant en WORD, mais je ne vois toujours pas comment faire. Ca ne
doit pourtant pas être compliqué ...
Merci pour vos conseils, mes excuses si la question a déjà été posée.
Bon dimanche
D.K.
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
D.K.
Le problème est résolu ! C'est comme à l'école, si on fait attention et si on suit les consignes à la lettre ...etc ... ça arrange pas mal les choses ! Bonne journée
D.K.
"D.K." a écrit dans le message de news: 43c0d775$0$20157$
Bonjour, je voudrais convertir un tableau en texte, en clair faire en sorte que les lignes de mon texte correspondent aux lignes de mon tableau, le tout en format texte. Supprimer le quadrillage ne suffit pas puisque l'ensemble reste en format tableau. Je ne vois pas comment opérer. J'ai essayé en convertissant en WORD, mais je ne vois toujours pas comment faire. Ca ne doit pourtant pas être compliqué ... Merci pour vos conseils, mes excuses si la question a déjà été posée. Bon dimanche D.K.
Le problème est résolu ! C'est comme à l'école, si on fait attention et si
on suit les consignes à la lettre ...etc ... ça arrange pas mal les choses !
Bonne journée
D.K.
"D.K." <bla.bla@bla.fr> a écrit dans le message de news:
43c0d775$0$20157$8fcfb975@news.wanadoo.fr...
Bonjour,
je voudrais convertir un tableau en texte, en clair faire en sorte que les
lignes de mon texte correspondent aux lignes de mon tableau, le tout en
format texte. Supprimer le quadrillage ne suffit pas puisque l'ensemble
reste en format tableau. Je ne vois pas comment opérer. J'ai essayé en
convertissant en WORD, mais je ne vois toujours pas comment faire. Ca ne
doit pourtant pas être compliqué ...
Merci pour vos conseils, mes excuses si la question a déjà été posée.
Bon dimanche
D.K.
Le problème est résolu ! C'est comme à l'école, si on fait attention et si on suit les consignes à la lettre ...etc ... ça arrange pas mal les choses ! Bonne journée
D.K.
"D.K." a écrit dans le message de news: 43c0d775$0$20157$
Bonjour, je voudrais convertir un tableau en texte, en clair faire en sorte que les lignes de mon texte correspondent aux lignes de mon tableau, le tout en format texte. Supprimer le quadrillage ne suffit pas puisque l'ensemble reste en format tableau. Je ne vois pas comment opérer. J'ai essayé en convertissant en WORD, mais je ne vois toujours pas comment faire. Ca ne doit pourtant pas être compliqué ... Merci pour vos conseils, mes excuses si la question a déjà été posée. Bon dimanche D.K.
michdenis
Bonjour D.K.
Ceci imprimera tout le contenu de la feuille "Feuil1" en utilisant "un espace" comme séparateur dans un fichier TxT situé et nommé c:Denis.txt
Il ne reste plus qu'à l'adapter à ton application.
'----------------------------------- Sub EnregistrerFormatSpecial()
Dim Plage As Range, Séparateur As String Dim NomFichierSauvegarde As String Dim R As Long, C As Integer
With ThisWorkbook.Worksheets("Feuil1") R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column Set Plage = .Range(.Range("A1"), Cells(R, C)) End With
End Sub '----------------------------------- Sub SaveAsCSV(Plage As Range, Séparateur As String, _ NomFichierSauvegarde As String)
Dim Temp As String, R As Range, C As Range
Open NomFichierSauvegarde For Output As #1 For Each R In Plage.Rows Temp = "" For Each C In R.Cells Temp = Temp & C & Séparateur Next Temp = Left(Temp, Len(Temp) - 1) Print #1, Temp Next Close Set Plage = Nothing: Set C = Nothing: Set R = Nothing End Sub '-----------------------------------
Salutations!
"D.K." a écrit dans le message de news: 43c0d775$0$20157$ Bonjour, je voudrais convertir un tableau en texte, en clair faire en sorte que les lignes de mon texte correspondent aux lignes de mon tableau, le tout en format texte. Supprimer le quadrillage ne suffit pas puisque l'ensemble reste en format tableau. Je ne vois pas comment opérer. J'ai essayé en convertissant en WORD, mais je ne vois toujours pas comment faire. Ca ne doit pourtant pas être compliqué ... Merci pour vos conseils, mes excuses si la question a déjà été posée. Bon dimanche D.K.
Bonjour D.K.
Ceci imprimera tout le contenu de la feuille "Feuil1"
en utilisant "un espace" comme séparateur dans un
fichier TxT situé et nommé c:Denis.txt
Il ne reste plus qu'à l'adapter à ton application.
'-----------------------------------
Sub EnregistrerFormatSpecial()
Dim Plage As Range, Séparateur As String
Dim NomFichierSauvegarde As String
Dim R As Long, C As Integer
With ThisWorkbook.Worksheets("Feuil1")
R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
Set Plage = .Range(.Range("A1"), Cells(R, C))
End With
End Sub
'-----------------------------------
Sub SaveAsCSV(Plage As Range, Séparateur As String, _
NomFichierSauvegarde As String)
Dim Temp As String, R As Range, C As Range
Open NomFichierSauvegarde For Output As #1
For Each R In Plage.Rows
Temp = ""
For Each C In R.Cells
Temp = Temp & C & Séparateur
Next
Temp = Left(Temp, Len(Temp) - 1)
Print #1, Temp
Next
Close
Set Plage = Nothing: Set C = Nothing: Set R = Nothing
End Sub
'-----------------------------------
Salutations!
"D.K." <bla.bla@bla.fr> a écrit dans le message de news: 43c0d775$0$20157$8fcfb975@news.wanadoo.fr...
Bonjour,
je voudrais convertir un tableau en texte, en clair faire en sorte que les
lignes de mon texte correspondent aux lignes de mon tableau, le tout en
format texte. Supprimer le quadrillage ne suffit pas puisque l'ensemble
reste en format tableau. Je ne vois pas comment opérer. J'ai essayé en
convertissant en WORD, mais je ne vois toujours pas comment faire. Ca ne
doit pourtant pas être compliqué ...
Merci pour vos conseils, mes excuses si la question a déjà été posée.
Bon dimanche
D.K.
Ceci imprimera tout le contenu de la feuille "Feuil1" en utilisant "un espace" comme séparateur dans un fichier TxT situé et nommé c:Denis.txt
Il ne reste plus qu'à l'adapter à ton application.
'----------------------------------- Sub EnregistrerFormatSpecial()
Dim Plage As Range, Séparateur As String Dim NomFichierSauvegarde As String Dim R As Long, C As Integer
With ThisWorkbook.Worksheets("Feuil1") R = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious).Row C = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column Set Plage = .Range(.Range("A1"), Cells(R, C)) End With
End Sub '----------------------------------- Sub SaveAsCSV(Plage As Range, Séparateur As String, _ NomFichierSauvegarde As String)
Dim Temp As String, R As Range, C As Range
Open NomFichierSauvegarde For Output As #1 For Each R In Plage.Rows Temp = "" For Each C In R.Cells Temp = Temp & C & Séparateur Next Temp = Left(Temp, Len(Temp) - 1) Print #1, Temp Next Close Set Plage = Nothing: Set C = Nothing: Set R = Nothing End Sub '-----------------------------------
Salutations!
"D.K." a écrit dans le message de news: 43c0d775$0$20157$ Bonjour, je voudrais convertir un tableau en texte, en clair faire en sorte que les lignes de mon texte correspondent aux lignes de mon tableau, le tout en format texte. Supprimer le quadrillage ne suffit pas puisque l'ensemble reste en format tableau. Je ne vois pas comment opérer. J'ai essayé en convertissant en WORD, mais je ne vois toujours pas comment faire. Ca ne doit pourtant pas être compliqué ... Merci pour vos conseils, mes excuses si la question a déjà été posée. Bon dimanche D.K.
