C
Creepy
Guest
Bonjour les amis,
voila j'ai un fichier avec des chemins dans la colonne A, du genre :
dede= c:\dada\dudu\dede.exe
je voudrais changer le chemin en c:\ par exemple ou c:\zaza\dede.exe selon le choix de l'utilisateur.
ce qui me pose pb, ce n'est pas la message box, et tout le reste mais la fonction MID. Elle permet de remplacer du texte. Après avoir regardé l'aide, j'ai fait cette macro sur la cellule A1 pour faire un test, avant de faire la macro définitive :
--------
Private Sub CommandButton1_Click()
Dim I, Start, Fin As Integer
Dim Txt, Final As String
Txt = Range("a1").Value
I = Len(Txt)
Start = InStr(Txt, "=")
Fin = InStrRev(Txt, "\")
Start = Start + 3
Fin = Fin - Start
Final = Mid(Txt, Start, Fin) = "dada"
Range("a4").Value = Final
End Sub
-------
Mais la fonction mid ne marche pas la valeur de A4 est : FAUX
Pourquoi ?? Car d'après l'aide J'ai bien fait ce qu'il fallait et mais parametres sont correctes ??
Merci de votre aide
++
Creepy
voila j'ai un fichier avec des chemins dans la colonne A, du genre :
dede= c:\dada\dudu\dede.exe
je voudrais changer le chemin en c:\ par exemple ou c:\zaza\dede.exe selon le choix de l'utilisateur.
ce qui me pose pb, ce n'est pas la message box, et tout le reste mais la fonction MID. Elle permet de remplacer du texte. Après avoir regardé l'aide, j'ai fait cette macro sur la cellule A1 pour faire un test, avant de faire la macro définitive :
--------
Private Sub CommandButton1_Click()
Dim I, Start, Fin As Integer
Dim Txt, Final As String
Txt = Range("a1").Value
I = Len(Txt)
Start = InStr(Txt, "=")
Fin = InStrRev(Txt, "\")
Start = Start + 3
Fin = Fin - Start
Final = Mid(Txt, Start, Fin) = "dada"
Range("a4").Value = Final
End Sub
-------
Mais la fonction mid ne marche pas la valeur de A4 est : FAUX
Pourquoi ?? Car d'après l'aide J'ai bien fait ce qu'il fallait et mais parametres sont correctes ??
Merci de votre aide
++
Creepy