fonction left et API

[pascal_bidouille]

Bonjour,

J'ai un code utilisant la fonction left.
Il fonctionne bien sur mon PC car j'ai déclaré la librairie microsoft windows common controls 6.0 dans les références.
Mais cette librairie est dans le profil utilisateur. Du coup il y a une erreur de compilation lorsque quelqu'un d'autre utilise la macro sur un autre PC.
J'ai cru comprendre qu'il faut faire une déclaration dynamique...

J'ai tenté cela :

Private Declare Function left "Comctl32" alias "Left" (ByVal str As String, ByVal Length As Integer)as String

mais sans succès.

Merci

 

[tototiti2008]

Re : fonction left et API

Bonjour Pascal_bidouille,

Il y a une fonction Left existant nativement en VBA, sans passer par une API
Peux-tu nous expliquer pourquoi tu utilises une API ?

 

[pascal_bidouille]

Re : fonction left et API

En fait je viens de trouver le pb.
Il venait bien de la librairie microsoft windows common controls 6.0 mais la cause était différente.
En fait j'avais à l'origine ajouté la librairie car j'utilisais un listview avec .view = lvwreport

Le problème est que sur l'autre PC il ne trouve pas la librairie et bizarement me faisait des erreur de compilation sur les fonction Left et UCase.
Au final, du fait qu'il ne trouve pas la lib elle apparait dans les ref en missing .... mais toujours cochée.
En la décochant : plus de pb avec Left et UCase.
Et j'ai résolu mon pb avec .view = lvwreport en remplaçant par .view = 3

Merci