Renommer une feuille en VBA

Gardien de phare

XLDnaute Accro

• 8 Mai 2014

• #2

Re : Renommer une feuille en VBA

Bonjour,

Par exemple...

VB:

Sub nouveaunom()
On Error Resume Next
With Sheets("DFFFFFR")
    .Name = "NOUVEAU"
End With
End Sub

 

Vote positif 0 Vote négatif

C

c176613

XLDnaute Nouveau

• 8 Mai 2014

• #3

Re : Renommer une feuille en VBA

Bonjour Gardiendephare,

Malheureusement ce n'est pas aussi simple car le nom de la feuille est totalement aléatoire et change à chaque nouvelle exportation depuis mon autre programme.

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 8 Mai 2014

• #4

Re : Renommer une feuille en VBA

Bonjour,
est-ce que ta feuille à renommer a toujours le même numéro d'index ?

 

Vote positif 0 Vote négatif

C

c176613

XLDnaute Nouveau

• 8 Mai 2014

• #5

Re : Renommer une feuille en VBA

Qu'entends-tu par numéro d'index?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Mai 2014

• #6

Re : Renommer une feuille en VBA

Bonjour à tous

c176613
Cela pourrait fonctionner selon le contexte

Code:

Sub a()
Dim ws As Worksheet
For Each ws In Worksheets
On Error Resume Next
If ws.Name Like "*qu*line*" Then
ws.Name = "TOTO"""
End If
Next
End Sub

NB: Il faut seulement que ta feuille exportée comporte cette chaine insrequestline dans son nom
(et qu'elle soit la seule dans ce cas )

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Mai 2014

• #7

Re : Renommer une feuille en VBA

Bonjour à tous

Si insrequestline est toujours présent dans le nom donné par l'application

Code:

For Each sh In Sheets
 If InStr(sh.Name, "insrequestline") <> 0 Then
   sh.Name = "NouveauNom"
 End If
Next

Edit: bing Salut l'agrafe

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Mai 2014

• #8

Re : Renommer une feuille en VBA

Bonjour pierrejean

Like et Instr même combat
(cf mon précédent message)

EDITION: Ah bah zut j'avions point vue ton EDITION (trop rapide le pierrejean)

 

Dernière édition: 8 Mai 2014

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 8 Mai 2014

• #9

Re : Renommer une feuille en VBA

Bonjour,

Une autre solution, renomme la feuille active :

VB:

Sub nouveaunom()
On Error Resume Next
With ActiveSheet
    .Name = "NOUVEAU2"
End With
End Sub

L'index d'une feuille correspond à l'ordre dans lequel les feuilles sont créées.

Edit : Bonjour JM et Pierre Jean

 

Dernière édition: 8 Mai 2014

Vote positif 0 Vote négatif

C

c176613

XLDnaute Nouveau

• 8 Mai 2014

• #10

Re : Renommer une feuille en VBA

Merci à tous, ça fonctionne nickel. J'ai pour finir pris la solution de pierrejean.

Bonne journée à vous

 

Vote positif 0 Vote négatif