[RESOLU] Coller dans une texteBox à la suite du texte

Bonjour,

Un code facile pour vous les pro

J'ai un code pour parcourir des dossiers

'*************************** PARCOURIR PLUSIEURS DOCUMENTS
Sub CmdBtnParcourir_Click() '*****Img1

    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        Creation_TIPS.TxtBxImg1.Text = .SelectedItems(1)
    End With

End Sub

j' aimerai que le chemin du fichier se colle après le texte qui est dans la textebox.

Car mon code efface les données de textebox et colle le chemin

j'ai pensé à .SetFocus, mais pas trouvé le bon code

Merci

Bonjour écrivain, bonjour le forum,

Essais comme ça :

Creation_TIPS.TxtBxImg1.Text = Creation_TIPS.TxtBxImg1.Text & .SelectedItems(1)

Bonjour Thau Thème,

Super ta signature et ton PSeudo.

Cela ne fonctionne pas

Sub CmdtnParcourirDetail_Click() '****DETAIL
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        'Creation_TIPS.TxtBxDetail.Text = .SelectedItems(1)
        Creation_TIPS.TxtBxDetail.Text = Creation_TxtBxDetail.Text & .SelectedItems(1)
    End With
End Sub

le message est

erreur d'éxécution '424' objet requis

Merci

Re,

Tu as mal recopié ! Il manque un TIPS. C'est pour ça que ce n'était pas TOP !...

Creation_TIPS.TxtBxDetail.Text = Creation_TIPS.TxtBxDetail.Text & .SelectedItems(1)

Peut-être te faudra-t-il aussi rajouter un espace ou deux points ou un autre symbole, du style :

Creation_TIPS.TxtBxDetail.Text = Creation_TIPS.TxtBxDetail.Text & " : " &  .SelectedItems(1)

Bonjour Thau Thème,

C'est vrai j'ai mal copié.

De plus dans ta deuxième proposition de code , tu as répondu à ma futur question

Franchement un grand merci .