Comment changer le nom d'un onglet qui n'est pas celui qui est actif ?

[philoche63]

Rebonjour les amis !

Voilà le problème qui me préoccupe maintenant !
j'ai un fichier avec des onglets dont le nom est la période à laquelle il se rapporte (ex : 2013-09) pour septembre 2013. Jusqu'à présent, pour ouvrir la période suivante, je dupliquais l'onglet et je le renommais.
Je voudrais maintenant automatiser cette manip.
J'ai bien réussi à dupliquer l'onglet mais je n'arrive pas à renommer le nouvel onglet avec la bonne période.
Pouvez vous m'aider s'il vous plait ?
D'avance un grand merci de votre aide

Philoche

 

[titiborregan5]

Re : Comment changer le nom d'un onglet qui n'est pas celui qui est actif ?

Bonjour Philoche, le forum,

en estimant que ton nouvel onglet soit le dernier tu peux passer par

sheets(sheets.count).name="le nom que tu veux"

En espérant que ça puisse t'aider...

 

[philoche63]

Re : Comment changer le nom d'un onglet qui n'est pas celui qui est actif ?

Bonjour titiborregan5,
Merci beaucoup de ton aide !
Après quelques tests, ca marche en partie. Je m'explique :
Mon classeur comporte 1 onglet 2013-09
quand je lance la macro, il me crée un onglet 2013-10 => parfait !
mais quand je lance une deuxieme fois, il me crée bien un onglet 2013-11 mais il me renomme l'onglet 2013-10 en 2013-10 (2) !!
Qu'en penses tu ?
Amicalement,
Philoche

 

[Jack2]

Re : Comment changer le nom d'un onglet qui n'est pas celui qui est actif ?

Bonjour tout le monde,

Pour éviter ce type d'erreur, il faut toujours se placer sur la feuille portant la date la plus "récente" (cf. macro adaptée pour créer 3 feuilles (octobre, novembre, décembre).

Sub Dupli()
    For i = 1 To 3
        nomonglet = Cells(33, 2)
        Sheets(nomonglet).Select
        Sheets(nomonglet).Copy After:=Sheets(nomonglet)
        periode2 = Cells(37, 2)
        Sheets(Sheets.Count).Name = periode2
        Sheets(periode2).Select
    Next i
End Sub

Il existe une autre possibilité : trier les feuilles en ordre croissant et prendre la dernière.

J'espère avoir répondu à ta question

A+