re
essaies comme ceci
Private Sub rechr_Click()
Dim RORO As String, monfichier as string
Dim MyCheck
MyCheck = '*' Like '[0-10]'
'RORO représente le N° de l'Appel
RORO = CC.Value
'Fonction recherche
Set fs = Application.FileSearch
With fs
.LookIn = 'Z
RODUCTIONPROSTOCKCertificatsarchivage cc'
' .Filename = '2072005_' & RORO & '.xls'
.Filename = '*_' & RORO & '.xls'
If .Execute() > 0 Then
MsgBox ('Fichier trouvé')
monfichier = fs.FoundFiles(1)
'<<<ICI
Workbooks.Open Filename:= _
monfichier
'<<<ICI
Windows('reecherche fichier.xls').Activate
Else
MsgBox ('Fichier non trouvé ! Veuillez vérifier la syntaxe !')
End If
End With
End Sub