nommer feuille selon cellule en B12

[limagerit]

Bonjour à tous,

J'ai trouvé ce bout de code qui me permet d'ouvrir plusieurs fichiers et les intégrer dans une seule feuille en ajoutant des onglets.

Chaque onglet se nomme dans cette macro feuille 1( +N°)

je souhaite que le nom de l'onglet soit plutôt la valeur d'une cellule

en B12 j'ai la valeur toto alors l'onglet s' appel toto
en B12 j'ai la valeur rouge alors l'onglet s' appel rouge


je crois comprendre qu'il faut agir dans la partie : OldWbk.Sheets(1).Copy After:=AcWbk.Sheets(AcWbk.Sheets.Count)


, mais je n'arrive pas à modifier le contenu pour aboutir à mon résultat si qq un à une bonne idée à partager .

Merci

Titre = "Sélectionnez plusieurs fichiers (Maintenir CTRL pour sélectionner plusieurs)"
fich = Application.GetOpenFilename(FileFilter:=Extension, _
FilterIndex:=TypeFiltre, Title:=Titre, MultiSelect:=True)

If Not IsArray(fich) Then Exit Sub
LePath = ActiveWorkbook.Path & "\"
LeNom = "Fusion du " & Format(Date, "dd_mmmm_yy")
nbf = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
Set AcWbk = ActiveWorkbook
For i = LBound(fich) To UBound(fich)
Workbooks.Open Filename:=fich(i)
Set OldWbk = ActiveWorkbook
OldWbk.Sheets(1).Copy After:=AcWbk.Sheets(AcWbk.Sheets.Count)
OldWbk.Close False
Next i
Application.DisplayAlerts = False
With ActiveWorkbook
.Sheets(1).Delete
.SaveAs LePath & LeNom
End With
Application.SheetsInNewWorkbook = nbf
End Sub

 

[Paritec]

Re : nommer feuille selon cellule en B12

Bonjour Limagit le forum
oui tu as raison pourquoi faire simple quand on peut faire compliqué??
tu nous mets un bout de fichier et on va te faire cela
avec des explications claires car :

J'ai trouvé ce bout de code qui me permet d'ouvrir plusieurs fichiers et les intégrer dans une seule feuille en ajoutant des onglets.

Tu ouvres plusieurs fichiers OK mais les fichiers tu les mets dans une feuille ?? Là ou tu es très fort ou tu t'expliques très mal, car une feuille c'est justement un onglet !!!
Alors tu veux quoi? pour ou? et comment? tu mets ton fichier avec les explications du résultat souhaité et on va te le faire
a+
Papou

 

[camarchepas]

Re : nommer feuille selon cellule en B12

Bonjour Paritech , limagerit , Le forum et tous ses monstres sacrés du savoir,

Comme ceci peut être j'ai zoomé sur la partie intéressante du code soit la boucle :

For I = LBound(Fich) To UBound(Fich)
  Workbooks.Open Filename:=Fich(I), ReadOnly:=True
  Set OldWBK = ActiveWorkbook
  OldWBK.Sheets(1).Copy After:=AcWBK.Sheets(AcWBK.Sheets.Count)
  AcWBK.ActiveSheet.Name = OldWBK.Sheets(1).Range("B12")
  OldWBK.Close False
Next I

 

[limagerit]

Re : nommer feuille selon cellule en B12

Merci pour la réponse camarchepas qui contrairement à ton nom marche bien

Toutes mes excuses paritec pour l'absence de fichier joint

bonne journée à vous et merci du coup de pouce