Convertir une macro Libre Office en macro Excel

Bonjour,

J'avais une macro sous Libre office mais je n'arrive pas à la mettre sous excel. Pouvez vous m'aider ?
Voici la macro Libre office :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

REM ***** BASIC ***** Sub MaJPilote oDoc = thiscomponent oFeuilleEnum = oDoc.sheets.createEnumeration While oFeuilleEnum.hasMoreElements() oFeuille = oFeuilleEnum.nextElement() oPilotes = oFeuille.getDataPilotTables() oPiloteEnum = oPilotes.createEnumeration While oPiloteEnum.hasMoreElements() oPiloteElement = oPiloteEnum.nextElement() oPiloteElement.refresh Wend Wend End Sub

---

Cette macro sert à mettre à jour des données comptables pour la compta d'une association.

Merci

Bonjour
Nous sommes ici dans la section VBA/Office et les intervenants n'ont pas à connaître nécessairement Libre Office.
Je t'invite donc à reformuler en précisant les tenants et aboutissants (clairs, précis et détaillés) , sans même un seul mot ni une seule allusion à un autre logiciel.
Merci de faire cet effort.

Oups, je suis novice, excusez moi.

Le but est de faire une macro pour actualiser les données d'une feuille, Les données à actualiser sont des sommes si d'un tableau croisé dynamiques qui se trouvent dans le même fichier mais sur une autre feuille.
Je suis pas sur d'être assez claire.
Je débute et je voudrais apprendre à faire de petite macro.

Merci pour votre aide

Rappel :

Citation:

---

Je t'invite donc à reformuler en précisant les tenants et aboutissants (clairs, précis et détaillés) , sans même un seul mot ni une seule allusion à un autre logiciel

---

cela peut se traduire:
- soit par un algorithme
- soit par la reprise d'un code "tiers", mais dont tu as alors à commenter chaque ligne. Car (je l'espère) tu sais au moins ce que tu as écrit en Libre Office et ne viens pas nous demander de traduire en VBA/Office quelque-chose simplement "trouvé" ailleurs ... (rassure-moi).
Mais en aucun cas par une espèce de "résumé d'un cahier des charges" ;)

Bonsoir,

Citation:

---

Envoyé par familymoteau

Les données à actualiser sont des sommes si d'un tableau croisé dynamiques

---

Sous excel, cela devrait suffire :

Code:

---

1 2 3

Public Sub MaJPilote() ThisWorkbook.RefreshAll End Sub

---

Génial,

Je vais mettre en application.

Je n'arrive pas aussi à faire ma formule de somme si.

Je veux aller chercher la somme de mes comptes qui commence par 601 (601100, 601200, 601300...) dans un TCD (feuille dans le même fichier).

Voici ma formule mais elle ne marche pas : =SOMME.SI(TCD!A:A;"601*";TCD!C:C).
Mon TCD c'est
Colonne A mes comptes '601100, 601200...
Colonne B le libellé des comptes
Colonne C la somme du compte 601100...

Merci pour votre aide, c'est grâce à des gens comme vous que les petits comme moi avant !!

Bonjour,

Citation:

---

Envoyé par familymoteau

Je n'arrive pas aussi à faire ma formule de somme si.

---

Avec une formule matricielle à valider par ctrl+maj+entrée simultanées

Code:

---

=SOMME(SI(GAUCHE(A:A;3)="601";TCD!C:C))

---

c'est gentil d'avoir répondu mais la formule ne marche pas !!!

je vais tenter avec une formule "somme si ens" peut être !!!

HElp !!!

quand je mets cette formule ça marche :
=SOMME.SI(TCD!1:65536;"601100";TCD!C:C)

mais ça ne marche pas quand je mets celle là :
=SOMME.SI(TCD!1:65536;"601*";TCD!C:C)

je en comprends pas pourquoi ?

Merci pour votre aide

parce que l'utilisation de caractères génériques ne peut s'appliquer qu'à des chaines de caractères (et pas à des numérique):
Tu n'aurais aucun problème, par exelple, avec :

Code:

---

=SOMME.SI(TCD!1:65536;"=aaa*";TCD!C:C))

---

Bonsoir,

Citation:

---

Envoyé par familymoteau

c'est gentil d'avoir répondu mais la formule ne marche pas !!!

---

C'est une formule matricielle à valider par ctrl+maj+entrée simultanées, ce que tu n'as sans doute pas bien compris.