AutoIt Français

Code : Tout sélectionner

[spoiler=]
Func _ExportFileToExcel()

    $aString = _StringToArray2D($Display, @CRLF, ";", 1)
    _ArrayDisplay($aString)

    If $aString = "" Then Return MsgBox(64, "", "Aucune donnée à exporter.", -1, $MainGUI)
    SplashTextOn("", "Exportation vers Excel des données " & $FileToOpen & " en cours..." & @CRLF & "Veuillez patienter...", 550, 80, -1, -1, 49)
    Local $oAppl = _Excel_Open()
    If @error Then Exit MsgBox(64, "", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended, $MainGUI)

    Local $oWorkbook = _Excel_BookNew($oAppl)
    If @error Then
        MsgBox(64, "", "Error creating the new workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended, $MainGUI)
        _Excel_Close($oAppl)
        Exit
    EndIf

    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aString, "A1", True, True)

    $oWorkbook.ActiveSheet.Columns("A:M").AutoFit
    SplashOff()

EndFunc

[/spoiler]

Code : Tout sélectionner

Func array_excel_perso(ByRef $array)
    Switch UBound($array ,0)
        Case 1; tableau à 1D
            For $i = 0 To UBound($array, 1) -1
                $array[$i] = StringReplace($array[$i]," ' ","")
                $array[$i] = StringReplace($array[$i],".",",")
            Next
            Return $array
        Case 2;tableau 2D
            For $i = 0 To UBound($array,1) -1
                For $j = 0 To UBound($array,2) -1
                    $array[$i] = StringReplace($array[$i]," ' ","")
                    $array[$i] = StringReplace($array[$i],".",",")
                Next
            Next
            Return $array
    EndSwitch
    Return SetError(-1,0,-1);$array n'est pas valide
EndFunc

Code : Tout sélectionner

        Case 2;tableau 2D
            For $i = 0 To UBound($array,1) -1
                For $j = 0 To UBound($array,2) -1
                    $array[$i][$j] = StringReplace($array[$i][$j],"'","")   ; "'" et [$i][$j]
                    $array[$i][$j] = StringReplace($array[$i][$j],".",",")
                Next
            Next