Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

RenommerUneFeuilleEtEnregistrerClasseurAvecMacro

M

Moa

Guest
Voilà, j'ai fait une macro, qui enregistre mon calsseur sous le nom pris dans la cellule B2 de la feuille "Base"

Sheets("Base").Select
Sheets("Base").Name = "B2"

Jusque là Ok

Puis j'ai fait une autre macro, qui renomme ma feuille, avec le même nom pris dans la même cellule en ajoutant la lettre "N"


Sheets("Base").Select
ActiveWorkbook.SaveAs "N" & Range("B2").Value

Ca marche aussi.

Mais voilà :

Je veux insérer ces deux macros, dans une autre, en mettant la 2è avant la première, afin qu'après l'enregistrement du classeur, tout soit fini

Le problème est que, si la feuille est renommée, comment dire dans ma macro d'enregistrement du classeur, de trouver la cellule où se trouve le nom à choisir, puisque ma feuille ne s'appelle plus "Base", mais "Nx".

Existe-t-il un moyen pour dire à excell, que la référence qu'il cherche est dans la cellule B2 de la dernière feuille renommée ?

En clair : Peut on dire à excel de rechercher la dernière feuille renommée ?

Merci d'avance

@ +

Moa
 
S

sousou

Guest
as-tu essayé de travaillé avec le numéro d'index de ta feuille plutôt que son nom

sheets(1) au lieu de sheets("base").

Tu obtient son numéro par la propriété index

monindex= thisworkbook.activesheet.index
 
M

Moa

Guest
Non, pas du tout, mais je vais éssayer.

En attendant voici la solution que j'ai adoptée.

'Sauvegarde du classeur sous le nom "Nx", écrit dans la cellule B2 de la feuille "Base"

Sheets("Base").Select
ActiveWorkbook.SaveAs Range("B2").Value

' Renomme Feuille "Base" en "Nx" + "A"

Sheets("Base").Select
Sheets("Base").Name = Range("B2").Value & "A"

' Enregistrement du classeur

ActiveWorkbook.Save

Mais je préfère d'ores et déjà la tienne, car dans le nouveau classeur, j'enlève plein de choses dont les macros.

Merci à toi Sousou

@ +

Moa
 

Discussions similaires

Réponses
12
Affichages
811
Réponses
5
Affichages
338
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…