XL 2013 Problèmes macro refacturation (Code de Dranreb)

[an@s]

Bonjour à tous,

j'ai un code qui me permet en cliquant sur l'onglet RECAP de mettre à jour les données de la fenêtre ODA MATOS à partir de l'onglet MATOS.
hier après une mise à jour de windows le fichier ne fonctionne plus, et en cliquant sur l'onglet recap le message d'erreur que vous pouvez voir sur l'image ci-attachée s'affiche.

Merci pour votre aide

 

[job75]

Bonjour an@s,

Les codes de votre fichier ne sont pas de moi mais probablement de l'ami Dranreb.

A+

 

[an@s]

Bonjour Job,
Merci pour votre réponse, désolé je cru que c'était vous qui avais résolu cette problématique.
c'est la fin de moi et ce problème m'est arrivé ce matin et comme j'ai beaucoup de tâches à faire je perdrai beaucoup de temps pour le faire manuellement.
je ne sais pas si vous pouvez me donner un coup de main la dessus ou Dranreb que j'espère qu'il voit ce post.

Merci bien

 

[Dranreb]

Bonjour.
C'est dû à une mise à jour Windows qui a subitement rendu impossible la retransmission à une procédure secondaire d'un ParamArray vide.
Ce n'est pas très grave: il suffit de le tester, sur ce modèle là, lors de chaque appel à cette procédure:

If UBound(ColOrd) >= LBound(ColOrd) Then InterpréterParam ColOrd

Remarque: ce dispositif est ancien. Je l'ai remplacé depuis par une fonction Gigogne disponible dans un complément xlam, qu'il aurait suffi de réinstaller.

 

[an@s]

Bonjour Dranreb, Job, le forum

en rajoutant l'instruction que vous m'avez donné sur le post ci-dessus le problème n'est pas toujours résolu et m'affiche l'erreur que vous pouvez remarquer sur l'image ci-attachée

Merci pour votre aide

 

[Dranreb]

Qu'est ce que vous avez fabriqué ? Je n'ai pas dit de modifier quoi que ce soit dans la Sub InterpréterParam, seulement d'ajouter une condition devant ses invocations partout ailleurs.
Notez qu'une modification y aurait quand même été judicieuse: puisqu'on est de toute façon obligé de le tester à l'extérieur avant de l'appeler, ce n'est plus utile de le tester dedans.

 

[an@s]

Désolé mais je n'ai vraiment rien compris,
pouvez vous me renvoyer s'il serait possible le fichier avec la modification ?

Merci bien

 

[Dranreb]

Ce n'est quand même pas compliqué: Cherchez tous les 'InterpréterParam ColOrd' et mettez devant 'If Ubound(ColOrd) >= LBound(ColOrd) Then '. Si je vous renvoie le fichier il sera plutôt modernisé, avec la fonction Gigogne.

 

[an@s]

le problème est totalement résolu,
je vous remercie infiniment Dranreb