Bonjour,
Merci Thierry pour cette info mais malheureusement ça ne marche pas chez
moi. J'ai pourtant fait un copier/coller presque tel quel.
Je n'ai aucun message d'erreur mais le tableau est toujours "impossible
de modifier la structure d'un tableau lié". Voici mon code au cas où
quelqu'un voit une erreur :
' --------------- FORMATAGE DU TABLEAU ------------------
sub Formate
' **************** acceder au bon tableau *****************
dim MonDocWriter as object
dim MonTexte as Object
dim LesTab as Object
dim MonTab as Object
MonDocWriter = ThisComponent
LesTab = MonDocWriter.TextTables
MonTab = LesTab.getByName("Tableau2")
' suivent ensuite plusieurs étapes de formatage de polices,
' largeurs de colonnes et alignements
' ******* Casser le lien DDE pour pouvoir fusionner *********
dim section as object
MonTab = LesTab.getByName("Tableau2") ' rappel au cas ou
section = MonTab.anchor.textSection
section.isProtected = false
section.IsAutomaticUpdate = false
section.setPropertyToDefault("DDECommandFile")
section.setPropertyToDefault("DDECommandElement")
section.setPropertyToDefault("DDECommandType")
' ************* fusion des lignes titres *************
CelCurseur = MonTab.createCursorByCellName("A2")
CelCurseur.goRight(4, true)
CelCurseur.goDown(0, true)
CelCurseur.mergeRange
end sub
Nicole de Bordeaux
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
