----- Original Message -----
From: "Francois Gatto" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Friday, January 26, 2007 5:59 AM
Subject: Re: [users-fr] Tableau croisé dans Calc
Merci bien pour la macro
Je la transmets à mon collègue, en espérant que ça le dépannera.
Bonne soirée
Maryvonne
Dans l'attente d'une évolution
Cette ébauche de macro peut contourner le problème :
Sub DataPilotRefresh
Dim oDoc As Object
Dim oSheet As Object
Dim oDPs As Object
Dim oDPElement As Object
oDoc = ThisComponent
'Sélection de la feuille
oSheet = oDoc.Sheets.getByName("Feuille1") 'par défaut index 0
oDPs = oSheet.getDataPilotTables()
'Sélection du DataPilot par son nom
'Test si existe
If oDPs.hasByName("DataPilot1") Then
oDPElement = oDPs.getByName("DataPilot1")
Dim aDPSourceAddress As New com.sun.star.table.CellRangeAddress
'définition de la plage du DataPilot
aDPSourceAddress.StartColumn = 0
aDPSourceAddress.EndColumn = 5
aDPSourceAddress.StartRow = 0
aDPSourceAddress.EndRow = 24
aDPSourceAddress.Sheet = 0
oDPElement.setSourceRange(aDPSourceAddress)
oDPElement.refresh ' mise à jour du DataPilot
End If
End Sub
Espérant que cela permettra de combler la lacune.
Francois
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
