[R] Fermer une fenêtre d'extension Excel '*.xlsx - Excel' ouverte

[Boulanza]

Bonjour,
Je cherche un script et ou fonction qui peut fermer une fenêtre d'extension Excel '*.xlsx - Excel' ouverte. Voir exemple code ci-dessous:

Code: [Tout sélectionner] [Déplier/Replier]

;~ WinClose("*.xlsx - Excel")
WinSetState("*.xlsx - Excel", "", @SW_HIDE)
Exit

GeSHi © Extension Codebox Plus

Merci pour votre aide.
Cordialement.

[walkson]

Bonjour,
Même en récupérant les handles des fenêtres Excel (par exemple: Global $Data = _WinAPI_EnumProcessWindows(ProcessExists('Excel.exe'))) WinClose() ou WinKill() ferme tous les classeurs Excel. Il faut passer par les fonctions _Excel_***

Code: [Tout sélectionner] [Déplier/Replier]

#include <Array.au3>
#include <Excel.au3>

Local $aWorkBooks = _Excel_BookList()
_ArrayDisplay($aWorkBooks)
For $i = 0 To UBound($aWorkBooks) - 1
   $array = StringRegExp($aWorkBooks[$i][1],"(?i)(\.)(\w{3,4})$",3);extension en ligne 1
      If IsArray($array) Then
         _ArrayDisplay($array,$aWorkBooks[$i][1])
         If $array[1] = "xlsx" Then
            MsgBox(32,$aWorkBooks[$i][1],"xlsx trouvé")
            Local $oExcel1 = _Excel_Open()
            Local $sWorkbook1 = $aWorkBooks[$i][2] &"\"& $aWorkBooks[$i][1]
            Local $oWorkbook1 = _Excel_BookOpen($oExcel1, $sWorkbook1)

            If UBound($aWorkBooks) > 1 Then ;si plusieurs classeurs
               _Excel_BookClose($oWorkbook1, False) ;ferme le book
            Else
               _Excel_Close($oExcel1,False,True) ;sinon ferme excel
            EndIf

         EndIf
      EndIf
Next
 

GeSHi © Extension Codebox Plus

à noter qu'ici, on ferme sans sauvegarde et que ce peut être paramétré

[Boulanza]

Merci Monsieur Walkson, c'est parfait...