Commandbutton et Texbox

Version imprimable

Bonjour,

Je viens vers vous car je n'arrive pas à lier le résultat du CommandButton vers un TextBox
Hypothèses:
En cliquant sur Commandbutton j'active une Macro (ouverture d'un fichier)=> jusque là c bon
Une fois la mocro terminée je souhaite que le chemin d'accés du fichier soit indiqué dans le Textbox.
Aurriez vous une idée pour que le chemin soit mis dans le Textbox?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub CommandButton4_Click() 'Import Document Call ChoixFichierImport End Sub Sub ChoixFichierImport() Dim Fichier As Variant Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*") If Fichier = False Then Exit Sub MsgBox Fichier End Sub Private Sub TextBox1_Change() TextBox1 = " hello" ' là je ne sais pas quoi faire ? End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Public Fichier As Variant
Private Sub CommandButton4_Click() 'Import Document
Call ChoixFichierImport
TextBox1 = Fichier
End Sub
 
Sub ChoixFichierImport()
Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If Fichier = False Then Exit Sub
MsgBox Fichier
End Sub

30/10/2009, 13h25
Fvandermeulen

Salut,
Je comprend pas bien pourquoi tu veux mettre l'affichage du chemin sur un evènement Change de ta TextBox...
J'aurais simplement ajouté cette ligne dans le module standard (avant ou apres la msgbox)

Code:

UserForm1.TextBox1 = Fichier.Path

A+
30/10/2009, 16h46
chrystobale

Malheureusement aucunes des 2 solutions ne fonctionnent ...
D'ailleurs je n'ai pas utilisé de Userform, mon bouton et BoxText sont directement sur le fichier Excel ... Peut etre est ce un pb?

il fallait le signaler au départ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Public Fichier As Variant
Private Sub CommandButton4_Click() 'Import Document
ChoixFichierImport
activesheet.TextBox1 = Fichier
End Sub
 
Sub ChoixFichierImport()
Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
If Fichier = False Then Exit Sub
MsgBox Fichier
End Sub

30/10/2009, 16h59
chrystobale

Non tjrs pas ... mais je me demande si ce que je veux faire, peut être fait...
30/10/2009, 17h03
mercatog

J'ai testé chez moi et ça fonctionne

quel textbox tu as mis?
30/10/2009, 17h44
chrystobale

désolé je ne comprends pas la question ... ?
31/10/2009, 00h13
mercatog

ci joint fichier exemple
02/11/2009, 22h57
chrystobale

excellent cela fonction du tonner !!!
Merci !