XL 2010 fonction LiKE

[fattah_5791]

bonjour,

Dim v$, TC$
v = wbExcel.Sheets("Data").Range("J7").Value 'valeur recupéréé est TCLSH-1
TC = Sheets("Index").Range("A7").Value 'valeur récupérée est TCLSH

If TC & "-*" Like v Then
(...)
Else

Sheet Data et Sheet index ne sont pas dans le meme classeur. le problème est que le test IF n'execute pas ce qui est entre parenthèses !!!
merci de m'aider

 

[Lone-wolf]

Bonjour fattah, le Forum

D'aprés ce que j'ai compris

Public Sub Recherche()
Dim WbSource As Workbook, Sh As Worksheet, v As Range, TC As Range

    Set WbSource = Workbooks.Open("nom réel du classeur(vbexcel)")
    Set Sh = ThisWorkbook.Sheets("Index")

    With WbSource
        Set v = .Sheets("Data").Range("J7")
    End With

    With Sh
        Set TC = .Range("A7")
    End With

    If TC.Value Like "*" & v.Value Then
        'le code
    Else
        'reste du code
    End If

End Sub