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

[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

[eln]

Pourquoi pas créer un fichier de réponse :
http://forums.microsoft.com/TechNet-FR/ ... &SiteID=45

(Non testé)

[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

[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