Renommer onglet selon condition

[NarekSogh]

Bonjour à tous,

Je suis tout nouveau sur le forum. Je m'y connais un peu en excel mais je débute en vba.

Je dois créer une macro qui renomme les onglet d'excel selon leur nom de base.
Exemple :

Renommer l'onglet "formation 2013" par "FO"
Renommer l'onglet "paramètres" par "PAR"
etc.

Sachant que tous les onglets du classeur ne sont pas à renommer et que j'ai une centaine de fichiers, ça risque d'être très long manuellement. J'aimerais pouvoir automatiser cela mais mes connaissances en VBA sont limitées.

Pouvez-vous m'aider svp ?

Cordialement,

NarekSogh

 

[flienator]

Re : Renommer onglet selon condition

Bonjour,

Quelles sont les conditions ?
Si "formation 2013" toujours renommer "FO" ?
Si "paramètres" toujours renommer "PAR" ?

Quels sont les conditions pour ne pas renommer l'onglet ?

 

[NarekSogh]

Re : Renommer onglet selon condition

Oui effectivement,

Chaque onglet a un nom différent dans un même classeur. Donc il n'y aura qu'un "paramètre 2013" par fichier.
Et bien sur il y a des onglets auxquels il ne faut pas toucher.

Plus précisément :

Suivi BP Parametres => PAR-
Suivi BP Emploi => RE-
Suivi BP Frais Fonct => VAF-

Mais s'il y a un onglet qui s'appelle "Bonjour" et bien on ne fait rien on le laisse tel qu'il est.


Edit : J'ai réussi à faire quelque chose dans ce genre :

Sub renommer()
Dim Ws As Worksheet
Set Ws = Sheets("Parametre")
Sheets("Parametre").Name = "PAR-"

Set Ws = Sheets("Formation")
Sheets("Formation").Name = "FO-"

Set Ws = Sheets("Microcredit")
Sheets("Microcredit").Name = "MCS-"

Set Ws = Nothing
End Sub

Le problème est que s'il n'y a pas d'onglet Microcredit, j'obtiens une erreur, je ne sais pas comment lui dire de passer si cela n'existe pas.