gerardF <gerard.perigord <at> laposte.net> writes: > 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 -------------- MERCI !!! ça marche très bien ! bonne soirée, Pierrre
--------------------------------------------------------------------- To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
