Discussion :

[amouna123456]

Bonjour,

je cherche un code qui va me permettre de renommer la première feuille d'excel par le nom SNIF.
ce code sera exécuter sur des fichiers générer automatiquement depuis un portail fournisseur. et chaque fichier a un nom de feuille différent.
(SNIF121103437 ou SNIF121103438....)

j'ai essayé avec ce code :

Code :

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

Worksheets("SNIF_121103437").Name = "SNIF"

mais là le nom de la feuille est fixe : SNIF_121103437 alors que le numéro change à chaque nouvelle extraction.

Merci par avance !

Cordialement

[Marc-L]

Bonjour,

juste en utilisant le numéro d'index de la feuille de calculs comme indiqué dans l'aide VBA de la collection Worksheets …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[amouna123456]

Bonjour Marc_L

C'est bon, je l'ai trouvé.

Code :

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

ActiveSheet.Name = "SNIF"

Merci pour votre réponse

[Marc-L]

En espérant le classeur enregistré sur la bonne feuille !

[eric4459]

Bonjour Amouna,
Essayes comme ceci

Code :

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

1
2
3
4
5
6
Sub Renommer_feuille()
Dim Feuille As Worksheet
Set Feuille = ThisWorkbook.Sheets("Sheet2")' Ici tu va te servir de cette feuille comme zone de traitement temporaire
Feuille.Range("A1") = Right(Worksheets("SNIF_123456789").Name, 9)@Ici tu vas mettre en mémoire le numéro associe de ta feuille (9 caractères de droite : J'ai supposé qu'il y aura toujours 9 chiffre dans le nom)
Worksheets("SNIF_" & Range("A1").Value).Name = "SNIF" 'Ici comme tu as recuperé le numero associé en A1, si la valeur change ce n'est plus un problème.
End Sub

Bien le bonjour au Maroc
Eric

[Marc-L]

Bonjour Eric,

lis mon premier message, il n'y a pas besoin du nom de la feuille mais juste de son index !

[eric4459]

Amouna,
j'ai écrit une bêtise comme le nom change à chaque fois, tu ne peux pas le connaitre et écrire

Code :

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

Worksheets("SNIF_123456789")

Par contre, en prenant en compte ce que MarcL te conseillait et les infos de l'aide , tu peux écrire ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Renommer_feuille()
Dim Feuille As Worksheet
Dim WS As Worksheet
Set Feuille = ThisWorkbook.Sheets("Sheet2")
For Each WS In Worksheets
    If WS.Name Like "*SNIF_*" Then
    Feuille.Range("A1") = Right(WS.Name, 9)
    Worksheets("SNIF_" & Range("A1").Value).Name = "SNIF"
    End If
Next WS
End Sub

Ce code te permettra de renommer ta feuille quel que soit son nom car

Code :

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

 le numéro change à chaque nouvelle extraction.

Eric

[Marc-L]

Si c'est la première feuille, juste la pointer par Worksheets(1) !