Nommer une feuille à partir d'une cellule d'un autre classeu

Bonjour à tous,

Je cherche à partir d'un nom de cellule d'un classeur ALPHA à créer et nommer une feuille crée sur un autre classeur BETA.

J'ai commencé à écrire mon code:

Sub enregarch()

If Range("A3").Value = 0 Then

If MsgBox("Attention vos scores sont vides", vbOKOnnly) = vbox Then ' si aucun scores saisie box d'avertissement

End If

Else:

Application.ScreenUpdating = False

Workbooks.Open Filename:=[base] ' chemin du fichier ( base = h:\BETA.xlsm)

Windows("BETA.xlsm").Activate ' fichier de sauvegarde

ActiveWindow.WindowState = xlNormal

Windows("ALPHA.xlsm").Activate ' fichier de travail

Range("a1:c3").Select ' sélection zone de copie

Selection.Copy

Windows("BETA.xlsm").Activate ' bascule sur fichier de reception

ActiveWorkbook.Worksheets.Add.Name = "lieu" '[lieu] ' Nom de la feuille à créer

Range("d3").Select ' zone de reception

Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False ' coller des données

Range("a1").Select

Workbooks("BETA.xlsm").Save ' sauvegarde fichier de réception

Workbooks("BETA.xlsm").Close True 'fermeture du fichier de réception

Windows("ALPHA.xlsm").Activate ' retour fichier de travail

End If

End Sub

Je voudrais que "lieu" qui est dans le classeur ALPHA, soit le nom de la feuille que j'ai crée dans le classeur BETA.

Si je laisse "lieu", tel que je l'ai mis, j'ai lieu en nom de feuille, a l'endroit du nom qui se trouve dans la cellule [lieu] du classeur ALPHA.

Merci d'avance pour vos réponses.

JLouis

Bonjour et bienvenue sur le forum

Remplace cette instruction :

ActiveWorkbook.Worksheets.Add.Name = "lieu" 

par celles-ci :

ActiveWorkbook.Worksheets.Add  
ActiveSheet.Name = "lieu"

OK ?

Bye !

Non, ma précédente réponse n'apporte pas la solution que tu cherches.

En fait, tu écris :

Je voudrais que "lieu" qui est dans le classeur ALPHA,

Mais tu ne dis pas où est écrit ce mot ...

Bye !

Bonsoir,

En fait "lieu" est le nom lié à la cellule A2 de mon Classeur ALPHA et par cette macro je crée une nouvelle feuille dans mon classeur BETA, et je souhaite mettre le contenu de ma cellule A2 du classeur ALPHA en onglet de la nouvelle feuille crée sur mon classeur BETA.

Alors, voilà :

Sub NlleFeuilleDansBeta()
    Workbooks("BETA.xlsm").Sheets.Add.Name = Cells(2, "A")
End Sub

Bye !

Merci, j'essaie demain et je tiens au courant.

Bye

Bonjour gmb,

en fait je crée bien une feuille sur BETA avec le contenu de la cellule A2.

Mais c'est après avoir fait la copie de mon classeur ALPHA sur la 1ere feuille de mon classeur BETA.

Ta réponse me crée une nouvelle feuille sur BETA avec les données copiés sur la 1ere feuille du classeur.

mais la feuille nommée est vide.

Ce que je voudrais, c'est prendre la valeur de la cellule A2 du classeur ALPHA

créer une feuille sur le classeur BETA

Nommer la nouvelle feuille du classeur BETA, avec la valeur de la cellule A2 d'ALPHA.

Bonjour

RJL a écrit :

Ce que je voudrais, c'est prendre la valeur de la cellule A2 du classeur ALPHAcréer une feuille sur le classeur BETANommer la nouvelle feuille du classeur BETA, avec la valeur de la cellule A2 d'ALPHA.

Mais...c'est bien ce que j'avais compris !

La macro que je t'ai donné ne fait pas ça ?

A moins que tu veuilles que la feuille créée sur Béta soit la copie de la feuille de départ de ALPHA ?

A te relire

En fait cela fonctionne avec les 2 fichiers ouvert.

Sauf que moi je n'ai qu'un fichier ouvert, ( ALPHA)

Et je souhaite ouvrir mon fichier BETA depuis ALPHA, inscrire les données copier de ALPHA vers une nouvelle feuille renommé avec le contenue de ma cellule A2 de ALPHA.

Car en fait je travaille avec plusieurs fichier que j'ouvre pour mettre des infos depuis ALPHA et que je referme aussitôt pour passer à un autre fichier.

RJL a écrit :

Et je souhaite ouvrir mon fichier BETA depuis ALPHA, inscrire les données copier de ALPHA vers une nouvelle feuille renommé avec le contenue de ma cellule A2 de ALPHA.

Alors voilà :

Cela suppose que les fichiers ALPHA et BETA soient dans le même dossier ou tous les deux sur le bureau.

