Modifier le contenu d'une EditBox a partir d'un bouton Parcourir

Bonjour,

Pour faire cela j'ai simplement utilisé l'exemple de la FAQ mais j'ai un problême pour recopier l'adresse du repertoire dans un Edit Box.

Le code suivant fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Button3_EventClick() Dim This : Set This = Button3   Const RETURNONLYFSDIRS = &H1   Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS, "c:\") Dim oFolderItem If oFolder Is Nothing Then Else Set oFolderItem = oFolder.Self   Set EditPfad.Text = oFolder.Self End If   Set oFolderItem = Nothing Set oFolder = Nothing Set oShell = Nothing   End Sub

---

mais lorsque je modifie par cette ligne pour avoir le Path complet j'ai une erreur.

Code:

---

Set EditPfad.Text = oFolderItem.Path

---

Merci d'avance
Alfons

Citation:

---

mais lorsque je modifie par cette ligne pour avoir le Path complet j'ai une erreur.

---

Formidable, moi aussi j'ai une erreur sur mon code, tu devines laquelle bien sur !!!!

:(

Ce n'est pas la première fois que quelqu'un poste un sujet en disant "j'ai une erreur". Je ne vois pas comment on pourrait la deviner, je suis un homme et je ne m'appelle pas Irma. En plus ma boule de cristal est cassé.
Un peu de logique, comment voulez vous que l'on devine les erreurs que vous avez ????
On verra peut être une faute dans le code, mais ce ne sera pas forcement simple, alors que l'erreur, même si elle ne vous parle pas, nous elle peut nous mettre sur la voie. Après on vous explique le pourquoi du comment.

Donc bref, C'EST QUOI TON ERREUR ?

Bon j'ai recoller les morceaux de ma boules de cristal :)
Je pense que sur la ligne ci dessous il ne faut pas mettre le set :

Code:

---

Set EditPfad.Text = oFolderItem.Path

---

Voila ce que j'ai fait et cela marche :

Code:

---

1 2 3 4 5 6 7 8 9

Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS, "c:\") If Not oFolder Is Nothing Then Set oFolderItem = oFolder.Self msgbox(oFolderItem.Path) End If Set oFolderItem = Nothing Set oFolder = Nothing Set oShell = Nothing

---

tu remplaces le msgbox par :

Code:

---

EditPfad.Text = oFolderItem.Path

---

Et cela devrait marcher.

Bonjour,

Merci d'avoir repondu, il faut rester zen:pingoin2:, si je n'ai pas cité l'erreur c'est parce que je pensais que son contenu vous aiderez peu.

Voici l'erreur

Code:

---

1 2 3 4 5 6

Beim Ausführen des Dialogues Eingabe aus der Datei Engabe.SUD ist der folgende Fehler aufgetreten:   <Object: 'Button3', Event: 'EventClick', Line 13> Objekt erforderlich: 'EditPfad.Text'

---

Pas besoin de boule de cristal :wink: dans ce cas, seulement l'endroit ou se trouve l'erreur est nécessaire et je l'avais indiqué dans mon premier post.

Ce que je ne comprends toujours pas c'est pourquoi

avec cela c'est correct

Code:

---

Set EditPfad.Text = oFolder.Self

---

et avec cela il faut enlever le Set pour que ce soit correct

Code:

---

Set EditPfad.Text = oFolderItem.Path

---

oFolder.Self et oFolderItem.Path sont bien des types String :question:

Avec cette correction le code s'execute correctement donc encore merci.

Mais je suis zen :D

Je dirais que le code ci-dessous marche par miracle :

Code:

---

Set EditPfad.Text = oFolder.Self

---

Oh, je vais finir par croire a la magie et aux miracles. 8O

Merci beaucoup

Alfons