S
stargate
Guest
bonjour , est-il possible d'afficher un texte format rtf dans un cellule
si oui comment
Merci
si oui comment
Merci
Dim docWrd As Word.Application
Sub ProcInsFichier()
Dim docrtf As Word.Application
Dim fichier As Variant
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wrd = CreateObject('word.application')
wrd.Visible = False
'Affichage boîte de dialogue pour choisir document .rtf
fichier = Application.GetOpenFilename('Textfiles(*.*),*.*')
If fichier = False Then Exit Sub
Set docrtf = wrd.documents.Open(fichier)
With docwd.Content.Find
.ClearFormatting
.Text = '.'
With .Replacement
.ClearFormatting
.Text = ''
End With
.Execute Replace:=wdReplaceAll
.Forward = True
.Wrap = wdFindContinue
End With
docwd.Range.Find.Execute Replace:=wdReplaceAll
wrd.Selection.WholeStory
wrd.Selection.Copy
modele = Sheets('Sheet1').Range('A1')
End Sub