salut tout le monde

alors voila le probleme..

j'ai un bouton
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
butTop = Range("g" & lastline + 7).Top
            butLeft = Range("g" & lastline + 7).Left
            butHeight = Range("g" & lastline + 7).Height
            butWidth = Range("g" & lastline + 7).Width
 
            Set Bouton = ActiveSheet.Buttons.Add(Left:=butLeft, Top:=butTop, Width:=butWidth, Height _
            :=butHeight * 2)
            With Bouton
                .OnAction = Openfiles(XlsFiles(i))
                .Caption = "consulter"
            End With
XlsFiles(i) est le nom du fichier avecsont extention ( test1.xls )

et une fonction

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Public Function Openfiles(FileToOpen As String)
MsgBox FileToOpen
Workbooks.Open "C:\Documents and Settings\avaysse\Mes documents\" & FileToOpen, , True
DoEvents
End Function
voila... je lance mon code en pas a pas... et je me rend compte quil fait tout se que je lui demande...( ouvrir mon fichier en lecture seule enfait...) et aprivé sur le end function... il renvoi une erreur
erreur deffini par l'application ou pas l'objet..
si quelq'un a une idée sur comment corigé sa ...merci