Bonjours,
Petite question:
Je veut enregistrer une macros qui me permette de prendre un nom dans
une colone (A1) et qui crée une nouvelle feuilles nommer par par ce nom.
ensuite pareil pour A2 ect.. J'usqua la fin environ 70 noms mais sa change.
Je me suis servi de la fonction "enregistrer une macro"
Je par de A1, je fais Ctrl+C
avec la souri je fait creé une nouvelle feuille
Doubles clik sur "nom de la feuille"
Ctrl+V
Je reviens a ma feuille
Fleche vers le bas et je recommence (3 fois)
Sa marche pour les trois premiere lignes mais aprés sa me dit "imposible
d'inserer la table"
en editant la macro je vois qu'il m'a noter le nom au lieu de "coller"
J'ais donc essayer de changer la ligne
args2(0).Value = "Toto Tata"
par
args2(0).Value = ".uno:Paste"
mais sa ne crée plus rien
Comment faire?
Merci
etienne
Voici ma macro:
sub essai5
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 ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Name"
args2(0).Value = ".uno:Paste"
args2(1).Name = "Index"
args2(1).Value = 5
dispatcher.executeDispatch(document, ".uno:Insert", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Nr"
args3(0).Value = 6
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args3())
rem ----------------------------------------------------------------------
dim args4(1) as new com.sun.star.beans.PropertyValue
args4(0).Name = "By"
args4(0).Value = 1
args4(1).Name = "Sel"
args4(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args4())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args6(1) as new com.sun.star.beans.PropertyValue
args6(0).Name = "Name"
args6(0).Value = ".uno:Paste"
args6(1).Name = "Index"
args6(1).Value = 6
dispatcher.executeDispatch(document, ".uno:Insert", "", 0, args6())
rem ----------------------------------------------------------------------
dim args7(0) as new com.sun.star.beans.PropertyValue
args7(0).Name = "Nr"
args7(0).Value = 7
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args7())
rem ----------------------------------------------------------------------
dim args8(1) as new com.sun.star.beans.PropertyValue
args8(0).Name = "By"
args8(0).Value = 1
args8(1).Name = "Sel"
args8(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args8())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args10(1) as new com.sun.star.beans.PropertyValue
args10(0).Name = "Name"
args10(0).Value = ".uno:Paste"
args10(1).Name = "Index"
args10(1).Value = 7
dispatcher.executeDispatch(document, ".uno:Insert", "", 0, args10())
rem ----------------------------------------------------------------------
dim args11(0) as new com.sun.star.beans.PropertyValue
args11(0).Name = "Nr"
args11(0).Value = 8
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args11())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
