Renommer la copie d'une feuille par une cellule d'un autre classeur.

[mikk]

Bonsoir,

Voilà ce que j'ai,

Un premier classeur dans lequel j'ai un formulaire dans lequel je rentre toutes mes données dont un numéro de dossier, en dessous de ça 3 boutons auxquels j'ai affecté des macros.

Quand je clique sur les boutons, ceux-ci me créent dans 2 autres classeurs 2 nouvelles feuilles reprenant divers données de mon classeur alpha.

Problème: Je n'arrive pas à ce que mes 2 nouvelles feuilles prennent comme nom le numéro du dossier situer en Cellule B3 de ma Feuil1 de mon classeur alpha!

Que dois-je ajouter pour obtenir cela?

Merci d'avance

 

[mikk]

Re : Renommer la copie d'une feuille par une cellule d'un autre classeur.

Voici le code d'un de mes macros affecté à un bouton, ils sont similaires,

Le numéro dont j'ai besoin comme numéro de feuille se trouve dans la cellule en gras et rouge ici plus bas.

Sub Particulier()
'
' Particulier Macro
' Crée une fiche raccordement et une fiche photos (Particulier)
'

'
Windows("Fiches raccordement.xls").Activate
Sheets("Raccordement").Select
Sheets("Raccordement").Copy Before:=Sheets(2)
Range("L2:Q2").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R5C2"
Range("X2:AA2").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R6C2"
Range("X4:AA4").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R7C2"
Range("C8:E8").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R9C2"
Range("R7:T7").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R8C2"
Range("AO2:AQ2").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R3C2"
Range("AO3:BC3").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R4C2"
Range("K20:M20").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R10C2"
Range("Q24:S24").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R11C2"
Range("M2929").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R12C2"
Range("M3030").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R13C2"
Range("AE29:AH29").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R14C2"
Range("AE30:AH30").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R15C2"
Range("AP8:AR8").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R16C2"
Range("AP9:AR9").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R17C2"
Range("AP10:AR10").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R18C2"
Range("AP11:AR11").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R19C2"
Range("AP12:AR12").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R20C2"
Range("AP13:AR13").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R21C2"
Range("AP14").Select
Windows("Fiches photos.xls").Activate
Sheets("Modèle raccordement").Select
Sheets("Modèle raccordement").Copy Before:=Sheets(2)
Range("L2:Q2").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R5C2"
Range("X2:AA2").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R7C2"
Range("X4:AA4").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R8C2"
Range("AO2:AQ2").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R3C2"
Range("AO3:BC3").Select
ActiveCell.FormulaR1C1 = "='[Fiches racc-photos.xlsx]Feuil1'!R4C2"
Range("AO4:AU4").Select
Windows("Fiches racc-photos.xlsx").Activate
Range("B3").Select
End Sub