Discussion :

[maroinoide]

bonjour
bon voila je veux créer une macro qui renomme une feuille de mon classeur actif le nom se trouve dans la cellule a1 par exemple aprés cette feuille est copiée dans un nouveau classeur a noter que la valeur de a1 change ( il sagit en fait d'un code qui s'incrémente apres chaque utilisation du classeur )
merci d'avance et bon fin d'apres midi

[aalex_38]

' Renommer une feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim F1 as worksheet
SET F1 = Worksheets("Feuill1")
F1.NAME = "Nouveau Nom"

[FCL31]

Tu peu voir avec se code que je me suis servi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim a As Worksheet
    Dim sc As Workbook
    Dim nouveauNom As String
 
    Application.ScreenUpdating = False
 
    Set a = ActiveSheet
    nouveauNom = Range("B40").Value & " " & Range("D40").Value 
    nouveauNom = Replace(nouveauNom, "/", "_")
    Set sc = Workbooks.Add(xlWBATWorksheet)
    sc.SaveAs (nouveauNom & ".xls")
    a.Copy Before:=sc.Sheets(1)
 
    Workbooks(nouveauNom & ".xls").Close SaveChanges:=False

ATTENTION : se code ma servi a renommé le fichier (pour une impression) donc il te faudra le modifier mais je pense que certaines choses peuvent te servir

[aalex_38]

une feuille de mon classeur actif le nom se trouve dans la cellule a1

Dans l'exemple suivant, feuille dans laquelle se trouve le nouveau nom "Feuil1"
Feuille à renommer "Feuil2"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For each F in worksheets
IF F.name = "Feuil2" then
   F.name = Range("A1")
   exit for
end if
Next

[maroinoide]

Merci aalex et FCL31
le code de FCL31 est exactement se que je cherche merci encore une fois après une petite adaptation ca fonctionne a merveille

[FCL31]

Merci aalex et FCL31

De rien le forum est fait pour aider