Problème code VBA

[Madjon6]

Bonjour,

Pourriez vous me dire ce qui ne va pas dans ce code svp. ça me dit erreur de compilation ou variable manquante.

Code VBA :

Private Sub refresh()

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

Next

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


Merci à vous

 

[Minick]

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.

 

[Madjon6]

Re : Problème code VBA

Bonjour,

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

Merci

 

[Minick]

Re : Problème code VBA

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.

 

[Madjon6]

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

 

[Minick]

Re : Problème code VBA

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

 

[noviceAG]

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/

 

[Madjon6]

Re : Problème code VBA

Merci à vous il y a encore une petite erreur

dont voici une copie d ecran.

Merci encore.

 

[Minick]

Re : Problème code VBA

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

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.

 

[Madjon6]

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

 

[Minick]

Re : Problème code VBA

re,

Ajoute

Sheets("NomdeLaFeuille").activate

avant Module1.MAJ_FI_brut

 

[Madjon6]

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

 

[Minick]

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.

 

[Madjon6]

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