enregistrement d'1 feuille excel sous un autre nom

[menvu2]

bonjour
je cherche a renommer via une macro mes feuilles excel sous un autre nom
voici le probléme auquel je suis confronté.en dessous une partie de la macro concernée.

Windows("feuille_test.xls" ).Activate (nom de la feuille qui est renommée a chaque fois)
' colle les infos sur la feuille evs
Range("A9" ).Select
ActiveSheet.Paste


ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 5
Application.CutCopyMode = False
Sheets("feuil1" ).Select (selectionne la feuil1)
Sheets("feuil1" ).Copy Before:=Sheets(1) (et la renomme en feuil2)
ActiveWorkbook.Save (et ici la sauvegarde) j'ai donc feuil1 et 2
ActiveWorkbook.Close
 
End Sub

j'ai besoin que la feuille 2 ne s'appelle pas feuille2 mais qu'elle s'appelle (coordonnée qui se situe en cellule b2) de ma feuille test.

voila si quelqu'un peux me renseigner
je vous remercie a l'avance
gerard

 

[zeb]

Pour désigner une feuille par son nom :[fixed]Sheets("Feuil1")[/fixed]
Pour désigner une feuille par son numéro :[fixed]Sheets(1)[/fixed]
Connaître le nombre de feuilles d'un classeur : [fixed]Sheets.Count[/fixed]
Le nom d'une feuille : [fixed]Sheets(..).Name[/fixed]

Donc pour renommer la dernière feuille :[fixed]Sheets(Sheets.Count).Name = "Nom de ma feuille"[/fixed]


Pour t'en convaincre :
■ Démarre l'enregistreur de macro,
■ Renomme une feuille,
■ Arrête l'engistreur de macro,
■ Va lire le code dans l'éditeur VBA.


Pour allez chercher la valeur dans B2, utilise l'enregistreur de macro :
■ Démarrage de l'enregistreur,
■ Mettre quelque chose dans B2 pour voir comment la cellule est désignée,
■ Arrêter l'enregisteur,
■ Lire le code, le comprendre, (aide en ligne, forum, ppc)
..
■ Mélanger l'attribution du nom d'une feuille + aller chercher la valeur d'une cellule.