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

Créer onglet et le nommer valeur cellule autre classeur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cheyenne63

XLDnaute Occasionnel
Bonjour
Dans le Classeur1, Feuille1, j’ai dans la cellule B1 la formule ="SEM"&" "&C17
Dans une macro, je tente en vain depuis des heures, lorsque je la lance, créer un onglet dans un classeur 2 et nommer ce nouvel onglet avec la valeur de B1 du premier classeur.
Donc en VBA, mon bout de code qui ne fonctionne pas :
Sheets.Add.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = Workbooks("classeur1.xls").Sheets("Feuille1").Range("B1").Value
Merci d'avance et bonne journée
 
Re : Créer onglet et le nommer valeur cellule autre classeur

Bonjour,

et la macro se trouve dans le classeur 2 ? lors de l'exécution, quel est le classeur actif ? manque un peu de détail pour pouvoir te répondre...

bon après midi
@+
 
Re : Créer onglet et le nommer valeur cellule autre classeur

La macro se trouve dans le premier classeur.
Si je met :
Sheets.Add.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = "blabla"
tout fonctionne (création d'un onglet nommé blabla dans le classeur 2) mais le souci c'est que je veux qu'il se nomme comme le réultat de la cellule B1 du classeur 1
Merci d'avance
 
Re : Créer onglet et le nommer valeur cellule autre classeur

Re,

essaye peut être comme ceci :

Code:
With Workbooks("Classeur2.xls")
    .Sheets.Add After:=.Sheets(.Sheets.Count)
    .Sheets(.Sheets.Count).Name = Workbooks("classeur1.xls").Sheets("Feuille1").Range("B1").Value
End With

quand tu dis, ca ne fonctionne pas... message d'erreur ou pas le résulat attendu ?
 
Re : Créer onglet et le nommer valeur cellule autre classeur

Cool ça marche c'est nickel ! Bravo.
Tu m'expliques brièvement stp ?
Et merci encore.
@+
On essai des heures et des heures alors qu'en 10 mn c'est vite réglé ici. 😱
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…