gerardF <gerard.perigord <at> laposte.net> writes:
>
> Excellent, mais...
> je ne crois pas que cela corresponde à la question.
>
> Cette formule permet de récupérer le nom de la feuille courante dans une
> cellule.
> Or Pierre cherche à récupérer les noms des autres feuilles dans sa feuille
> récap. Et la ce n'est possible que par macro.
>
> Gérard
>
Je viens d'écrire une macro, les noms des feuilles sont récupérées à partir de
la cellule B2.
J'ai supposé que ta feuille récap était la première feuille du classeur.
Voici :
Sub ListerFeuilles
Dim oDoc , oSheet As Object
Dim oCell
Dim i , j As Integer
oDoc = ThisComponent
oSheet = ThisComponent.Sheets(0)
j = oDoc.Sheets.Count - 1
' Le nombre de feuilles moins 1 ( la numérotation des feuilles
commence à 0 )
For i = 1 to j
' l'index de la 1ere feuille = 1 cela suppose que la feuille récap est
la première
oCell = oSheet.getCellByPosition(1,i)
' la première cellule à remplir est B2
oCell.string = oDoc.Sheets(i).Name
Next i
End Sub
C'est la première macro, elle a l'air de fonctionner mais si un spécialiste
veux bien y jeter un coup d'oeil.
Gérard
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
