Renommer une feuille en VBA

[c176613]

Bonjour tout le monde,

Voilà mon problème.

J'exporte des données dans une feuille Excel à partir d'un programme externe.
Lors de cette exportation ma feuille est automatiquement nommée avec un nom du type insrequestline1399537790836.

Je désire, en VBA renommer cette feuille avec un nom plus parlant.

Comment dois-je m'y prendre?

D'avance merci pour votre précieuse collaboration.

Pascal

 

[Gardien de phare]

Re : Renommer une feuille en VBA

Bonjour,

Par exemple...

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

 

[c176613]

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.

 

[Gardien de phare]

Re : Renommer une feuille en VBA

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

 

[c176613]

Re : Renommer une feuille en VBA

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

 

[Staple1600]

Re : Renommer une feuille en VBA

Bonjour à tous

c176613
Cela pourrait fonctionner selon le contexte

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 )

 

[pierrejean]

Re : Renommer une feuille en VBA

Bonjour à tous

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

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

Edit: bing Salut l'agrafe

 

[Staple1600]

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)

 

[Gardien de phare]

Re : Renommer une feuille en VBA

Bonjour,

Une autre solution, renomme la feuille active :

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

 

[c176613]

Re : Renommer une feuille en VBA

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

Bonne journée à vous