A voir également:
- OooBasic catalogue des objets et methodes
- Site pour vendre des objets d'occasion - Guide
- Ryanair objets interdits - Guide
- Netflix avec pub catalogue - Accueil - Streaming
- Les objets du net - Forum Consommation & Internet
- Dans le document à télécharger, léa a utilisé 2 méthodes différentes pour centrer le nom des continents. lesquels sont centrés correctement ? ✓ - Forum Windows 10
2 réponses
Bonjour,
Je ne t'apporte malheureusement pas de réponse, car je recherche exactement la même information que toi.
Pour ma part, ce qu'il me manque c'est l'équivalent de VB d'excel pour obtenir la liste des classeurs ouverts (Worbooks.Item(i) ), car ma macro doit travailler à tour de rôle sur chacun d'eux afin de faire des mises à jour, de les sauvegarder puis de les fermer.
En fait je suis entrain de porter mes macros d'excel vers Calc.
J'ai bien trouvé ThisComponent mais ce n'est que le classeur actif.
Merci si tu as une piste.
Je reviens sur le forum si je trouve quelque chose d'intéressant.
A+
Voici ma petite macro sous excel. Là je changeais le lien des classeurs, mais sous OO je compte remplacer directement les valeurs des cellules par leur chemin dans le fichier servant de base.
Je ne t'apporte malheureusement pas de réponse, car je recherche exactement la même information que toi.
Pour ma part, ce qu'il me manque c'est l'équivalent de VB d'excel pour obtenir la liste des classeurs ouverts (Worbooks.Item(i) ), car ma macro doit travailler à tour de rôle sur chacun d'eux afin de faire des mises à jour, de les sauvegarder puis de les fermer.
En fait je suis entrain de porter mes macros d'excel vers Calc.
J'ai bien trouvé ThisComponent mais ce n'est que le classeur actif.
Merci si tu as une piste.
Je reviens sur le forum si je trouve quelque chose d'intéressant.
A+
Voici ma petite macro sous excel. Là je changeais le lien des classeurs, mais sous OO je compte remplacer directement les valeurs des cellules par leur chemin dans le fichier servant de base.
Sub MAJLiens()
'Pointer sur le fichier de données
Dim i As Integer
Workbooks.Item("Donnees.xls").Activate
Donneesfile = ActiveWorkbook.FullName
Nb = Workbooks.Count
For i = 1 To Nb
aLinks = Workbooks.Item(i).LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For j = 1 To UBound(aLinks)
Workbooks.Item(i).ChangeLink Name:=aLinks(j), NewName:=Donneesfile, Type:=xlExcelLinks
Next j
End If
Next i
Msg = "Nb de classeurs traités" + Str(i - 2) ' Définit le
' message.
Style = vbOKOnly ' Définit les boutons.
Title = "Mise à jour des liens " ' Définit le titre.
rep = MsgBox(Msg, Style, Title)
End Sub
J'ai trouvé ce lien qui peut être intéressant:
http://www.openoffice.org/documentation/HOW_TO/various_topics/VbaStarBasicXref.pdf
Je n'ai pas encore testé.
A+
http://www.openoffice.org/documentation/HOW_TO/various_topics/VbaStarBasicXref.pdf
Je n'ai pas encore testé.
A+
