Bonjour,
J'ai constaté une différence notable de traitement V2.0.1 et V2.0.2 sous
Calc en traitement d'un classeur existant EXCEL à un format imposé.
La structure de ce classeur est constituée de 2 feuilles de calcul et de
macros (sans intérêt).
Une feuille nommée "Original" a son attribut XlSheetVisible=0 soit visible,
l'autre nommé "copie" est invisible et le rôle des macros est d'effectuer
certaines opérations liées à cette feuille invisible.
Pour information, l'éditeur de macro Excel répertorie "Original" comme
Feuil2 et "copie" comme Feuil1.
Sous OpenOffice pour exporter les données de ce tableau vers un autre
format, j'utilise une fonction VB6 avec OpenOffice invisible.
Private Function Exporter_XLS(fichierexcel_xls As String) As Boolean
Dim ServiceM As Object
Dim monBureau As Object
Dim monCalc As Object
Dim mafeuille As Object
Dim args(0) As Variant
Dim fichier As String
dim nomfeuille As String
On Error GoTo fin_exportation
' service OpenOffice
Set ServiceM = CreateObject("com.sun.star.ServiceManager")
Set monBureau = ServiceM.createInstance("com.sun.star.frame.Desktop")
' initialisation des arguments
Set args(0) = ServiceM.Bridge_GetStruct(
"com.sun.star.beans.PropertyValue" )
args(0).Name = "Hidden"
args(0).Value = true
' format URL
fichier = convertTotURL(fichierexcel_xls)
' chargement classeur
Set monCalc = monBureau.loadComponentFromURL(fichier, "_blank", 0,
args())
' verification objet
If IsNull(monCalc) Then
MsgBox "Le classeur Excel nommé " & fichierexcel_xls & " n'existe
pas."
GoTo fin_exportation
End If
' accès premiere feuille de calcul
Set mafeuille = monCalc.getSheets().getByIndex(0)
' nom de la feuille
nomfeuille = mafeuille.Name
'------------------------------------------------------------------------
En version 2.01
nomfeuille ="Original"
En version 2.02
nomfeuille ="copie"
Si OpenOffice est rendu visible (mais ce n'est pas souhaité) alors
nomfeuille ="Original" et la version 2.02 se comporte à l'identique de la
version 2.01.
Il y a donc mélange des attributs de feuille avec ceux des attributs de
programme à l'exécution.
J'ai tenu à signaler ce problème qui me semble anormal, car un simple
changement de révision sensé corriger des bugs, ne doit en principe pas
provoquer une telle différence.
Cordialement.
Pascal
_________________________________________________________________
Windows Live Mail : venez tester la version bêta !
http://www.ideas.live.com/programpage.aspx?versionId=5d21c51a-b161-4314-9b0e-4911fb2b2e6d
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
