Macro pour déplacer une feuille pb

[schumi_57]

Openofiice dsl pour le Hors-Sujet mais je pense que vous pouvez m'aider.


Comment je peut indiquer au tableur que dès qu'une feuille est créer par une autre macro il la mette automatiquement en dernier




Merci de votre aide !

 

[MichelXld]

bonsoir Schumi

cette macro ajoute une feuille dans le classeur , la renomme et la positionne à la fin


Sub ajoutFeuille
Dim oDoc As Object , Sheet As Object
Dim i As Integer

'le classeur
oDoc=ThisComponent

'compte le nombre de feuilles dans le classeur
i=oDoc.Sheets.Count

'Ajouter une feuille , la nommer et la placer à la fin
oDoc.GetSheets.insertNewByName('ma nouvelle feuille',i)
End Sub


bonne soiree
MichelXld