C'est la deuxième fois que je rencontre se problème sans comprendre pourquoi.
Lorsque j’exécute ma macro via l'Editeur Basic ma macro "d'amateur" fonctionne correctement. Mais dès que je l'assigne sur mon Bouton qui se trouve en feuille 3 elle est en erreur.
J'active le "témoin dans l'éditeur" , et quand je clique sur mon Bouton j'ai "Variable Sub" "Valeur Out of Scope"
Pouvez vous m'aider ?
Code : Tout sélectionner
sub ResultatRechecheSimple
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
args1(0).Value = 3
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem 'J'ai rajoouté cette arguments pour voir si le bouton fonction mais rien ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$AG$21"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$C$21:$AG$21"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 4
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())
rem ----------------------------------------------------------------------
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$D$4:$D$34"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
'dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, array())
rem j'ai rajouté cette args pour voir si c'était mon ClearContents qui se m'était en erreur mais tjs rien------------
dim args0(0) as new com.sun.star.beans.PropertyValue
args0(0).Name = "Flags"
args0(0).Value = "SVDFN"
dispatcher.executeDispatch(document, ".uno:Delete", "", 0, args0())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$D$4"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())
rem ----------------------------------------------------------------------
dim args8(5) as new com.sun.star.beans.PropertyValue
args8(0).Name = "Flags"
args8(0).Value = "SVDF"
args8(1).Name = "FormulaCommand"
args8(1).Value = 0
args8(2).Name = "SkipEmptyCells"
args8(2).Value = false
args8(3).Name = "Transpose"
args8(3).Value = true
args8(4).Name = "AsLink"
args8(4).Value = false
args8(5).Name = "MoveMode"
args8(5).Value = 4
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args8())
'dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())
end sub