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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ,