Discussion :

[baryonyx]

Bonjour à tous:

J'ai un formulaire avec une TextBox et un Bouton recherche. Le système est simple. Je rentre un chemin d'un fichier dans la TextBox et j’appuie sur le bouton. Là, une MsgBox m'informe ci le fichier existe ou non.

Mon problème c'est que je n'arrive pas a à extraire le chemin de la TextBox. Si je rentre le chemin directement dans mon code ça fonctionne.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub BP_Recherche_Click()
 
If Dir("C:\Users\BARYONYX\Desktop\math.docx") = "" Then
  MsgBox "Le fichier n'existe pas"
 
Else
  MsgBox "Le fichier existe"
 
End If
 
End Sub

Donc voila, comme cela ça fonctionne. Donc comment après "If Dir" je peut aller chercher la valeur de ma TextBox.

Merci d'avance pour vos réponses.

[ninouchfis]

Bonjour,

Il me semble que ceci devrai fonctionner:

Code :

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

1
2
3
4
5
6
7
8
9
 Private Sub BP_Recherche_Click() * 
Dim chemin as string
Chemin = forms("tonformulaire").textbox
If Dir(Chemin) = "" Then 
MsgBox "Le fichier n'existe pas" * 
Else 
MsgBox "Le fichier existe" * 
End If * 
End Sub

[baryonyx]

Merci de votre aide! ça marche comme il faut.
Bonne soirée.