Discussion :

[pastis.vi]

Bonjour à tous,

J'ai un fichier bourré de macros qui permet d'enregistrer des informations dans un autre fichier qui est la base de données (voir le fichier joint).
J'ai créé ce fichier sous windows 7 xl2007. Je souhaite utiliser ce fichier sur des ordinateurs ayant la même config.

Ma ListView semble poser problème lors de l'utilisation du fichier sur différents ordinateurs ayant la même config. Pour info, cette ListView (uniquement l'objet) a été copiée depuis un autre fichier.

Afin de pouvoir utiliser le fichier sans problème j'ai effectué les actions suivantes (sur l'ordinateur que je souhaite utiliser) :
- ajout de Microsoft Windows Common Controls 6.0 (SP6) en passant par Références-->Parcourir-->MSCOMCTL.OCX
==> la référence est bien visible à présent.
- ajout de Microsoft ListView Control 6.0 (SP6) en passant par les contrôles supplémentaires.


J'ai toujours mon problème de compatibilité, voici l'erreur affichée :
"Erreur d'exécution '-2147352571 (80020005)':
Impossible de définir la propriété ListIndex. Le type ne correspond pas."

Est-ce que mon fichier fonctionne chez vous ? (arrivez-vous à ouvrir la Userform?)
Savez-vous comment résoudre ce problème ? J'ai l'impression d'avoir épuisé mon stock d'idées pour une solution..

Merci beaucoup

[Daniel.C]

Bonjour,

J'ai exactement la même erreur, mais c'est normal. Je n'ai aucune raison d'avoir les informations que tu vas chercher dans le registre. Regarde l'aide sur "GetSetting".

[pastis.vi]

Bonjour Daniel,

Merci pour ta réponse.

EDIT: J'ai trouvé l'aide sur GetSetting, je ne comprends pas tout ce qu'il y est dit, mais j'ai l'impression que le GetSetting ne peut pas fonctionner sans avoir effectué un SaveSetting avant, est-ce exact ?

L'erreur que me donne Excel concerne ListIndex, cela a-t-il un rapport avec le GetSetting ?

ps: je ne pense pas que cela vienne d'un problème de code puisque mon fichier fonctionne sur mon pc actuel.

Pastis.vi

[Daniel.C]

C'est dans la macro :

Code :

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

Private Sub Userform_Initialize()

du userform Ajout à la ligne :

Code :

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

Ajout.LieuDetection.ListIndex = GetSetting("SaveValeur", "Lieu de détection", "Valeur Lieudetection")

En clair, il n'y a pas de clé de registre correspondante.

[pastis.vi]

Daniel, le fofo,

C'est bon, j'ai réussi à faire fonctionner mon fichier.
Comme il était indiqué dans l'aide GetSetting, si on utilise un GetSetting sans avoir fait avant un SaveSetting ça rend une valeur défaut.
Par conséquent, j'ai mis en commentaire la ligne

Code :

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

'Ajout.LieuDetection.ListIndex = GetSetting("SaveValeur", "Lieu de détection", "Valeur Lieudetection")

pour détecter l'erreur, c'est bien le cas.

Conclusion, il faut que je vérifie si GetSetting renvoie un défaut avant de demander un GetSetting.

Merci encore Daniel
pastis.vi