Macro qui ne démarre pas

[schumi_57]

Bonjour forumeur, foromeuse :
Je vous sollicite pour un probleme avec openoffice mais je pense que vous pouvez m'aider enfin j'espère (Désolé pour le Hors-Sujet)

J'ai une macro qui marche impeclable mais quand je quitte le classeur en l'ayant bien enregister et que je le redemarre ( le fichier ) la macro ne fait que la moitié de se qu'elle devrait faire .

la voici :


REM ***** BASIC *****

Sub CopieFeuilleActive
Dim Document As Object , Dispatcher As Object
Dim Args1(7) As New com.sun.star.beans.PropertyValue

Document = ThisComponent.CurrentController.Frame
Dispatcher = createUnoService('com.sun.star.frame.DispatchHelper')

Args1(0).Name = 'DocName'
Args1(0).Value = 'jerome.sxc' 'nom du classeur contenant la macro
'si le classeur n'est pas encore sauvegardé utilisez :
'Args1(0).Value = 'Sans nom1'

Args1(1).Name = 'Index'
Args1(1).Value = 7 'définit la position de la nouvelle Feuille créée

'copie de la feuille active
Args1(2).Name = 'Copy'
Args1(2).Value = True

Dispatcher.executeDispatch(Document, '.uno:Move', '', 0, Args1())

'efface les données dans la plage A9:J50 de la Feuille1 :
'com.sun.star.sheet.CellFlags.VALUE et com.sun.star.sheet.CellFlags.STRING
'definissent les types de données à supprimer ( texte et numerique )
ThisComponent.Sheets.getByName('Commandes').getCellRangeByName('A9:J50').clearContents( _
com.sun.star.sheet.CellFlags.VALUE + com.sun.star.sheet.CellFlags.STRING)
End Sub



Est ce que quelqu'un voie un problème ?


Merci de votre aide precieuse 😉

 

[Bebere]

re
Args1 est dimensionné de 0à 7
ds ce qui suit Args1 tjrs (0)
Args1(0).Name = 'DocName'
Args1(0).Value = 'jerome.sxc' 'nom du classeur contenant la macro
'si le classeur n'est pas encore sauvegardé utilisez :
'Args1(0).Value = 'Sans nom1'
peut être comme suit
Args1(0).Name = 'DocName'
Args1(1).Value = 'jerome.sxc' 'nom du classeur contenant la macro
'si le classeur n'est pas encore sauvegardé utilisez :
'Args1(2).Value = 'Sans nom1'

et ainsi de suite
à+
:S

 

[schumi_57]

Il me dit erreur :
Valeur ou type de données incorrecte
Index en dehors de la page defini



Merci de ton aide

 

[Bebere]

re

essaye comme suit

Args1(1).Name = 'DocName'
Args1(2).Value = 'jerome.sxc' 'nom du classeur contenant la macro
'si le classeur n'est pas encore sauvegardé utilisez :
'Args1(3).Value = 'Sans nom1'

Args1(4).Name = 'Index'
Args1(5).Value = 7 'définit la position de la nouvelle Feuille créée

'copie de la feuille active
Args1(6).Name = 'Copy'
Args1(7).Value = True
à+

 

[schumi_57]

Sub CopieFeuilleActive
Dim Document As Object , Dispatcher As Object
Dim Args1(0) As New com.sun.star.beans.PropertyValue

Document = ThisComponent.CurrentController.Frame
Dispatcher = createUnoService('com.sun.star.frame.DispatchHelper')

Args1(1).Name = 'DocName'

Sa merde ICI a doc name il me mé le même message d'erreur que toutes a lheure


Args1(2).Value = 'jerome.sxc' 'nom du classeur contenant la macro
'si le classeur n'est pas encore sauvegardé utilisez :
'Args1(3).Value = 'Sans nom1'

Args1(4).Name = 'Index'
Args1(5).Value = 7 'définit la position de la nouvelle Feuille créée

'copie de la feuille active
Args1(6).Name = 'Copy'
Args1(7).Value = True

Dispatcher.executeDispatch(Document, '.uno:Move', '', 0, Args1())

'efface les données dans la plage A9:J50 de la Feuille1 :
'com.sun.star.sheet.CellFlags.VALUE et com.sun.star.sheet.CellFlags.STRING
'definissent les types de données à supprimer ( texte et numerique )
ThisComponent.Sheets.getByName('Commandes').getCellRangeByName('A9:J50').clearContents( _
com.sun.star.sheet.CellFlags.VALUE + com.sun.star.sheet.CellFlags.STRING)
End Sub

 

[Bebere]

re
ne dois tu pas remplacer 'docname' par le nom du classeur
et peut être le chemin? 'jerome.sxc'ou ex:'C:\\jerome.sxc'
ou ex:'C:\\Dossier\\jerome.sxc'
à+ :S

 

[jeanpierre]

Bonjour schumi_57, Bebere, le Forum,

Pour OOo, tu peux trouver un exellent forum où notre ami MichelXLD est aussi très actif....

Ce lien n'existe plus

J'espère seulement que le lien fonctionne...

Bonne fin d'après-midi à vous.

Jean-Pierre

 

[schumi_57]

bebere si t'arrive comprenrde la macro pourrait-tu me faire la même mais une qui marche mdr 😉

 

[schumi_57]

Et bien et bien après de longue recherche je me suis apercu que je n'avait plus aucun probleme avec la macro dans le prmier OpenOffice !



Merci de votre dévouement 😉