défauthèque de contrôle

[gildas lechat]

Bonjour,

J'essai de mettre au point une "defauthèque " de contrôle pour faciliter le travail des contrôleurs en autre..
Je vais avancer pas par pas sur ce projet.

Dans un premier temps j'aimerai pouvoir remonter le nom du fichier sans l'étendue dans un texbox insérer sur une page excel.
(Esemple : Nom du dossier: Classeur1.xls --> Textbox = Classeur)
C'est sans doute très simple mais je bloque.

Merci d'avance
Gildas

 

[gildas lechat]

Re : défauthèque de contrôle

Re Bonjour,

Désolé la version Excel est "excel2002"
Gildas

 

[Guest]

Re : défauthèque de contrôle

Bonjour,

TextBox1.Text = Split(ThisWorkbook.Name, ".")(0)

A+

 

[gildas lechat]

Re : défauthèque de contrôle

Merci,

Comment faut il faire pour que le code soit actif à l'ouverture du fichier?

Gildas

 

[Guest]

Re : défauthèque de contrôle

Re,

Dans le module de code 'ThisWorkbook':

Private Sub Workbook_Open()
Sheets("NomDeLaFeuille").OLEObjects("TextBox1").Object.Text = Split(ThisWorkbook.Name, ".")(0)
End Sub

A+

 

[gildas lechat]

Re : défauthèque de contrôle

Bonjour Hasco

Je n'avais pas oublié, désolé pour la réponse tardive.
Le code est correct.
Juste une remarque:
tout les nom de fichier fichier démarre par "a-" (pour des raisons de classement)
Exemple : a-defaut tartampion.xls
j'aimerai supprimer ce "a-"à l'affichage dans le textbox1.

Merci

 

[Guest]

Re : défauthèque de contrôle

Re,

replace( Split(ThisWorkbook.Name, ".")(0),"a-","")

Ou plus long:

dim Nom as string
Nom =  Split(ThisWorkbook.Name, ".")(0)
if Left(Nom,2)="a-" then Nom=right(nom,len(nom)-2)
Sheets("NomDeLaFeuille").OLEObjects("TextBox1").Object.Text = Nom

A+