Discussion :

[maxval18]

Bonjour,

J'aimerais réalisé un code qui me parais assez irréaliste, je m'explique j'ai un USF qui ajoute un onglet avec cet partie de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Ajoute  les onglets
Private Sub CommandButton1_Click() ' Bouton Valide
    If TextBox1 <> "" Then
        Sheets.Add
        On Error Resume Next
        ActiveSheet.Name = TextBox1
        If Err <> 0 Then
            On Error GoTo 0
            Application.DisplayAlerts = False
            ActiveSheet.Delete
            Application.DisplayAlerts = True
            MsgBox " Nom de feuille incorrect"
            TextBox1 = ""
            Exit Sub
        End If
        ActiveSheet.Move After:=Sheets(ActiveWorkbook.Worksheets.Count) ' Placer la feuille à la suite
        Sheets("Accueil").Range("A1").Copy ActiveSheet.Range("A1") ' avec lien vers la feuille accueil
        'Unload Me
        Sheets("Accueil").Activate
    End If
 
End Sub

Se que j'aimerai faire, est que lorsque l'onglet est créer qui m'affiche sur la feuille le nom de l'onglet.

Merci d'avance

Cordialement

Max

[Philippe Tulliez]

Bonjour,
En vba

Code :

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

ActiveSheet.Range("A1") = ActiveSheet.Name

Sinon et à condition que le fichier porte un nom (a déjà été sauvé une première fois), une fonction native dans Excel permet d'obtenir le chemin complet, le nom du classeur et le nom de la feuille. C'est la fonction CELLULE

Code :

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

=CELLULE("nomfichier";A1)

renvoie par exemple c:\mesdocuments\[monClasseur]laFeuille
Donc pour extraire le nom de la feuille

Code :

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

=STXT(CELLULE("nomfichier";A3);TROUVE("]";CELLULE("nomfichier";A3))+1;100)

Attention "nomfichier" est la valeur de l'argument et pas le nom du fichier.

[maxval18]

Bonjour Corona,

J'ai bien essayer mais je ne suis pas arriver.

Mon fichier et bien enregistrer mais bon pas moyen

Merci

@+

Max

[Philippe Tulliez]

Bonjour,
Pourtant cela fonctionne, je teste toujours les réponses que j'envoie.
[EDIT]
Attention, le code que je t'ai donné, affiche le nom de la feuille active.

[maxval18]

Re,

Au temps pour moi sa marche très.
Juste une petite chose J’émis ceci:

Code :

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

  ActiveSheet.Range("F5") = ActiveSheet.Name

comment je peut lui dire qu'il se mette en Police Arial et Gras et taille 22

Merci d'avance

Bonne journée

Max

[Philippe Tulliez]

Bonjour,
Il faut utiliser la propriété Font de l'objet Range. Utilise l'enregistreur de macros pour obtenir le code.