OVH Cloud OVH Cloud

Activer mon .Doc

1 réponse
Avatar
Youky
Bonjour à tous,
le code si dessous ouvre bien mon fichier mais
si celui ci est deja ouvert je souhaite seulement
le réactiver en barre des taches et ne pas avoir "en lecture seul"
Donc, quel est le code pour activer mon fichier "Aide.doc"
j'ai fait référence à Word9 en projet
je pense à:

on error resume next

window(Aide.doc).Activate 'cette ligne à revoir

if err=0 then exit sub
Dim wd As Word.Application
Set wd = New Word.Application
mydoc = App.Path & "\Aide.doc"
wd.Documents.Open (mydoc)
wd.Visible = True
Set wd = Nothing

Merci d'avance pour ceux qui ont la réponse
Youky ou Bruno cé pareil

1 réponse

Avatar
dark poulpo
essayes en enumerant les fenetres de words et si tu trouves le nom de ton
document en titre de fenetre (enfant ou pas) de word tu lui renvoi le focus
ou un truc du genre

--
-----
http://dark.freezee.org/
- Dark Update v2.0 (http://dark.freezee.org/appli/start.html )
- Dark Emule v0.44b r4
- Dark 3D-X 0.7beta
- Dark Shell 1.0 (le multi shell pour windows)