Récupération d'une selection de texte d'un UserForm

Bonjour,

Malgré de nombreuse recherche , je ne trouve pas ma solution a mon problème ... C'est pour cela que je fais appelle à vous !
Voici mon problème:
J'ai, dans une textbox de mon userform , une date , écrite comme cela : " JJ/MM/AAAA "
Ce que j'aimerais faire , c'est récupérer l'année ( AAAA ) et la transformer en variable ...
J'ai réussi à faire quelques lignes mais cela ne fonctionne pas ...

Code:

---

1 2 3 4 5

Dim Ladate As String TextBox4.SelStart = 7 TextBox4.SelLength = Len(TextBox4.Text) TextBox4.SetFocus Ladate = TextBox4.SelFocu

---

Cette variable devra ensuite être implémenté dans une variable pour ouvrir un dossier dans lequel un dossier se créer :

Code:

---

1 2 3 4 5 6

im FSO As Object, sNomDossier As String Set FSO = CreateObject("Scripting.FileSystemObject") sNomDossier = "HYD" & LeParcours sChemin = "C:\Users\nathan\Dropbox\HYD" & Ladate & "\" & sNomDossier & "/" If Not FSO.FolderExists(sChemin) Then FSO.CreateFolder (sChemin) Set FSO = Nothing

---

Ici par exemple , si dans ma textbox4 , j'ai 22/08/2016 , Ladate devrait être " 2016 " ,
et le dossier dans lequel se trouvera le dossier crée sera : HYD2016




Merci de votre aide ,
Cordialement ,

Bonsoir,

ton textbox possède une propriété texte du type chaîne , travaille directement avec des fonctions de traitement de chaînes ( Left, Right, Mid , Len ... ou split )

un exemple avec split :

Code:

---

1 2 3 4 5 6 7

Dim tb() As String tb = Split(TextBox1.Text, "/") If UBound(tb) <> 2 Then MsgBox "saisir date sous la forme dd/mm/aaaa" Else MsgBox tb(2) End If

---

Bonsoir,

Citation:

---

Code:

---

1 2 3 4 5

Dim Ladate As String TextBox4.SelStart = 7 TextBox4.SelLength = Len(TextBox4.Text) TextBox4.SetFocus Ladate = TextBox4.SelFocu

---

---

Je trouve le cheminement intéressant mais c'est trop compliqué pour mes pauvres neurones!
Ladate = format(TextBox4,"yyyy")

Bonsoir
je ne vois pas l'interet d'utiliser les fonctions string

il te suffit de

Code:

---

1 2	madate=cdate(textbox1.value) année=year(madate)

---

Robert on s'est croisé je suis ton raisonnement

Bonjour,
Merci à tous de vos réponse , mais j'ai utilisé qu'une seule solution , celle de rdurupt , qui me semblait être la plus simple ,
Celle-ci fonctionne à merveille !
Mais , j'avais oublié un petit détail..
J'ai un bouton "rechercher " qui me permet de rechercher les différents HYD ( c'est le nom de mes intervention ) .
Ici , lorsque que je double click , il m'ouvre le dossier de l'HYD concerné .
Pour récupérer le n° d'HYD , j'utilise cela :

Code:

---

LeParcours = Me.ListBox1.Column(1, I)

---

Mais comment puis-je faire pour récupérer , de même , uniquement l'année de l'HYD ?
J'ai essayé cela :

Code:

---

1 2 3 4 5 6 7 8

If Me.ListBox1.Selected(I) = True Then 'condition 1 : si la ligne est sélectionnée For J = 2 To NL 'boucle 2 : sur toutes les lignes du tabelau TC If TC(J, 2) = Me.ListBox1.Column(1, I) Then 'condition 2 : si les numéros de HYD sont égaux O.Rows(J).Select 'sélecionne la ligne J de l'onglet O Ladate = Me.ListBox1.Column(9, I)("yyyy") LeParcours = Me.ListBox1.Column(1, I) Chemin = "C:/Users/nathan/Dropbox/HYD" & Ladate & "/HYD" & LeParcours & "\" Application.DisplayFullScreen = False

---

Mais ça ne fonctionne pas ( incompatibilité de type , pour ("yyyy") ) ...
Ps: la colone dans laquelle se trouve la date est la 9 .
Merci !

bonjour,
si dans ta liste ce trouve de date il faut faire la même chose!

Code:

---

If format(TC(J, 2),"yyyy") = format(Me.ListBox1.Column(1, I),"yyyy")

---

confirme si il s'agit bien de date!

Merci , cela fonctionne à merveille !
Mais dernier soucis , si il n'y a aucune date , cela ne marche plus , donc, j'aimerais que si aucune date n'est présente , se soit l'année actuelle qui soit utilisé ...

Code:

---

Ladate = Format(TextBox4, "yyyy")

---

If Ladate n'existe pas
Then Ladate = 2015 ( puisqu'on est en 2015 )
Merci à vous !