Maryvonne Pottier a écrit :
C'est bien dommage !
Je vais transmettre ta réponse à mon collègue.
J'espère qu'il acceptera de patienter, mais je n'en suis pas sure, dans
la mesure où dans son service, le traitement de longs tableaux est
quotidien.
Merci beaucoup d'avoir fait toutes ces recherches
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]
