Aide macro création de fichier

Bonjour à tous

J'ai trouvé sur le Net une petite macro qui me permet de créer un fichier word depuis excel

Sub ouvrirNouveauDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWrd As Word.Document
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWrd = appWrd.Documents.Add

docWrd.SaveAs ThisWorkbook.Path & "\testword.doc"
End Sub

Mais j'aimerai si le fichier existe déjà pouvoir uniquement l'ouvrir

Merci d'avance pour votre aide

bonne journée

Hello ,

a tester

Sub ouvrirNouveauDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWrd As Word.Document
dim MonFichier as string
dim FichierExiste as boolean
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True

MonFichier = "C:...docword.docx"
If MonFichier vbNullString Then FichierExiste=(Dir(MonFichier) vbNullString) Else FichierExiste=False
Set docWrd = switch(FichierExiste = false,appWrd.Documents.Add, FichierExiste = true,appWrd.Documents.open MonFichier)

docWrd.SaveAs ThisWorkbook.Path & "\testword.doc"
End Sub

Bonjour @Rag02700

J'ai testé mais cela ne fonctionne pas

Bonne journée

ça plante où ?

ça plante sur

vbNullString

Autant pour moi j'ai voulu aller trop vite

Sub ouvrirNouveauDocWord()
'necesite d'activer la reference Microsoft Word xx.x Object Library
Dim appWrd As Word.Application
Dim docWrd As Word.Document
dim MonFichier as string
dim FichierExiste as boolean
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True

MonFichier = "C:...docword.docx"
If Dir(MonFichier)  = vbNullString then FichierExiste = true Else FichierExiste=False
Set docWrd = switch(FichierExiste = false,appWrd.Documents.Add, FichierExiste = true,appWrd.Documents.open MonFichier)

docWrd.SaveAs ThisWorkbook.Path & "\testword.doc"
End Sub