InStr( )

[:-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 identique, de lancer la macro "reussi" définie ailleurs.

Help-me!
----------
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]

ceci marche mais fais tes tests sur un classeur préalablement sauvegardé

bye
stephane

 

[:-s]

Si je veux maintenant faire la condition:

si le début de la chaine de caractère contenu dans " variable" est différent de " :\Disque_Mou\ alors faire "tué1dieu"

If InStr(1, variable, "C:\Disque_Mou\", vbBinaryCompare) < 0 Then ????????

Merci?!