Si ce n'est pas le cas, il me faut l'adresse du fichier BETA pour l'intégrer à la macro.

Bye !

Bonsoir,

Ton code fonctionne, mais il me crée une feuille "Paris" plus une autre " Feuil2".

De plus sa ne marche pas à chaque fois?

J"ai rajouter pour copier les données d'une feuille à l'autre et d'un classeur à l'autre.

Je te joint le fichier.

Cdlt

JL

Bonsoir gmb,

En fait ton code fonctionne correctement, je ne sais pas ce qui c'est passé, mais j'ai fermé excel et ré-ouvert et tout a fonctionné parfaitement.

Par contre je souhaiterais ouvrir le fichier "BETA" sous différents noms en fonction de la valeur de A1 de mon fichier ALPHA.

Là j'arrive à l'ouvrir code:

Workbooks.Open Filename:=ThisWorkbook.Path & "\" & NomFichier & ".xlsm"

Workbooks("BETA.xlsm").Sheets.Add.Name = nom

Jusqu’à la 1ere ligne >> OK le fichier s'ouvre, mais que mettre à la place de BETA sur la 2éme ligne pour renommer la feuille.

Nomfichier est une variable en A1 d'ALPHA

Cdlt

JL

RJL a écrit :

Ton code fonctionne, mais il me crée une feuille "Paris" plus une autre " Feuil2".

Pas du tout, la feuille ''Feuil2'' existe déjà dans mon fichier BETA

De plus sa ne marche pas à chaque fois?

Et non ! si tu relances la macro elle voudra mettre à une nouvelle feuille le nom qu'elle a déjà mis à une feuille la fois d'avant. Ce que Excel n'admet pas.

Ci-joint ta macro corrigée et annotée.

Bye !

RJL a écrit :

mais que mettre à la place de BETA sur la 2éme ligne pour renommer la feuille.

La même chose qu'à l'instruction précédente, c'est-à-dire :

Workbooks(nomFichier & ".xlsm").Sheets.Add.Name = nom

Mais fais attention : si ''nom'' est déjà le nom d'une feuille, c'est le bug !

Bye !

Bonsoir,

Je pense que je n'arrive pas à expliquer ce que je veux faire.

pour:

Workbooks(nomFichier & ".xlsm").Sheets.Add.Name = nom

J'ai un message d'erreur 1004

parce qu'en fait nomfichier est la valeur que j'ai dans la cellule A1 du fichier ALPHA

J'ai donc modifié le code pour avoir BETA au lieu de nomfichier, mais mon BETA est toujours la valeur de A1.

je joint le nouveau fichier.

Bonne soirée, je me reconnecte demain.

JL

Je ne comprends pas mieux.

On va s’y prendre autrement ;

Dis moi exactement ce qu’il en est en rectifiant ce qui suit :

• On part d’un fichier appelé ALPHA qui est ouvert.

* Il y a dans ce fichier le valeurs :

*en A1 : ‘’Jean Louis’’

*en A2 :’’ Paris’’

*en A3 :’’EFGH’’

• On a un deuxième fichier BETA dans le même dossier que ALPHA

*Ce fichier BETA est fermé

* Il contient des feuilles : Feuil1 et Feuil2 qui contiennent diverses données

• On veut , en cliquant sur un bouton de ALPHA :

1 – Ouvrir le fichier BETA

2 – Lui ajouter une feuille qu’on veut appeler ‘’Paris’’, du nom contenu dans la cellule A2 de ALPHA

3- Changer le nom du fichier BETA en l’enregistrant sous le nom de ‘’EFGH’’ du nom contenu dans la cellule A3 de ALPHA

4 - …

5 - …

A te relire

Bye !

Bonjour gmb

ce que je souhaite:

Je part du fichier ALPHA qui est ouvert

* Il y a dans ce fichier les valeurs :

*en A1 : ‘’Jean Louis’’

*en A2 :’’ Paris’’

*en A3, etc... :’’EFGH’’ ( zone complète d'une feuille d'ALPHA)

• On a un deuxième fichier "jean louis" (ou autres) dans le même dossier que ALPHA

*Ces fichiers jean louis (ou autres) sont fermés

* Il contiennent des feuilles : Feuil1 et Feuil2 qui contiennent diverses données

• On veut , en cliquant sur un bouton de ALPHA :

1 – Ouvrir le fichier jean louis (ou autres) en fonction du contenu de la cellule de A1 de ALPHA

2 – Lui ajouter une feuille qu’on veut appeler ‘’Paris’’, du nom contenu dans la cellule A2 de ALPHA

3 _ Copier les informations du fichier ALPHA vers la nouvelle feuille renommé

4 _ Fermer le dossier jean louis (ou autres)…

5 _ Retour sur ALPHA…

J'aurais du commencer par cela!

Bonne journée

JL

Nouvel essai à tester.

Cela convient-il ?

Bye !

Félicitation gmb, c'est exactement ce que je voulais.

Réponse rapide et efficace.

Encore MERCI.