Pb de Syntaxe ?

Bonjour le forum
Bonjour Francis

Essais ceci dans un module :

Sub OpenWord()
Dim Wrd As Object

Application.ScreenUpdating = False

Set Wrd = CreateObject("word.Application")
Wrd.Visible = True
Wrd.documents.Open ("C:\1\essai.doc") ==> chemin à adapter
End Sub

@ ++ Eric C

Bonjour Eric C,

Merci de ta réponse, est ce que le nom Sub 'Openword() est important, car ceci doit être une action d'un bouton option'
Sub mon_bouton_Click()
...
End sub

Merci de ton aide

Merci Eric C

cela fonctionne presque bien, au détail près, que je ne reste pas sur ma feuille word, mais je reviens sur Excel. j'ai essayé de modifier les paramêtres de l'Application Updating, fans résultat.

Merci pour tes lumières

Francis

Re le forum
Re bonsoir Francis

Application Updating est utilisé pour éviter que l'écran ne scintille "tremblement" durant l'opération.

Mets ton fichier ou un bout de ton fichier en ligne "SUR LE FORUM"
pour que l'on y regarde.

Je ne saisi pas : Je ne reste pas sur ma feuille Word, je retourne sur Excel ??? Tu es sous Word et tu peux oeuvrer dans l'environnement ???

Je te lirai demain car fini pour ce soir le forum. Bonsoir à toutes & à tous

@ ++ Eric C

Bonsoir à toutes et tous,

Merci de ton interet Eric C, mais j'ai finalement réussi à partir de ton code, voici ce que cela donne:

Private Sub OptionButton_Click()
Dim Wrd As Object
Set Wrd = CreateObject("word.Application")
Application.ScreenUpdating = True
Wrd.Visible = True
Wrd.documents.Open ("C:\mon_fichier.doc")
AppActivate Wrd
End Sub

Par contre 'mon_fichier" est un document type renommé par l'utilisateur lors de sa sauvegarde. J'aimerai récupérer ce nom dans une variable pour un usage dans Excel. Comment faire? Y a t'il des précautions pour le passage de variables entre applications?

Merci Eric C et bonne Soirée.