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)
La msg box est là uniquement pour le debug
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Et j'appelle ma fonction ainsi
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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 !
Partager