3 messages in org.openoffice.fr.prog[PROG] RE Suppression de liens par macro
FromSent OnAttachments
eric MulteauSep 18, 2006 4:15 am 
Bernard MarcellySep 18, 2006 5:04 am 
eric MulteauSep 18, 2006 9:52 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:[PROG] RE Suppression de liens par macroActions...
From:eric Multeau (eric@free.fr)
Date:Sep 18, 2006 4:15:56 am
List:org.openoffice.fr.prog

Bjr,

Je viens de trouver une solution pour supprimer ces liens. A force de chercher je suis tombe dans le navigateur d Ooo ou j ai decouvert
123 feuilles cachees qui correspondent aux fameux liens que je cherche a
detruire.

Fort de cette info, j ai donc entrepris de supprimer toutes ces feuilles cachees
et surprise, les liens disparaissent en meme temps.

Ci dessous le code faisant le menage si cela peut servir : NOTA : les feuilles PARAMETRE & TABLEAU sont les seules que je desire
conserver.

' Suppression des liens qui se sont générés automatiquement ' lors de l'accès à la feuille de calcul pour mise en place ' des smiley et du lien vers le fichier associé ' --------------------------------------------------------- maxfeuille = fichier1.getSheets.Count -1
' Compter le nombre de feuilles du classeur for n = 0 to maxfeuille
' Boucler sur toutes les feuilles feuille1 = fichier1.getSheets.getByIndex(n)
' Référencer la feuille en cours wnom_feuille = feuille1.name
' Mémoriser son nom if wnom_feuille = "Tableau" or wnom_feuille = "Localisation" then
' Si nos feuilles 'print wnom_feuille & " A conserver"
' Ne rien faire else
' Sinon fichier1.sheets.removeByName(wnom_feuille)
' Détruire la feuille 'print wnom_feuille & " Détruite ... ", maxfeuille maxfeuille = maxfeuille -1
' On décompte la feuille détruite dans maxfeuille n = n-1
' On décompte la feuille dans indice end if next

Amicalement Eric