Se connecter avec
S'enregistrer | Connectez-vous

enregistrement d'1 feuille excel sous un autre nom

Dernière réponse : dans Programmation
Partagez

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.

  1. Windows("feuille_test.xls" ).Activate (nom de la feuille qui est renommée a chaque fois)
  2. ' colle les infos sur la feuille evs
  3. Range("A9" ).Select
  4. ActiveSheet.Paste
  5.  
  6.  
  7. ActiveWindow.ScrollRow = 11
  8. ActiveWindow.ScrollRow = 5
  9. Application.CutCopyMode = False
  10. Sheets("feuil1" ).Select (selectionne la feuil1)
  11. Sheets("feuil1" ).Copy Before:=Sheets(1) (et la renomme en feuil2)
  12. ActiveWorkbook.Save (et ici la sauvegarde) j'ai donc feuil1 et 2
  13. ActiveWorkbook.Close
  14.  
  15. 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

Pour désigner une feuille par son nom :
Sheets("Feuil1")

Pour désigner une feuille par son numéro :
Sheets(1)

Connaître le nombre de feuilles d'un classeur :
Sheets.Count

Le nom d'une feuille :
Sheets(..).Name


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



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.
  • Posez votre question