Re: Pilotage Excel via OLE
Posté par R&B le 8/6/2006 21:03:11
J'ai la macro suivante qui sélectionne toute le range de totes les cellules d'une fenêtre. Cela peut accélerer les choses.
bon courage.
ps : je découvre, pour l'occasion, que Ooo ouvre les classeur MSOffice et peut en lire les macros !
' compteur cellules
' Ligs = nombre de lignes
' cols = nombre de colonne
Dim ligs As Integer
Dim cols As Integer
ligs = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count()
cols = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Columns.Count()
' Sélectionne le tout !
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
' autre méthode
Range(Cells(1, 1), Cells(ligs, cols)).Selectbon courage.
ps : je découvre, pour l'occasion, que Ooo ouvre les classeur MSOffice et peut en lire les macros !
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=4145&post_id=17203