changer le nom des feuilles de façon automatique

[DontWorry]

Bonjour,
J'aimerais automatiser une procédure :
- mon fichier excel contient plusieurs feuilles, basées sur le même modèle.
- Chaque feuille porte un nom différent.
- Je voudrais qu'il y ait une macro ou un formulaire, où l'on entre tous les noms, et que la macro change automatiquement les noms de chaque feuille.

J'ai quelques notions de programmation, mais je ne connais pas trop le VBA avec Excel. Pourriez-vous m'aider ?

 

[soft]

Salut DontWorry,

Tu peux utiliser la macro suivante :

Sub Nom_Feuille()
    For Each f In ActiveWorkbook.Sheets
        f.Name = InputBox('Nouveau nom', 'feuille : ' & f.Name, f.Name)
    Next f
End Sub

 

[Hervé62]

Salut
En meme tps que je t'ecrivais le petit pg , tu avais une reponse
Mais bon j'ai fini et te soumet une solution
Clique sur le bouton en feuille 'MAJ_feuil'
puis va voir le code, si cela te convient complete a ta facon

Hervé [file name=nom_feuil.zip size=9714]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nom_feuil.zip[/file]

 

[DontWorry]

Re:changer le nom des feuilles de façon automatiqu

Merci !! C'est parfait. B)