Extraire une chaîne de caractères au sein d'une autre

[modus57]

Bonjour à tous.
Comment extraire les caractères « I:\DOSSIERS ADHÉRENTS\Adhérents contrats » de la chaîne
« I:\DOSSIERS ADHÉRENTS\Adhérents contrats\DUMONT Pierre\Projets\Avant projets\DUMONT Pierre AP 1.0 du 18-12-12 »
J’ai essayé :

Sub extraire()
Dim NomAdhérent As String
NomAdhérent = Range("nom_adhérent ")
    Tableau = Split(NomAdhérent, "\")(0) & "\" & Split(NomAdhérent, "\")(1) & "\" & Split(NomAdhérent, "\")(2)
    MsgBox Tableau
End Sub

Ça fonctionne, mais est-ce possible de simplifier ou utiliser une autre syntaxe, j’ai cherché sur internet je n’ai pas trouvé.
Auriez-vous une réponse.
Merci d’avance.

 

[JCGL]

Re : Extraire une chaîne de caractères au sein d'une autre

Bonjour à tous,

Étonnant chez moi cela fonctionne en intégrant une TextBox et avec le code de Bernard (tu doublais les déclarations de variables)

A+ à tous

 

[Dranreb]

Re : Extraire une chaîne de caractères au sein d'une autre

Bonsoir.
Bon. En attendant ceci affiche quelque chose dans la ListBox1:

Option Explicit

Private Sub UserForm_Activate()
ComboBox1 = Feuil2.Range("nom_adherent")
End Sub

Private Sub CommandButton1_Click()
ListBox1.AddItem RacineChemin(ComboBox1.Text, 3)
End Sub

Function RacineChemin(ByVal Chemin As String, ByVal Niv As Long) As String
Dim Tableau() As String
Tableau = Split(Chemin, "\")
ReDim Preserve Tableau(0 To Niv - 1)
RacineChemin = Join(Tableau, "\")
End Function

 

[modus57]

Re : Extraire une chaîne de caractères au sein d'une autre (RÉSOLU)

Bonjour à tous.

Cela fonctionne soit avec une TextBox ou une ListBox, sincères remerciement pour votre aide.