Re: [AS] Scripter excel

    -- selectionne toutes les cellules utilisées

    select used range of active sheet of active workbook

    -- copie toutes les cellules utilisées (ça peut prendre du temps)

    my cutSelection()
    # Désormais la feuille est vide on devrait pouvoir appliquer paste/transpose

    --set activeCell to (cell "A1")

    -- copie spéciale avec un transpose

    --    tell activeCell

    paste special with transpose

    --    end tell

on cutSelection()
    tell application "System Events" to tell process "Excel" # c'est peut être "Microsoft Excel"
        set frontmost to true
        keystroke "X" using {command down} # coupe la sélection
    end tell
end cutSelection

>>>>>      # set sourceRange to le range à copier
>>>>>      # copy range sourceRange

>>>>>      # passer le focus vers la table de destination
>>>>>      # définir le point de départ de la zone où coller

>>>>>      set foundRange to selection

>>>>>      set cur_col to the (first column index of foundRange)

>>>>>      set cur_row to the (first row index of foundRange)

>>>>>      set nextCell to cell cur_row of column cur_col

>>>>>      tell nextCell

>>>>>              select

>>>>>              paste special with transpose

>>>>>      end tell