format rtf sous excel

[michir]

bonjour
j'ai des fichiers au format rtf qu je souhaite travailler sous excel
auriez vous un solution ?
Merci

 

[Staple1600]

Bonjour le fil,

[michir]
Tu ne sonnes pas à la bonne porte

Rich Text Format — Wikipédia

fr.wikipedia.org

Excel est un tableur pas un traitement de texte.

 

[michir]

oui merci mais x'est précisemment ma question
comment puis je convertir un fichier rtf en excel ?

 

[Staple1600]

Re

Les fichiers RTF s'ouvrent (entre autre avec Word)
Donc je répète, tu n'es pas à la bonne porte.
Ici c'est là section dédiée à Excel.
Le bon endroit, c'est ici

Autres applications

Pour vos questions concernant Power BI, Access, Word, Power point, Outlook, Microsoft project,... et les tableurs alternatifs tels que Google Sheets et LibreOffice Calc

www.excel-downloads.com

Mais si tu persistes dans cette conversion "contre-nature"
Voir ici, par exemple
(et bon courage )

 

[Staple1600]

Re

Pour gagner un peu de temps (mais comme je le disais précédemment, on utilise Word)
Essaie cette macro (en changeant le path du RTF au préalable)

Sub RTF_To_XL()
    Dim WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    With WordApp
        .Documents.Open Filename:="C:\Users\Staple1600\Documents\2019\Test.rtf"
        .ActiveDocument.Select
        .Selection.Copy
    End With
    ActiveSheet.Range("A1").Select
    ActiveSheet.Paste
    WordApp.Quit
    Set WordApp = Nothing
End Sub

PS: Code testé avec Excel/Word 2013
Le résultat n'est pas forcément des plus probant

 

[Staple1600]

Re

Cette version donne un meilleur résultat
(enfin sur mon PC et avec mon RTF de test )

Sub RTF_Vers_XL3()
'ajouter la référence dans VBE à Microsoft Word Library
Dim wApp As Word.Application
Dim oDoc As Word.Document
Dim wdFileName, txtFile$
Set wApp = New Word.Application
wdFileName = Application.GetOpenFilename("Format RTF, *.rtf")
txtFile = Replace(wdFileName, "rtf", "txt")
If wdFileName = False Then Exit Sub
'conversion du *.RTF en *.txt
Set oDoc = wApp.Documents.Open(wdFileName)
oDoc.SaveAs2 Filename:=txtFile, FileFormat:=wdFormatText, Encoding:=1252, InsertLineBreaks:=True, LineEnding:=wdCRLF
oDoc.Close SaveChanges:=wdDoNotSaveChanges
wApp.Quit
Set wApp = Nothing
'Ouverture du *.txt dans Excel
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & txtFile, Destination:=Range("$A$1"))
    .Name = "test3"
    .FieldNames = True: .PreserveFormatting = True
    .RefreshStyle = xlInsertDeleteCells: .SaveData = True
    .AdjustColumnWidth = True: .RefreshPeriod = 0
    .TextFilePlatform = 1252: .TextFileStartRow = 1: .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileColumnDataTypes = Array(1): .Refresh BackgroundQuery:=False
End With
End Sub