difficulté pour faire accepter variable dans champs

Bonjour,

J'ai besoin de récupérer un chemin d'un fichier, et de le travailler, car ce chemin est sur une dropbox, et tous les utilisateurs ne peuvent pas l'utiliser puisque mon chemin dropbox est "unique".

J'ai donc utilisé une fonction home-made (très moche sans doute)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Function couperdecaler(valeurtexte As String) As String Dim valeurchaine As String Dim longchaine As Long Dim poschaine As Long Dim diffchaine As Long poschaine = InStr(1, lien_cv.Value, "Dossiers_prat") longchaine = Len(lien_cv.Value) diffchaine = longchaine - poschaine + 1 valeurchaine = Right(lien_cv.Value, diffchaine) MsgBox valeurchaine End Function

---

La msg box est là uniquement pour le debug

Et j'appelle ma fonction ainsi

Code:

---

1 2 3 4 5 6 7 8

Private Sub Commande1900_Click() Dim chemin_recup As String chemin_recup = EnregistrerUnFichier(Me.hwnd, "Enregistrer sous", "", DossierPat) MsgBox chemin_recup lien_cv.Value = couperdecaler(chemin_recup) MsgBox lien_cv.Value End Sub

---

L'idée est donc de cliquer sur le commande1900, j'ai une fenêtre qui s'ouvre avec le dossier qui m'intéresse, je choisis mon fichier.
Le 1er message box contient la valeur avant d'être travaillée, j'ai donc le chemin en entier.
Je laisse faire ma fonction, j'ai un deuxième msg box (celle du debut de la fonction) qui s'affiche parfaitement.
Je demande donc a lien_cv.value de prendre la valeur de la msgbox, mais que nenni, la derniere msgbox qui s'affiche est vide, et mon champ aussi donc !

La variable est de type string, je pensais qu'on pouvait dans un champ "texte".

Je n'y comprends rien !

Merci de votre aide !

Bonsoir,

Peut-être que si vous renvoyez votre valeur vers votre fonction couperdecaler, elle renverrait un résultat. Parce qu'actuellement, votre fonction ne renvoie aucune valeur.

Elle n'a pas une instruction couperdecaler = ............

Cordialement,

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function couperdecaler(Valeurtexte As String) As String Dim valeurchaine As String Dim longchaine As Long Dim poschaine As Long Dim diffchaine As Long poschaine = InStr(1, lien_cv.Value, "Dossiers_prat") longchaine = Len(lien_cv.Value) diffchaine = longchaine - poschaine + 1 valeurchaine = Right(lien_cv.Value, diffchaine) MsgBox valeurchaine couperdecaler=valeurchaine End Function

---

Ça devrait résoudre ton problème ... c'est un gag qui m'arrive régulièrement.

Une méthode que j'utilise pour minimiser cela c'est de faire la chose suivante, je commence toujours mon code par un truc du genre :

Code:

---

1 2 3 4 5

private function MaFunction(prmMoParam as monType) as monAutreType dim result as monAutreType   maFunction=result end function

---

Une fois ce squelette créé je remplis le corps de la fonction. Cela aide à ce que mon résultat soit réellement transmis en retour.

A+

Merci Marot +++++

Réglé :)