Discussion :

[hernesto]

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 :

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

La msg box est là uniquement pour le debug

Et j'appelle ma fonction ainsi

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

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 !

[madefemere]

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,

[marot_r]

Bonjour,

Code :

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

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 :

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

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+

[hernesto]

Merci Marot +++++

Réglé