Discussion :

[chrystobale]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.TextBox1 = Fichier.Path

A+

[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?

[mercatog]

il fallait le signaler au départ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chrystobale]

Non tjrs pas ... mais je me demande si ce que je veux faire, peut être fait...

[mercatog]

J'ai testé chez moi et ça fonctionne

quel textbox tu as mis?