[Résolu][Calc] Activer feuille fichier ouvert

[PJJJJJJJJ]

Bonjour,

J'ai consulté des sujets sur ce thème mais je n'ai pas vraiment compris les réponses (complexes) à mon problème qui me semble simple.

Me trouvant sur la feuille "Source" de mon classeur classeur calc "Execution" je souhaite aller faire un traitement sur la feuille "Destination" de mon autre classeur "Resultat" ouvert.

Je sais charger le fichier "Resultat":

Code : Tout sélectionner

adresseDoc = ConvertToURL("C:/Documents and Settings/Bureau/Resultat.ods")
   Document = StarDesktop.loadComponentFromURL(adresseDoc,"_blank",0, Array())

Mais comment simplement appeler le fichier quant il est ouvert ?

J'ai vu à un moment une référence à :

Code : Tout sélectionner

currentController.frame.getContainerWindow.setFocus

Mais je n'ai pas la synthaxe adaptée.

Par avance merci

[micmac]

Bonjour,

Merci de lire le bandeau rouge en haut de page et de baliser correctement votre sujet sous peine de verrouillage.

Merci

[Piaf]

Bonjour
Dans un premier temps, suis les recommandations de la modération et balise ton fil avec la balise [Calc].
Ensuite regarde si ce fil peut t'aider Re: [Calc] Passer d'un classeur à l'autre
A+

[PJJJJJJJJ]

Bonjour,

Désolé pour la balise. J'ai rectifié. Merci à nouveau Piaf. Je vais étudier le fil.

A +

[PJJJJJJJJ]

J'ai essayé de m'inspirer du code mais je ne comprends pas bien et donc cela ne fonctionne pas. Merci de m'aider . Dans mon cas le changement de fichier ne s'effectue pas par bouton mais directement en activant le fichier "Resultat " simplement à partir du code

Code : Tout sélectionner

sub aller_a_resultat

on Error Resume Next
Dim oDocs, EnumDocs, oDoc
Dim nomClasseur as String
   nomClasseur = Resultat & ".ods"
   oDocs = StarDesktop.Components
   EnumDocs = oDocs.createEnumeration
   While EnumDocs.hasMoreElements
      oDoc = EnumDocs.nextElement
      If oDoc.Title = nomClasseur Then oDoc.CurrentController.Frame.ContainerWindow.toFront
   Wend
End Sub

Bonne soirée

[Piaf]

Bonsoir

Code : Tout sélectionner

Dim nomClasseur as String
   nomClasseur = "Resultat.ods"

Devrait mieux le faire.
A+

[PJJJJJJJJ]

Bonjour Piaf

Mille merci de m'avoir à nouveau apporté la solution.

Belle journée et plein de bonnes choses