Bonjour Jmd, merci de ta réponse!
L'objectif :
Avoir un fichier excel, sur lequel j'ai un userform. En cliquant sur cet userform, je souhaite qu'il m'ouvre un document word.
Pour ensuite que l'utilisateur puisse surligner un paragraphe/mot/etc. Le texte surligné sera ensuite inscrit dans une cellule d'excel.
Si j'arrive déjà à faire ca, ca serait super!
Je te joins mon code qui n'inclue pas encore la fonction d'interaction avec l'utilisateur.
Ce code ne fonctionne pas d'ailleurs, et je ne sais pas pourquoi, si tu as une idée je suis preneur
Sub CommandButton1_Click()
Set wordapp = CreateObject("word.application")
strFichier = "C:\Users\Public\VBA_test\WordTest.docx"
' ouvrir un document Word
wordapp.Documents.Open strFichier
' rendre Word visible
wordapp.Visible = True
'wordapp.Documents("WordTest.docx").Activate 'active le document
Set Docword = wordapp.Documents.Open(Wordtest.docx)
With wordapp.activedocuments
.Selection.MoveDown Unit:=wdLine, Count:=1
.Selection.MoveRight Unit:=wdCell
End With
Docword.Close False
wordapp.Quit
Range("F6").Select
End Sub