Re,
Voici UNE possiblité il y en a d'autres, mais au moins tu as l'idée
Dim Retour As String
'On stocke la valeur retournée par
'Application.GetOpenFilename
Retour = Application.GetOpenFilename
'On test l'existance du fichier pour
'le mettre dans le textbox (c'est une possibilité)
If (Dir(Retour) <> vbNullString) Then
TextBox1.Value = Retour
Else
TextBox1.Value = vbNullString
End If , ----
[code.aspx?ID=41455 By Renfield]
d'ailleurs, mon code, ca ne va même pas... GetOpenFileName renvoie un Boolean (quelle daube)
pour éviter tout soucis (imagine un fichier nommé "Faux" qui serait bien placé, ton code plonge, jrivet (bon, ok, ca fait une phrase avec des si...)
seule alternative valable :
Dim sFileName As Variant
sFileName = Application.GetOpenFilename
If VarType(sFileName) = vbString Then '# renvoie un Boolean False si Cancel pressé, une String sinon...
TextBox1.Value = sFileName
End If
Re,
Toute mes excuses [auteur/RENFIELD/2359.aspx Renfield]j'ai pas les yeux en face des trous.... tu lavais dit que cela n'allait pas ... Méa culpa. faut que j'arrête le Sport entre midi et Deux ca me grille le peu de neurones que j'ai.
ben écoutes, y'a pas mort d'homme ^^ on est là pour avancer, tout le monde peut se gourrer :p
bonjour, merci, et autres "civilités" du genre ne sont pas monnaie courante chez moi, tu sais...
je ne m'offusque pas pour si peu. Le respect ne passe pas par là, a mon sens.
Tout d'abord merci à tous pour votre participation.
J'ai essayé le code msdn :
fileToOpen = Application _
. GetOpenFilename ("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
Textbox1.Value = fileToOpen
End If
Mais vba me fait un débogage à la ligne du If. J'ai déclaré fileToOpen en string.
Je suis débutant et je ne comprend pas trop ce que sont des objets comme sFileName ou (Dir(Retour) <> vbNullString).
Désolé mais il faut que j'utilise vba et je n'en ai que de petites bases.
J'ai trouvé l'erreur c'était une incopatibilité de type car False n'était pas entre guillemets. Ca ne plante plus mais à la place de False ca met faux maintenant, je n'y comprend rien.
Même avec un :
Else TextBox1.value = ""
ca ne marche pas
Et si je remplace If fileToOpen <> "False" Then par f fileToOpen <> "False" or "faux" Then
Ca ne marche toujours pas...