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
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