Adresse modifier

Bonjour,

Voila j'ai un Contrôle ActiveX Textbox14 sur une feuille qui me donne une adresse et le nom d'un film soit

J:\Films\Films\La Cible Humaine.avi

j'aimerai dans un autre Contrôle ActiveX Textbox ou un label avoir juste le nom du film soit

La Cible Humaine.avi

Je vous remercie d'avance

Cordialement

Max

Bonjour,

voici le code pour extraire le nom de votre chemin :

 Dim mot As String 'le chemin
  Dim nom As String 'le nom du film
  Dim tableau As Variant

  mot = "J:\Films\Films\La Cible Humaine.avi"

  tableau = Split(mot, "\")
  nom = tableau(UBound(tableau))

il ne vous reste plus qu'a l'ajouter à un textBox ou label

Bonjour minanse ,

Je te remercie le problème et le nom change a chaque je doit cas même mettre

mot = "J:\Films\Films\La Cible Humaine.avi"

Merci

@+

Max

j'ai fait car je ne connaissais pas le nom de ta textBox14 ( à part si elle s'appel comme sa :O et sa localisation ) mais sinon il suffit de remplacer par

nom = cstr(textbox14.value)

Re,

Non la je n'y arrive plus sa doit être le lendemain d'un dimanche arrose

j'ai mis ceci pour que l'adresse soit dans le contrôle ActiveX label19.en sachant que l'adresse complète et dans le textbox14.

 Sub Label19_change()

 Dim mot As String 'le chemin
  Dim nom As String 'le nom du film
  Dim tableau As Variant

  nom = CStr(TextBox14.Value)

  tableau = Split(mot, "\")
  nom = tableau(UBound(tableau))

End Sub

@+

heu... vous ne devrai pas l'affecter plutôt dans le textbox14 le code ? car la vous fait : mettre la valeur dans label19 lorsque .... une valeur est affecter a label19 ^^

et la varable "nom" est à remplacer par l’endroit où vous souhaiter retrouver le titre du film soit "label19" donc c'est plutôt au final

Sub TextBox14_change()

 Dim mot As String 'le chemin
 Dim nom As String 'le nom du film
 Dim tableau As Variant

  mot = CStr(TextBox14.Value)

  tableau = Split(mot, "\")
  label19.Value = tableau(UBound(tableau))

End Sub

re,

il me donne une message d'erreur objet requis sur mot = CStr(TextBox14.Value)

@+

le problème viens d'ici je pense : TextBox14.Value

vu que vous avez des activeX et non des control dans un userForm ^^ la façon de les appel sont différents

bonjour,

Pour résumer et simplifier tu pourrai écrire ça comme ça :

label19 = Split(TextBox14, "\")(3)

A+

Re,

Pour avoir mon adresse dans mon textbox14 je met se code si:

Sub Chemin_vidéo()

Mondossier = "J:\Films\Films\"
 ChDrive "J:"
 ChDir Mondossier
' ActiveSheet.Range("H2").Value = Application.GetOpenFilename("Fichiers vidéo (*.avi),*.avi")
 ActiveSheet.TextBox14.Text = Application.GetOpenFilename("Fichiers vidéo (*.avi),*.avi")
End Sub

Re,

Bonjour Galopin

En faite j'ai ceci et sa fonction

Sub Chemin_vidéo()

Mondossier = "J:\Films\Films\"
 ChDrive "J:"
 ChDir Mondossier
' ActiveSheet.Range("H2").Value = Application.GetOpenFilename("Fichiers vidéo (*.avi),*.avi")
 ActiveSheet.TextBox14.Text = Application.GetOpenFilename("Fichiers vidéo (*.avi),*.avi")

'envoie vers le textbox15
 Dim tableau As Variant
  mot = CStr(ActiveSheet.TextBox14.Value)
  tableau = Split(mot, "\")
 ActiveSheet.TextBox15.Value = tableau(UBound(tableau))

End Sub

mon souci maintenant il faut que dans le textbox15 qui reçois l'adresse modifier enlever le ".avi" parce qui me donne "Le Fils du Desert.avi"

@+

Max

valmax a écrit :

j'aimerai dans un autre Contrôle ActiveX Textbox ou un label avoir juste le nom du film soit

La Cible Humaine.avi

c'est pas ce que vous voulez au départ ?

sinon pour votre demande :

ActiveSheet.TextBox15.Value = left(tableau(UBound(tableau)),len(tableau(UBound(tableau)))-4)

Re

je te remercie