Discussion :

[@lex(is)]

Bonjour!

Je fais une macro sous Excel pour une entreprise en utilisant des fonctions developpees en interne.

Voici mon probleme, j'ai mis le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim montageManager As truc.MontagesDataManager
 Dim montageData As truc.montageData
 Dim compData As truc.IssuingCompanyData
 Dim counterpartId As String
 [...]
 Set montageManager = machin.getMontagesDataManager
 Set productManager = machin.getProductManager
 Set montageData = montageManager.getMontage(14641)
 [...]
  counterpartId = montageData.clientData.clientId
  Set compData = productManager.getIssuingCompany(counterpartId)
  Sheet1.Cells(rowIndex, 26).value = compData.BDRCode

J'obtiens l'erreur "Object variable or With block variable not set" sur la derniere ligne.

"truc" et "machin" sont des fonctions accessible grace a un DLL en reference (j'ai pas trop envie de donner leurs noms, secret defense... nan c'est une blague mais qd meme).

J'espere que moi bien parler francais et toi pouvoir m'aider...

A peluche...

[SfJ5Rpw8]

essai déjà de séparer ta ligne en deux ... pour mieux cerner ton probléme..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox compData.BDRCode

[@lex(is)]

essai déjà de séparer ta ligne en deux ... pour mieux cerner ton probléme..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox compData.BDRCode

Oui j'ai deja essaye, ca me renvoi la meme erreur.

[SfJ5Rpw8]

et ton compData mystérieux... il est créer ou ? je ne vois pas de ligne set. ou autre dans le morceau de code que tu nous montre...

[@lex(is)]

Bah je fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim compData As truc.IssuingCompanyData

Puis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set compData = productManager.getIssuingCompany(counterpartId)

Il manque quelque chose ?

Sinon encore plus bizarre, qd j'utilise aucune variable:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 MsgBox machin.getProductManager.getCompany(machin.getMontagesDataManager.getMontage(14641).clientData.clientId).BDRCode

J'ai la meme erreur...

Les fonctions vont chercher des infos ds une BDD. Si elles ne renvoient rien, ca peut generer cette erreur ???

Merci d'avance (et au secours... )

[AlainTech]

Il faut jouer avec les points d'arrêt, le mode pas à pas et les espions (Watches) pour essayer de comprendre quelle variable et/ou propriété pose problème.
En mode arrêté, on peut créer et modifier autant d'espions qu'on veut.

On y apprend plein de choses.

[@lex(is)]

J'ai essaye de faire du "debuggage" comme tu me conseillais AlainTech mais sans succes.

J'ai finalement trouver une autre solution pour extraire ce code.

Merci quand meme pour votre aide et pardon de ne pas pouvoir ajouter un "resolu" a votre forum !!!

A bientot.

[AlainTech]

Si ce n'est pas résolu et que tu ne comptes pas continuer dans cette direction, tu peux choisir "Mettre Délestage" dans "Outils de la discussion" au dessus du premier message.