Selection et modification de fichiers en .rtf à partir d'Excel

Bonjour à tous

C'est mon premier message ici !

Ca fait longtemps que je n'avais pas développé de nouveaux programmes et je m'y remets progrssivement.

Je vous sollicite car j'ai monté une routine permettant d'ouvrir des fichiers word en .rtf sur lesquels je voudrais rechercher des références d'articles pour les modifier et ensuite enregistrer et fermer et passer au suivant. Je me suis inspiré de ce que je faisais pour des fichiers excel il y a longtemps.

Tout se déroule comme prévu jusqu'à la ligne en rouge. Impossible d'accéder au fichier word et donc de rechercher les reférences pour les remplacer. Le fichier word est bien ouvert.

Sub MajArtCMF()

Dim StrChemin As String
Dim StrFichier As String, wkclasseur as (je ne sais pas comment définir le type de fichier pour un .rtf, dans Excel, c'était un workbook)
StrChemin = "C:\Users\xxxxxxx\Desktop\MiseAjourArtCMF\"
StrFichier = Dir(StrChemin & "*.rtf")


Do While StrFichier <> ""

Set MonApplication = CreateObject("Shell.Application")
MonApplication.Open (StrChemin & StrFichier)

Windows(StrFichier).Activate

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "823-9"
.Replacement.Text = "821-53"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

wkclasseur.Close savechanges:=True (avec ce type de fichier, j'ai une erreur ici)
StrFichier = Dir()
Application.StatusBar = StrFichier & " traitée"

Loop

Application.StatusBar = "Terminé"

End Sub

Pourriez-vous m'aider ?

Merci d'avance.

Bonjour Bob.2

wkClasseur n'est pas ouvert.

Vous essayez d'ouvrir les fichiers RTF avec

Set MonApplication = CreateObject("Shell.Application")
MonApplication.Open (StrChemin & StrFichier)
l'objet wkClasseur n'est pas définie

comment proposer de le fermer??

L'application à ouvrir serait plutot Word, peut-être

Set MonApplication = CreateObject("Word.Application")

Set wkClasseur = MonApplication.Open (StrChemin & StrFichier)

Merci pour votre réponse

Avec Set MonApplication = CreateObject("Word.Application"), j'ai une erreur

J'avais essayé avant de poser la question.

Dans VBE ajouter la référence à "Microsoft Word" dans le menu Outils