comment créer une feuille excel à partir d'une partie du nom du fichier

[brice59]

Bonjour,

Tout est dans le titre.

J'aimerais savoir comment faire pour renommer le nom d'une feuille à partir du nom du fichier.

EX:

si le fichier est nommé "utilisateur201105test......"

Alors la feuille s'appellera "201105 test"

Merci d'avance

 

[youky(BJ)]

Re : comment créer une feuille excel à partir d'une partie du nom du fichier

Bonjour Brice,
Essaies comme ceci...

ActiveSheet.Name = Replace(ThisWorkbook.Name, "utilisateur", "")

Bruno

 

[brice59]

Re : comment créer une feuille excel à partir d'une partie du nom du fichier

Merci Bruno,

ça fonctionne mais ce que je voudrais, c'est mettre une partie du nom du fichier (celle soulignée)

si le fichier est nommé "utilisateur201105test......"
car j'ai plusieurs fichiers qui se créent chaque jour, et portent cette même partie à savoir :

1 Le nom de l'utilisateur (ici : utilisateur)
2 La date du jour (ici : 201105)
3 le type de fichier (ici : test)
4 un chiffre aléatoire (1423... par exemple)

 

[youky(BJ)]

Re : comment créer une feuille excel à partir d'une partie du nom du fichier

Voici un peu plus complexe,
je supprime les derniers chiffres
Bruno

Private Sub CommandButton1_Click()
Dim tx As String
tx = Replace(ThisWorkbook.Name, "utilisateur", "")
tx = Split(tx, ".")(0)
For k = Len(tx) To 1 Step -1
If Not IsNumeric(Mid(tx, k, 1)) Then Exit For
Next
ActiveSheet.Name = Left(tx, k)
End Sub

 

[youky(BJ)]

Re : comment créer une feuille excel à partir d'une partie du nom du fichier

Oups !!!!
J'ai mal compris "utilisateur" peut varier....
voici un corrigé
Bruno

Private Sub CommandButton1_Click()
Dim tx As String
tx = ThisWorkbook.Name
tx = Split(tx, ".")(0)
For k = 1 To Len(tx)
If IsNumeric(Mid(tx, k, 1)) Then Exit For
Next
tx = Mid(tx, k, Len(tx))
For k = Len(tx) To 1 Step -1
If Not IsNumeric(Mid(tx, k, 1)) Then Exit For
Next
ActiveSheet.Name = Left(tx, k)
End Sub

 

[brice59]

Re : comment créer une feuille excel à partir d'une partie du nom du fichier

Merci à fonctionne.

Dim tx As String
tx = ThisWorkbook.Name
tx = Split(tx, ".")(0)
For k = 1 To Len(tx)
If IsNumeric(Mid(tx, k, 1)) Then Exit For
Next
tx = Mid(tx, k, Len(tx))
For k = Len(tx) To 1 Step -1
If Not IsNumeric(Mid(tx, k, 1)) Then Exit For
Next
ActiveSheet.Name = "nom de la feuille "Left(tx, k)


J'ai juste ajouté "nom de la feuille " pour ajouter un complément dans le nom

Merci encore

 

[brice59]

Re : comment créer une feuille excel à partir d'une partie du nom du fichier

J'ai 2 autres problèmes:

SUIVCONTRATTTE001001012011051 ==> pour donner ==> CONTRATTTE MAI 2011


ECART201107NOM16052011 ==> pour donner == > ECART JUILLET 2011

Je n'ai pas trouvé comment modifier la macro.
Merci pour ton aide

 

[brice59]

Re : comment créer une feuille excel à partir d'une partie du nom du fichier

Youky ???

tu peux m'aider ?

 

[brice59]

Re : comment créer une feuille excel à partir d'une partie du nom du fichier

help.....please.....help

 

[youky(BJ)]

Re : comment créer une feuille excel à partir d'une partie du nom du fichier

Bonsoir,
Désolé de ne pas avoir répondu plus tôt mais boulot oblige.
Pour ta dernière demande je crois que c'est ingérable, pour ma part je n'ai pas de solution pour faire trouver à la macro ou se situe le mois ou les autres noms à deviner sans trop savoir ou chercher et que chercher.
Je donne ma langue au chats....
Bruno Youky