Problème code VBA

M

Minick

XLDnaute Impliqué

• 25 Février 2010

• #2

Re : Problème code VBA

Salut,

Tu as un Next sans For (le Next ne sert a rien apparemment ici)
Si tu as Option Explicit en tete de module et que x et y ne sont pas des variables globales il faut les declarer dans la procedure.

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 25 Février 2010

• #3

Re : Problème code VBA

Bonjour,

Désolé mais je n'ai pas compris vous pourriez le changer sur le code svp ?

Merci

 

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 25 Février 2010

• #4

Re : Problème code VBA

Code:

Private Sub refresh()

Module1.call MAJ_FI_brut()
Module2.call Mise_en_forme()

[B][COLOR=Red]Next  ' <== a supprimer[/COLOR][/B]

Workbooks("P&L ESSBASE SAMPLE_blackstoneFormat.xls").Activate
     
     y = EssVConnect("Essbase", "Admincom", "passadmin", "110.100.100.31", "PL_H", "Pl_h")
     x = EssVRetrieve("Essbase", RANGE("k1:m48"), 1)
     y = EssVDisconnect("Essbase")



End Sub

essaie comme ca deja, apres il y aura peut etre un probleme avec x et y.

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 25 Février 2010

• #5

Re : Problème code VBA

Oui j'ai supprimé next mais il y a encore une erruer de compilation ca dit fonction ou variable attendue

Merci pour votre aide

 

Dernière édition: 25 Février 2010

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 25 Février 2010

• #6

Re : Problème code VBA

Code:

Private Sub refresh()

[B][COLOR=SeaGreen]Module1.MAJ_FI_brut
Module2.Mise_en_forme[/COLOR][/B]

[B][COLOR=Red]Next  ' <== a supprimer[/COLOR][/B]

Workbooks("P&L ESSBASE SAMPLE_blackstoneFormat.xls").Activate
     
     y = EssVConnect("Essbase", "Admincom", "passadmin", "110.100.100.31", "PL_H", "Pl_h")
     x = EssVRetrieve("Essbase", RANGE("k1:m48"), 1)
     y = EssVDisconnect("Essbase")



End Sub

Oui j'etais passe a cote de la partie que j'ai corrige en vert
'Module1.' et 'Module2.' sont facultatifs

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 25 Février 2010

• #7

Re : Problème code VBA

Je confirme ce dont je t'ai répondu ici :
https://www.excel-downloads.com/threads/compilation-de-plusieurs-macros.137248/

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 25 Février 2010

• #8

Re : Problème code VBA

Merci à vous il y a encore une petite erreur

dont voici une copie d ecran.

Merci encore.

 

Pièces jointes

• erreur vba.xls

  22 KB · Affichages: 61

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 25 Février 2010

• #9

Re : Problème code VBA

Re,
est ce que le classeur 'P&L ESSBASE SAMPLE_blackstoneFormat.xls' est ouvert?
Sur cette ligne

Code:

Workbooks("P&L ESSBASE SAMPLE_blackstoneFormat.xls").Activate

on demande d'activer le classeur 'P&L ESSBASE SAMPLE_blackstoneFormat.xls' et il doit etre ouvert.

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 25 Février 2010

• #10

Re : Problème code VBA

En fait non je l'ai supprimé cette partie du code elle ne sert pas par contre quand j'éxécute les macros, la macro agit sur la page ou je rapatrie le résultat des 2 premieres macros donc quel code ajouté pour que les deux 1ere macros s'exécute sur les onglets concernés et non sur la feuille synthèse.

Je sais qu'il faut séléction la page mais je ne sais pas faire voici le code à compléter

Private Sub refresh()

Module1.MAJ_FI_brut (les données à traiter par la macro sont dans un onglet unique)

Module2.Mise_en_forme (les données à traiter par la macro sont dans un onglet unique)




y = EssVConnect("Essbase", "Admincom", "passadmin", "110.100.100.31", "PL_H", "Pl_h")
x = EssVRetrieve("Essbase", RANGE("k1:m48"), 1)
y = EssVDisconnect("Essbase")



End Sub

Merci encore

 

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 25 Février 2010

• #11

Re : Problème code VBA

re,

Ajoute

Code:

Sheets("NomdeLaFeuille").activate

avant Module1.MAJ_FI_brut

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 25 Février 2010

• #12

Re : Problème code VBA

Merci Minck.

Pour les 2 macros ca marche bien mais la suite ne fonctionne pas en fait la macro consiste à mettre à jour des données depuis ESSBASE

Dois je ajouter quelque chose ?

Merci

 

Vote positif 0 Vote négatif

M

Minick

XLDnaute Impliqué

• 25 Février 2010

• #13

Re : Problème code VBA

Je vais rejoindre noviceAG dans ca remarque.

Tu nous donnes les informations au compte gouttes, il est tres difficile d'avancer comme cela...

Tu dois avoir des connecteurs pour ESSBASE quelque part ou un complement a installer sur ton poste.
Soit par l'ouverture d'un fichier xla soit par l'installation d'un outil de requetes.
Ne connaissont pas ESSBASE je ne peux t'en dire plus.

 

Vote positif 0 Vote négatif

M

Madjon6

XLDnaute Occasionnel

• 25 Février 2010

• #14

Re : Problème code VBA

Je suis désolé mais je viens d'arriver dans le service et je ne maitrise pas assez leur S.I.

merci à vous quand même je posterai ultérieurement après vérification pour ESSABASE

 

Vote positif 0 Vote négatif