[VBA-E]bloquage sur end function
salut tout le monde
alors voila le probleme..
j'ai un bouton
Code:
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:
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
Citation:
erreur deffini par l'application ou pas l'objet..
si quelq'un a une idée sur comment corigé sa ...merci :D