Discussion :

[Maxou 10]

Bonjour,

J’ai un bouton dans Excel qui m’ouvre bien mon document word.... par contre il n’apparaît pas en premier plan.
Que manque t ils dans ma commande VBA ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Primate sub bouton_click()
      Set wordapp = CreateObject («*wordapp.Apllication*»)
      wordapp.Visible = True
      wordapp.Documents.Open «*chemin.doc*»)
End sub

Merci pour vos réponses

Bonne journée

[Philippe Tulliez]

Bonjour,
Manifestement, tu n'as pas fait un copier/coller de ton code car le "primate" aurait fait grimper aux arbres l'éditeur de VBA.

J’ai un bouton dans Excel qui m’ouvre bien mon document word.... par contre il n’apparaît pas en premier plan.

De plus le code que tu publies contient des erreurs de syntaxes donc cela m'étonnerait beaucoup que ce que tu nous affirmes soit exact

[Menhir]

Il y a déjà eu de nombreuses réponses sur ce thème dans le forum.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim WDoc As Word.Document
Set WDoc = GetObject ("*chemin.doc*")
WDoc.Application.Visible = True
WDoc.Application.WindowState = wdWindowStateNormal
WDoc.Activate

[Maxou 10]

J’ai essayé votre commande mais cela ne fonctionne pas....
Effectivement dans la mienne il y a un problème de syntaxe !

Je vous l’a remet correctement, cela s’ouvre mais ca ne me le met pas au premier plan, Je reste ouvert sur Excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private sub bouton_click()
      Set wordapp = CreateObject («*word.Application*»)
      wordapp Visible = True
      wordapp.Documents.Open «*chemin.doc*»
End sub

Merci

[Trystan441]

Bonjour,

Voir le post de Menhir ()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim WDoc As Word.Document
Set WDoc = GetObject ("*chemin.doc*")
WDoc.Application.Visible = True
WDoc.Application.WindowState = wdWindowStateNormal
WDoc.Activate

Le ".activate" te permettra de faire apparaître au premier plan la fenêtre désirée,

[Menhir]

J’ai essayé votre commande mais cela ne fonctionne pas....

Etant donné que deux réponses t'ont été données, il faudrait que tu indiques à qui tu réponds.

Je vous l’a remet correctement

Il est de nouveau impossible que le code que tu présentes ici soit une copie d'un code tapé dans le VBE.

cela s’ouvre mais ca ne me le met pas au premier plan, Je reste ouvert sur Excel:

Si c'est de mon code que tu parles, je l'ai vérifié avant de l'envoyé.
Si pour toi ça ne fonctionne pas, c'est qu'il y a des éléments que tu ne nous a pas communiqués.

[clementmarcotte]

(«*wordapp.Apllication*») ===> Ça ne peut pas marcher à cause de wordapp. des * et des « ». C'est ("word.application") comme cela et rien d'autre

wordapp.Documents.Open «*chemin.doc*» ===> Ça ne peut pas marcher à cause de «, de » et des * c'est ("chemin.doc") à la condition que chemin.doc soit dans le dossier par défaut. Sinon, il faut ajouter le chemin d'accès. De toutes façons, mettre le chemin d'accès au complet, c'est la méthode la plus prudente.