deux cellule donne le nom a mon onglet

[thibaut]

bonjour a tous
j'ai créer une petite macro qui logiquement a la fin de la procedure doit prendre le nom des deux cellules (ici C10😀10) et les mettre en nom de l'onglet mais je ne sais pas pourquoi il ne veu pas prendre cette fonction pour lui donner le nom
si vous aviez une petite idée

merci
thibaut
ps : je peu vous mettre tout le code de la fonction si vous voulez

Range("C10😀10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("MODELVISIO.xls").Activate
Sheets("FICHE DE VISIONNAGE MODEL").Select
Sheets("FICHE DE VISIONNAGE MODEL").Name = ""
Windows("FICHE AT WORK.xls").Activate
Windows("MODELVISIO.xls").Activate
Application.CutCopyMode = False
Sheets(" ").Copy After:=Workbooks("FICHE AT WORK.xls").Sheets(8)
Windows("MODELVISIO.xls").Activate
ActiveWindow.Close
ActiveWorkbook.Save

 

[Aoane]

Bonjour

Honnêtement je ne vois pas trop ou mene ton code....

mais pk tu n'écris pas plutot

sheets(x).name=range("C10") & range("D10")
ou
sheets(x).name=range("C10") & " " & range("D10") 'avec un espace?????

tout simplement?????

sinon il est possible que ça plance car ce n'est pas le même "format que tu colle...

expliquation de ce que je veux dire....

essaie d'étiré une cellule(fusionné) C10😀10 sur les cellule du bas... normalement... il y à un message d'erreur!! (pas meme format???)

bye

 

[Gérard DEZAMIS]

Bonjour thibaut

ChTi'160 (Jean-Marie) a déjà donné une solution pour ce type de problème :

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=140838&t=140779> le 14-01-05
en l'adaptant

Sub NommeFeuilles()
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Worksheets 'pour chaque feuille de la collection du classeur
If Ws.Name <> "Accueil" Then 'si le nom de la feuille est different de Acceuil
Ws.Select 'cette feuille est selectionnée
Ws.Name = ActiveSheet.Range("A1") & " "&ActiveSheet.Range("D10") 'je nomme cette feuille avec la valeur de la cellule A1 + un espace et la valeur de la cellule D10. A ce sujet ton : Range("C10😀10").Select me semble bizarre (un plage de 4 cellules pour un nom d'onglet ?)
End If
Next
Application.ScreenUpdating = True
End Sub

Si cela peut t'avancer un peu ...
@+
GD

 

[Gérard DEZAMIS]

Oups !

Télescopage !

Bonjour Aoane

J'arrive trop tard mais je suis du même avis. Pourquoi faire compliqué ?

J'ai mis l'exemple nordiste car il est bien pratique pour plusieurs oglets.
Merci le Ch'Nord !

@+
GD

 

[thibaut]

bonsoir a tous et merci pour votre aide
bon je ne me suis peut etre pas bien expliquer pour que vous compreniez mieux ou mene mon code
le principe est le suivant j'ai un tableau avec une ligne numero et une ligne nom a la fin de cette ligne j'ai mi un bouton pour appliquer la fameuse macro qui :
ouvre un fichier model
inscrit le numero et le nom dans deux cellule du model
change le nom de l'onglet du model par cellui des deux cellule copier
copie la feuille du model avec le nouveau nom vers le classeur actif
ferme le model sans sauver et sauve le classeur actife
ouf c'est fini
et don un bouton devant chaque ligne pour créer autant de page que de ligne existante
donc pour infos maintenant le code ne plante plus mais l'onglet n'est pas renomer

merci a tous de votre aide

voici le code complet de la macro si ca peu aider

