Recuperer texte d'une text boxRésolu

Question

Bonjour à tous,

je viens vers vous ami(e)s programmeur car j'ai un gros soucis !!

je m'explique :

 Je voudrais récupérer le texte d'une textebox pour ensuite l'utiliser comme chemin de sauvegarde de mes fichiers !


ici mon code consiste à récuperer le le text puis de le mettre en chemin(string)


Private Sub CommandButton5_Click()


'Accée au Dossier : selection dossier

Dim objShell As Object, objFolder As Object, oFolderItem As Object
     Dim chemin As String
     Set objShell = CreateObject("Shell.Application")
     Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
     On Error Resume Next
     Set oFolderItem = objFolder.Items.Item
     chemin = oFolderItem.path

UserForm.TextBox3.Text = chemin


Cette ligne de code correspond à l'ouverture d'un chemin d'accée que l'opérateur choisira 

Ensuite je voudrais donc utiliser la variable CHEMIN pour l'ouverture ou bien la sauvegarde vers chemin ! donc le choix de l'opérateur.

j'ai trouvé ceci :

Workbooks.OpenText Filename:= _
      "chemin\pavrlntr.va", _
            DataType:=xlDelimited, Tab:=True '

Ici j'indique que j'utilise ma variable chemin\monfichier à ouvrir ..

Mais cela ne marche pas ! j'ai presque plus de cheveux alors une aide sera la bienvenue..

Merci.

ucfoutu · Accepted Answer

Il me parait assez urgent que tu apprennes au moins ce qu'est une concatenation
Ouvre vite ton aide VBA sur ce mot et ploge-toi dans la lecture de la rubique 
 Opérateurs de concaténation puis ===>> opérateur &, s'il te plait.
C'est vraiment là un minimum nécessaire (la base de chez base ...)!


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Bonjour,
Ne t'arrache pas les cheveux, mais réfléchis.
ta boite de dialogue ne fait que te retourner le chemin d'un dossier choisi.
Elle ne sauvegarde rien
Et ton ouverture suivante ne correspond donc à aucun fichier !
Allez ... réfléchis...


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

sans compter ("v'la aut chose" !) que :
"chemin\pavrlntr.va"
ne contient certes pas la valeur du chemin mais la chaîne textuelle "chemin" !
Et je doute fort qu'un tel chemin de fichier existe sur ta machine ! 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_reynald38 · Answer

Merci pour vos réponse , je vais m'y mettre

cs_reynald38 · Answer

Rebonjour,

j'ai trouvé la solution à mon problème ^^

alors la syntaxe exact est :

Workbooks.Open Filename:= _
chemin & "\données\Docs de référence\DECO02.xls"

le fameux & = concatenation 

mon second problème était encore plus basique.. 
j'ai attribué ma variable chemin que dans une macro est donc celle-ci n&#8217;était pas réutilisable dans une autre j'ai donc mis cette variable dans le GÉNÉRAL...  

voilou ! merci pour les informations.

Recuperer texte d'une text box

5 réponses

Votre réponse

Discussions similaires