[prog] Copier/ coller d'une zone de cellules d'une feuille de calculs à une autre

Mon, 07 Mar 2005 06:23:56 -0800 

Bonjour à tous,

J'ai un souci de copie d'une zone de cellules d'une feuille n°1 vers une destination sur une feuille n°2.
Sur un fichier de test, y'a pas de problème, par contre dans le cadre du programme que je développe, il y a un beau message d'erreur, au niveau de la ligne oClendrier.CopyRange, qui est:
Runtime error BASIC.
Exception
Type: com.sun.star.lang.IllegalArgumentException
Message: cannot coerce argument type during coereflection call!.

Je ne comprend pas cette erreur, quelqu'un pourrait m'aider?

Merci.

Voici ma procédure...
Pour info: oCalendrier, Object global.

Sub CopieCalendrier (sCal As String, lX As Long, lY As Long)
Rem ************************************************************
Rem ***** Copie le modèle du calendrier dans les feuilles du
Rem ***** calendrier de la menuiserie
Rem * Variables d'entrées:
Rem *   sCal: Nom de la feuille de calcul de destination
Rem *   lX: Position en X de la copie
Rem *   lY: Position en Y de la copie
Rem ************************************************************
Dim iSource As Integer      Rem Index du classeur source
Dim iDest As Integer        Rem Index du classeur de destination

 oCalendrier = oFeuilles.GetByName(sCal)

REM Ici il y a le code pour récupérer l'index des feuilles source et destination.
REM D'ailleur, il n'y a pas un moyen directe du type oFeuilles.GetIndex("Calendrier_mars_2005")?

 Rem Definition de la structure UNO de la source
 Dim unoPlageSource As New com.sun.star.table.CellRangeAddress

 Rem Définition de la structure UNO cible
 Dim unoAdresseDest As New com.sun.star.table.CellAddress

 Rem Definition des paramètres de la source
 With unoPlageSource
   .Sheet = iSource
   .StartColumn = 0
   .StartRow = 6
   .EndColumn = 29
   .EndRow = 26
 End With

 Rem Definition des paramètres de destinantion
 With unoAdresseDest
   .Sheet = iDest
   .Column = lX
   .Row = lY
 End With

 Rem Xray.Xray unoPlageSource
 Rem Xray.Xray unoAdresseDest
 Rem Xray.Xray oCalendrier

 Rem Copie de la zone
 oCalendrier.CopyRange(unoPlageSource, unoAdresseDest)

End Sub

--
Arnaud GUERIN

Merci de ne pas utiliser de format proprietaire lors de l'envoi de piece jointe (format word, excel, powerpoint etc...)
J'accepte les formats libres txt, Ooo, pdf ou html. Merci.
http://www.gnu.org/philosophy/no-word-attachments.fr.html 



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à