le "meme" une semaine plus tard

[:-s]

je voudrais comparer les premiers caractères d'une chaine de caractere avec "c:\Disque_Mou\" et permettre, dans le cas ou c'est DIFFERENT, de lancer la macro "reussi" définie ailleurs.

Sioux -plé
----------
Dim variable as string
classeur =ActiveWorkbook.FullName
// en respectant la casse: >>> classeur= " C:\Disque_Mou\classeur1.xls "

variable = classeur

If InStr(1, variable, "C:\Disque_Mou\", vbBinaryCompare) > 0 Then
reussi
----------

 

[STéphane]

Sub s()
variable = "C:\Disque_Mou\"
If InStr(1, variable, "C:\Disque_Mou\", vbBinaryCompare) > 0 Then
MsgBox "ok"
Else
MsgBox "non ok"
call reussi
End If
End Sub


variable = "C:\Difgfgsque_Mou\"
If Mid(variable, 1, Len("C:\Disque_Mou\")) <> "C:\Disque_Mou\" Then MsgBox "ok c'est différent"

bye
stpehane

 

[:-s]

merci dieu