[Résolu] [Calc] Copier le contenu de cellules dans le presse papier

[bertrandperrier]

Bonjour,
je suis débutant en macro
j'aimerai copier le contenu de cellules dans le presse papier en cliquant sur un bouton
voici ma macro qui s'appelle ModuleCopy

Code : Tout sélectionner

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

Sub Main
	dispatcher.executeDispatch(ThisComponent, “.uno:Copy”, “”, 0, "$A$2:$A$77")
End Sub

dans propriété de controle du bouton, executer à l'action, j'ai Standard.ModuleCopy.Main (document, Basic)

que je clique sur executer (ma macro) ou que je clique sur le bouton.
rien ne se passe, pas de message d'erreur, rien à coller
en vous remerciant par avance

[Oukcha]

Bonjour et bienvenue,


Comment joindre un fichier au format ODF
Veillez également à dépersonnaliser votre fichier joint.

[bertrandperrier]

Bonjour et bienvenue,


Comment joindre un fichier au format ODF
Veillez également à dépersonnaliser votre fichier joint.

escusez-moi Mr Oukcha, je viens de l'ajouter

[micmac]

Bonjour,

Pour répondre à un message, préférer le bouton Répondre en bas de page à gauche, cela évite de citer la totalité du message précédent.

Respectez la chronologie de la discussion et donc, ne modifiez pas vos messages précédents dès lors qu'il y a une réponse derrière.
Cela rend illisible la logique de lecture.
Vous devez penser d'abord à tous ceux qui recherchent dans ce forum et qui ne comprendront rien à ce fil.

[rollmops]

Bonjour,

Vous avez dû copier ce code depuis internet.
Et du coup, les guillements ne sont pas corrects.
Il suffit de voir le message d'erreur :

capture.png

[bertrandperrier]

merci je viens de corriger, maintenant j'ai l'erreur Variable d'objet non définie.

[rollmops]

Euh oui, il faudrait peut-être déclarer le dispatcher non ?

[bertrandperrier]

je viens de rajouter la déclaration

Code : Tout sélectionner

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

Sub Main
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
	dispatcher.executeDispatch(ThisComponent, ".uno:Copy", "", 0, "$A$2:$A$77")
End Sub

mais j'ai toujours le message d'erreur

[rollmops]

Vous les sortez d'où les paramètres de la commande uno:Copy ?

[bertrandperrier]

Vous les sortez d'où les paramètres de la commande uno:Copy ?

j'ai trouvé sur internet, et j'ai adapter, mais je peux me tromper c'est pourquoi j'écris sur ce forum
c'est quand meme bizarre que ce soit aussi compliqué de copier dans un presse papier le contenue de plusieurs cellules !!!!
pouvez-vous m'aider svp

[yclik]

Bonjour
une partie de code réalisée avec l'enregistreur de macro ne fonctionnera pas
il faut un code de ce genre réalisé avec l'enregistreur de macro, ce qui permet d'avoir les déclarations de variables

Code : Tout sélectionner

sub Main2
rem define variables
dim document   as object
dim dispatcher as object
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$2:$A$77""

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

end sub

[bertrandperrier]

merci de votre réponse
voici l'erreur de retour
j'ai enlever le second double quote de args1(0).Value = "$A$2:$A$77""
avec sub Main2 j'ai une erreur

Code : Tout sélectionner

Une erreur de structure de script s'est produite lors de l'exécution du script vnd.sun.star.script:Standard.ModuleCopy.Main?language=Basic&location=document en Basic.

Message : The following Basic script could not be found:
library: 'Standard'
module: 'ModuleCopy'
method: 'Main'
location: 'document'
 ./scripting/source/basprov/basprov.cxx:365

si je remplace sub Main2 par sub Main
je n'ai pas d'érreur mais rien à coller

Bonjour
une partie de code réalisée avec l'enregistreur de macro ne fonctionnera pas
il faut un code de ce genre réalisé avec l'enregistreur de macro, ce qui permet d'avoir les déclarations de variables

Code : Tout sélectionner

sub Main2
rem define variables
dim document   as object
dim dispatcher as object
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$2:$A$77""

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

end sub

[rollmops]

Re,

je n'ai pas d'érreur mais rien à coller

Vous collez ça où ?
Chez moi sous OpenOffice, le document fonctionne et je peux coller le contenu de la plage $A$2:$A$77 dans le bloc-notes.

LibreOffice Version: 7.3.7.2 sous Ubuntu