Workbooks.Open Filename:="MODELVISIO.xls"
Windows("FICHE AT WORK.xls").Activate
Range("C10").Select
Selection.Copy
Windows("MODELVISIO.xls").Activate
Range("I4").Select
ActiveSheet.Paste
Windows("FICHE AT WORK.xls").Activate
Range("D10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("MODELVISIO.xls").Activate
Range("C4").Select
ActiveSheet.Paste
Windows("FICHE AT WORK.xls").Activate
Range("C10😀10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("MODELVISIO.xls").Activate
Sheets("FICHE DE VISIONNAGE MODEL").Select
Sheets("FICHE DE VISIONNAGE MODEL").Name = Range("C10") & " " & Range("D10")
Windows("FICHE AT WORK.xls").Activate
Windows("MODELVISIO.xls").Activate
Application.CutCopyMode = False
Sheets(" ").Copy After:=Workbooks("FICHE AT WORK.xls").Sheets(8)
Windows("MODELVISIO.xls").Activate
ActiveWindow.Close
ActiveWorkbook.Save
End Sub

 

[thibaut]

oups je pense que j'ai pigé pourquoi le nom ne se met pas il me semble en tt cas que j'ai isolé la ligne
Sheets(" ").Copy After:=Workbooks("FICHE AT WORK.xls").Sheets(8)
mais je ne comprend pas comment je recupere le nom des cellule c10 : d10 que normalement j'ai coller ...

idem pour le Copy After:=Workbooks("FICHE AT WORK.xls").Sheets(8)
est-il possible de copier la nouvelle feuille apres la derniere et pas apres la Sheets(8)

je pense que vous trouvez certainement mes question un peu idiote mais comme je debute et que c'est un peu mon premier jour de macro j'avoue que certaine choses m'echape

en tt cas merci pour votre aide

thibaut

 

[thibaut]

bonsoir a tous
je sent que je suis lourd mais j'essaye d'apprendre
si je fait cette macro ya pas de pb ma feuille se renome avec le nom des cellule A1 et B1

Range("A1:B1").Select
Selection.Copy
Sheets("Feuil1").Select
Sheets("Feuil1").Name = Range("A1") & " " & Range("B1")

mais apres il faut que je copie la feuille renome sur un autre classeur et c'est la que je pige pas comment nommer la nouvel feuille dans la ligne

Sheets("c'est la que je sais po ").Copy After:=Workbooks("FICHE AT WORK.xls").Sheets

ou alors peut etre que je dois mettre un point d'arret pour valider le nom (je dis ça j'ssaye d'imaginé) et comme ça à la ligne
Sheets(" ").Copy After:=Workbooks("FICHE AT WORK.xls").Sheets(8)
les (" ") se remplisse automatiquement

haaaaaaaaa c'est horrible et je sent que c'est pas un truc de malade

merci a tous
thibaut

 

[thibaut]

salut a tous
bon j'avance doucement mais j'avance un peu kan meme
voici en piece jointe une version light de mon besoin
donc ce matin j'arrive a passer le numero et le non sur test2 (fichier exemple) a changer le nom de l'onglet et a copier le nouvel onglet vers test1 mais le pb c'est que les 3 onglets se copie dans la foulé
bon ok je sais j'ai seulement a suprimer les deux autres onglet pour etre peinard mais je veu juste comprendre un peu le fonctionnement

pour infos voici comment on utilise l'exemple
il faut ouvrire les deux fichier et inscrire en A1:B1 (sur test1.xls) deux infos
et lancer la macro

merci a tous
thibaut

 

[Pascal76]

Bonjour

Je t'ai fait un truc mais je ne sais si ça répond à ta demande

Pascal

 

[thibaut]

haaa la vache quand c'est ta formule qui est appliquer a l'exemple tt fonctionne sans pb mais si je le porte amon systeme ben la nom n'apparais pas !!!! c'est completement dinguo kan meme!
je ne pense pas que ce soit le fait que les case d'arriver soit differente des case de depart !!!

 

[thibaut]

ha ben si c'est tt a fais ça si je colle sur une autre cellule que la cellule de depart ben ça fonctionne po

bizar bizar

 

[Pascal76]

Bon

tu peux expliquer plus clairement ce qui bug car là j'ai un peu de mal à comprendre.

Et de plus il y a assez de place sur le serveur pour écrire en français normal sans les abbréviations du chat ce sera plus simple et te permettra d'expliquer plus en détails

Merci

Pascal

 

[thibaut]

HA HA HA j'ai trouver
Sheets("Modele").Name = Range("I4") & " " & Range("C4")
il fallait mettre les ref de case des element qui avait ete copier et nom les nom d'origine
et donc la ça fonctionne nikel !!!!
comme quoi en cherchant un peu et en esseyant de comprendre ben on trouve

merci a tous
pour vous coup de pouce qui mon super aidé

 

[thibaut]

bon alors la premiere partie est donc fini mais j'ai encore juste 3 petits soucies...
le premier c'est que je ne trouve pas la commande pour que la fiche créée se range forcement a la fin du classeur
la seconde je n'arrive pas a empecher le classeur de me demander si je veux enregistrer
la troisieme est par contre un peu plus "complexe"
j'essaye d'inserer toujours dans mon model un nom qui provient d'un résultat d'une formule mais il ne veu pas me le recuperer
je ne sais pas comment lui indiquer que c'est le resultat de la formule que je veux...

merci pour votre aide grace a vous le vb me semble un peu moins obscure!

 

[Pascal76]

pour les deux premiers tu avais la solution dans ce que je t'ai envoyé.

Regarde bien le code ta nouvelle feuille se place à la fin et ton fichier se fermait sans demande d'enregistrement.

pour le troisième tu peux envoyer un exemple ce sera plus simple

Pascal