Page 1 sur 1

[R] Installation automatisée de Office Pro Plus 2007

Posté : mar. 06 mai 2008 09:32
par tomtom
Bonjour,

Code : Tout sélectionner

Run("setup.exe")
WinWaitActive("Microsoft Office Professional Plus 2007","")
ControlClick("Microsoft Office Professional Plus 2007","",1)
ControlSend("Microsoft Office Professional Plus 2007", "", 1, "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX")
;~ ControlSetText("Microsoft Office Professional Plus 2007", "&Continuer", "RichEdit20W1", "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX")
;~ Send("XXXXX-XXXXX-XXXXX-XXXXX-XXXXX")
WinWaitActive("Microsoft Office Professional Plus 2007","")
Sleep(1000)
Send("{ENTER}")
WinWaitActive("Microsoft Office Professional Plus 2007","")
Send("!P")
 
voila je voudrais faire une install personnalisée (install complète tout exécuter à partir du disque dur)

bref j'arrive à la fenêtre d'install perso et pas moyen d'identifier les controls
un printscreen de la fenêtre ou je bloc en attachement

une idée??

bav tomtom
install_perso.JPG

Re: Installation automatisée de Microsoft Office Pro Plus 2007

Posté : mar. 06 mai 2008 13:34
par eln
Pourquoi pas créer un fichier de réponse :
http://forums.microsoft.com/TechNet-FR/ ... &SiteID=45

(Non testé)

Re: Installation automatisée de Microsoft Office Pro Plus 2007

Posté : mar. 06 mai 2008 14:47
par tomtom
Bonjour,

je cherchais le kit de ressources pour office 2007 depuis longtemps....
mais n'ayant pas trouvé je m'étais dit que autoit aurait pu faire l'affaire

je ne savais pas que ce dernier étais intégré dans le dvd original via la commande

Code : Tout sélectionner

setup /admin
il lance une interface permettant de créer un fichier de réponse au format .msp
je viens de tester nickel
et beaucoup plus simple que autoit

Merci

Re: [R] Installation automatisée de Office Pro Plus 2007

Posté : mar. 06 mai 2008 17:50
par Vins83
une fois ton fichier crée,tu fais ça:

Code : Tout sélectionner

If FileExists("Office2007\SETUP.EXE") Then
      Run("Office2007\SETUP.EXE /adminfile UPDATES\setup.msp")
      WinWaitActive("Microsoft Office Professional Plus 2007", "NUIDocumentWindow")
      $i1 = 0
      While $i1 <= 10
           Sleep(5000)
           Send("{ENTER}")
           $i1 = $i1 + 1
       WEnd
       While 1
            If Not ProcessExists("SETUP.EXE") Then ExitLoop
                    Sleep(30000)
                    If WinExists("Microsoft Office Professional Plus 2007", "NUIDocumentWindow") Then
                    Sleep(5000)
                    Send("{TAB}")
                    Sleep(2000)
                    Send("{ENTER}")
            EndIf
       WEnd
EndIf   


En gros voilà le truc