Sans doute devriez-vous mettre à jour car LibreOffice est en version stable 7.6.5 actuellement

[bertrandperrier]

je suis sous Ubuntu tout mes paquets sont à jour

Vous collez ça où ?

dans un bloc note, gedit.
Je pourrais essayer sur OpenOffice

[Dolev]

Bonsoir,

dans un bloc note, gedit.

Et à quoi ça sert de faire ça ?
Vous allez sûrement réintroduire les données quelque part sinon quel est l'intérêt ?

Ca ressemble à un problème XY

[bertrandperrier]

c'est pour le coller dans mon programme en python, qui converti les info en .ics

j'ai tenté d'installer la dernière version avec les fichiers .deb mais c'est trop compliqué, problèmes de dépendances trop importante.

[Dolev]

Re,

c'est pour le coller dans mon programme en python, qui converti les info en .ics

C'est donc bien un problème XY
La prochaine fois, décrivez l'objectif final, on gagnera du temps.
Voyez ce projet viewtopic.php?t=18054

[cwolan]

je n'ai pas d'érreur mais rien à coller

Vous collez ça où ?
Chez moi sous OpenOffice, le document fonctionne et je peux coller le contenu de la plage $A$2:$A$77 dans le bloc-notes.

Il en va de même pour moi. Avec LibreOffice cela ne marche pas.
Une sorte de solution de contournement : Régler la propriété "Focus sur clic" du bouton sur "Non".
(cf. tdf#70883 ― "uno: copy" via the dispatcher does not work when a button has focus).
⠀

FsC_7652.png

[bertrandperrier]

merci pour vos réponse
j'ai bien mis la propriété "Focus sur clic" du bouton sur "Non".
qand je clic sur le bouton, j'ai le message d'erreur Erreur de syntaxe BASIC. Erreur de syntaxe. quatre fois

Code : Tout sélectionner

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

Sub Main
	dispatcher.executeDispatch(ThisComponent, “.uno:Copy”, “”, 0, "$A$2:$A$77")
End Sub

j'ai ouvert le fichier de ce sujet viewtopic.php?t=18054
quand je clic que le bouton Entrer les dates de vacances j'ai aussi l'erreur j'ai le message d'erreur Erreur de syntaxe BASIC. Erreur de syntaxe.

[Dolev]

Soyez plus attentif et relisez le message de rollmops, vous refaites la même erreur.

j'ai ouvert le fichier de ce sujet viewtopic.php?t=18054

Vous devriez alors en avertir l'auteur plutôt que de poster ici pour qu'il en soit averti.
Cependant sous OpenOffice cela fonctionne

Capture d'écran 2024-03-02 151600.png

[jeanmi2403]

Vous devriez alors en avertir l'auteur plutôt que de poster ici pour qu'il en soit averti.
Cependant sous OpenOffice cela fonctionne

Bonsoir,
Je viens de le faire (prévenir l'auteur).
En effet le sujet date de 2009, et depuis, il faut utiliser la fonction CDateToUnoDate avec les contrôles Date des boîtes de dialogue sur LibreOffice.
Il suffit donc de remplacer tous les CDateToIso par CDateToUnoDate pour que ça fonctionne sur LibreOffice.
Mais attention ! ça ne fonctionne plus sur OpenOffice.
Il faudrait faire un test sur la version du logiciel pour utiliser la bonne fonction selon qu'on est sur Ooo ou LibO.
Cordialement,

[Jurassic Pork]

Hello

Il faudrait faire un test sur la version du logiciel pour utiliser la bonne fonction selon qu'on est sur Ooo ou LibO.

grâce à la fonction GetProductName de la bibliothèque Tools on peut savoir si on est sous LibreOffice ou OpenOffice alors voilà ce que je propose :
1 - on crée une nouvelle fonction ConvCDate qui selon qu'on est sous LibreOffice ou OpenOffice utilise CDateToIso ou CDateToUnoDate
2 - Dans la procédure AfficherDialogVacances on remplace tous les CDateToIso par la nouvelle fonction ConvCDate en ajoutant aussi au début de la procédure le chargement de la bibliothèque Tools.

Code : Tout sélectionner

Function ConvCDate(x)
    If InStr(getProductName,"LibreOffice") then 
     ConvCDate = CDateToUnoDate(x)
    Else
     ConvCDate = CDateToIso(x)
    end if
End Function

Sub AfficherDialogVacances
 GlobalScope.BasicLibraries.LoadLibrary("Tools")
 monDocument=thisComponent
 lesFeuilles=monDocument.Sheets
 maFeuille=lesFeuilles.getByName("Dates")
 exitOK=com.sun.star.ui.dialogs.ExecutableDialogResults.OK
 'création de la boite de dialogue
 DialogLibraries.LoadLibrary("Standard")
 bibli = DialogLibraries.getByName("Standard") 'récupère la bibli contenant la boite de dialogue
 monDialogue=bibli.getByName("Dialog1")
 Dlg = CreateUnoDialog(monDialogue) ' crée le dialogue
 'Récupère la zone de vacances stockée dans la cellule B20
 dZoneVacances=Dlg.getControl("ZoneVacancesBox")
 x=maFeuille.getCellByPosition(1,19).String
 dZoneVacances.SelectItem(x,1)
 'Récupère la valeur qui indique si les jours fériés doivent être inclus
 caseJrFer=Dlg.getControl("CheckBoxJrFer")
 ecrireJrFer=maFeuille.getCellByPosition(1,21).String
 If ecrireJrFer="oui" then caseJrFer.state=1 else caseJrFer.state=0
 'Récupération des dates de la feuille "Dates"
 dRentreeBox=Dlg.getControl("DateRentréeBox")
 x=maFeuille.getCellByPosition(2,1).value
 dRentreeBox.date=(ConvCDate(x))
 labelJourRentree=Dlg.getControl("JourRentrée") 
 labelJourRentree.text=JourSem(x) 'Indique le jour de la semaine
 dToussaint1Box=Dlg.getControl("DateToussaint1Box")
 x=maFeuille.getCellByPosition(2,2).value
 x=DateAdd("d",-1,x) 'Enlève un jour pour avoir la date de départ en vacances
 dToussaint1Box.date=(ConvCDate(x)) 
 labelJourToussaint1=Dlg.getControl("JourToussaint1") 
 labelJourToussaint1.text=JourSem(x) 'Indique le jour de la semaine
 dToussaint2Box=Dlg.getControl("DateToussaint2Box")
 x=maFeuille.getCellByPosition(3,2).value
 'x=DateAdd("d",1,x) 'Rajoute un jour pour avoir la date de reprise des cours
 dToussaint2Box.date=(ConvCDate(x))
 labelJourToussaint2=Dlg.getControl("JourToussaint2") 
 labelJourToussaint2.text=JourSem(x) 'Indique le jour de la semaine
 dNoel1Box=Dlg.getControl("DateNoel1Box")
 x=maFeuille.getCellByPosition(2,3).value
 x=DateAdd("d",-1,x) 'Enlève un jour pour avoir le premier jour de vacances
 dNoel1Box.date=(ConvCDate(x))
 labelJourNoel1=Dlg.getControl("JourNoel1") 
 labelJourNoel1.text=JourSem(x) 'Indique le jour de la semaine
 dNoel2Box=Dlg.getControl("DateNoel2Box")
 x=maFeuille.getCellByPosition(3,3).value
 'x=DateAdd("d",1,x) 'Rajoute un jour pour avoir la date de reprise des cours
 dNoel2Box.date=(ConvCDate(x))
 labelJourNoel2=Dlg.getControl("JourNoel2") 
 labelJourNoel2.text=JourSem(x) 'Indique le jour de la semaine
 dHiver1Box=Dlg.getControl("DateHiver1Box")
 x=maFeuille.getCellByPosition(2,4).value
 x=DateAdd("d",-1,x) 'Enlève un jour pour avoir le premier jour de vacances 
 dHiver1Box.date=(ConvCDate(x))
 labelJourHiver1=Dlg.getControl("JourHiver1") 
 labelJourHiver1.text=JourSem(x) 'Indique le jour de la semaine
 dHiver2Box=Dlg.getControl("DateHiver2Box")
 x=maFeuille.getCellByPosition(3,4).value
 'x=DateAdd("d",1,x) 'Rajoute un jour pour avoir la date de reprise des cours 
 dHiver2Box.date=(ConvCDate(x))
 labelJourHiver2=Dlg.getControl("JourHiver2") 
 labelJourHiver2.text=JourSem(x) 'Indique le jour de la semaine
 dPaques1Box=Dlg.getControl("DatePaques1Box")
 x=maFeuille.getCellByPosition(2,5).value
 x=DateAdd("d",-1,x) 'Enlève un jour pour avoir le premier jour de vacances 
 dPaques1Box.date=(ConvCDate(x))
 labelJourPaques1=Dlg.getControl("JourPaques1") 
 labelJourPaques1.text=JourSem(x) 'Indique le jour de la semaine
 dPaques2Box=Dlg.getControl("DatePaques2Box")
 x=maFeuille.getCellByPosition(3,5).value
 'x=DateAdd("d",1,x) 'Rajoute un jour pour avoir la date de reprise des cours 
 dPaques2Box.date=(ConvCDate(x))
 labelJourPaques2=Dlg.getControl("JourPaques2") 
 labelJourPaques2.text=JourSem(x) 'Indique le jour de la semaine
 dGVacBox=Dlg.getControl("DateGVacBox")
 x=maFeuille.getCellByPosition(2,6).value
 x=DateAdd("d",-1,x) 'Enlève un jour pour avoir le premier jour de vacances
 dGVacBox.date=(ConvCDate(x))
 labelJourGVac=Dlg.getControl("JourGVac") 
 labelJourGVac.text=JourSem(x) 'Indique le jour de la semaine
 
 'Rajoute les jours de la semaine correspondant aux dates
 
 'Exécution et traitement de la boite de dialogue pour insérer les données dans la feuille "Dates"
 If Dlg.Execute=exitOK then
 	'rajoute ou enlève 1 jour pour obtenir le premier jour ou le dernier jour de vacances
 	'car le calendrier scolaire est donné selon la date de départ en vacances et la date de rentrée
 	 maFeuille.getCellByPosition(2,1).value=CDateFromIso(dRentreeBox.date)
 	 maFeuille.getCellByPosition(2,2).value=CDateFromIso(dToussaint1Box.date)+1
 	 maFeuille.getCellByPosition(3,2).value=CDateFromIso(dToussaint2Box.date)
 	 maFeuille.getCellByPosition(2,3).value=CDateFromIso(dNoel1Box.date)+1
 	 maFeuille.getCellByPosition(3,3).value=CDateFromIso(dNoel2Box.date)
 	 maFeuille.getCellByPosition(2,4).value=CDateFromIso(dHiver1Box.date)+1
 	 maFeuille.getCellByPosition(3,4).value=CDateFromIso(dHiver2Box.date)
 	 maFeuille.getCellByPosition(2,5).value=CDateFromIso(dPaques1Box.date)+1
 	 maFeuille.getCellByPosition(3,5).value=CDateFromIso(dPaques2Box.date)
 	 maFeuille.getCellByPosition(2,6).value=CDateFromIso(dGVacBox.date)+1
 	 maFeuille.getCellByPosition(1,19).String=dZoneVacances.SelectedItem
 	 ecrireJrFer=maFeuille.getCellByPosition(1,21).String
 	If caseJrFer.state=1 then maFeuille.getCellByPosition(1,21).String="oui"
 	If caseJrFer.state=0 then maFeuille.getCellByPosition(1,21).String="non"
 End If
 Dlg.Dispose
End Sub

c'est pour le coller dans mon programme en python, qui converti les info en .ics

Dans OpenOffice et LibreOffice on peut écrire des macros en python en utilisant directement les données des feuilles calc. Alors ce genre de manipulation peut être remplacé par une macro en python intégrée au classeur.

Ami calmant, J.P

[bertrandperrier]

Bonjour tout le monde,
voici la solution à mon problème, tout con
il manquait le nom de la feuille dans l'args

mettre args1(0).Value = "$Feuille1.$A$2:$A$77" au lieu de args1(0).Value = “$A$2:$A$77”

donc aucun bug, et pas besoins d'installer open office

je viens de me rendre compte que je suis sur le forum pour open office et non libre office, excusez-moi
Ubuntu a fait le choix de ne plus proposer openoffice dans leurs dépôts
https://www.silicon.fr/lubuntu-1104-abandonnera-openofficeorg-au-profit-de-libreoffice-43669.html

[Bidouille]

Bonjour,

je viens de me rendre compte que je suis sur le forum pour open office et non libre office, excusez-moi

Vous devriez relire le bandeau bleu tout en haut de ce forum.

Ubuntu a fait le choix de ne plus proposer openoffice dans leurs dépôts

Je vais mettre fin à cette légende urbaine : OpenOffice.org n'a jamais été dans aucun dépôt Linux.
A l'origine, c'est une version dérivée du code et distribuée par Novell. Plus connue sous le nom de Go-OO et qui est ensuite devenu LibreOffice.