Problème avec listview [Résolu]

[Svenna]

Bonjour à tous,

Je précise que je suis débutante en VBA.

J'ai emprunter le modèle du ListView qui est sur le site à cette adresse là
http://silkyroad.developpez.com/VBA/ListView/
et vraiment il me convient très bien.
merci beaucoup d'ailleurs pour cette très jolie démonstration.

Il va donc me laisser la possibilité d'ouvrir un dossier pour trouver rapidement des fichiers.

Mon soucis est que si je le place dans un classeur vide il fonctionnera très bien, mais par contre mauvaise surprise si je le place dans mon classeur, où là il y a déjà pas mal de monde en code, j'ai un message :

Code :

1
2
Erreur de compilation
Type défini par l'utilisateur non défini.

...et je ne sais pas du tout ce que je dois lui définir ???


D'autre part, dans notre grande série " ce serait trop bien "

Est-il possible de lui définir un dossier bien précis plutôt que d'avoir à chercher le dossier dans la liste proposée....en l'occurence je souhaiterai qu'il ouvre directement un dossier qui a ce chemin :
C:\Facturation Cabinet

Mais enfin ce n'est pas le plus important il faut surtout que je puisse le faire fonctionner dans mon classeur, donc savoir ce que je dois lui définir

Voilà si je peux avoir une petite aide ce serait gentil.

[bbil]

sur qu'elle ligne de code l'erreur ..?

[Svenna]

Bonjour bbil

il s'arrête de suite sur :
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

[bbil]

Comment à tu mis le code dans ton nouveau classeur ... ? tu as bien mis un contôle listView1 ... sur ton userform..?

[Svenna]

En faite j'ai exporter le userform sur le bureau ainsi que le module, et ensuite je les ai importé, je pense toujours que c'est plus prudent de le faire ainsi.

Le module est le seul à se nommer "Moduel1" parce que les miens ont des noms précis.

Je ne sais pas ce que je pourrais te donner comme précisions ...plus précises :-) ?

[bbil]

ben le contrôle listView1... il y est bien sur ton userform... et le code qui provoque cette erreur est bien le code de cet userform..?



PS : pour le répertoire par défaut ... du browsefolder : il suffit de rajouter en 4° paramètre le répertoire initial :

Code :

1
2
 
 Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&, "c:\tmp")

[Svenna]

Oui c'est à dire que je n'ai absolument rien modifier puisque j'ai importé, de plus il n'y a pas un seul autre Listview dans mon classeur, donc il ne peut pas faire de confusion je pense.....mais c'est si complexe pour moi.
On ne peut rien faire du tout ???


Je note pour le répertoire par défaut merci beaucoup

[Svenna]

En tout cas le répertoire par défaut fonctionne super bien dans mon classeur vide, ce qui évidement me donne encore plus envie que tout cela fonctionne dans mon classeur principal.

bbil,est-ce que je peux t'envoyer ce classeur pour que tu puisses voir le bug concrètement ou pas du tout ?....j'ignore si ce genre de choses se fait vraiment alors je pause la question en chuchottant.

[bbil]

il faut cocher la référence "microsoft Windows common Controls 6.0 (SP6)"

[Svenna]

Yeeees !!! Merciiii bbil c'est super.

C'était ça alors !! ...j'aurai jamais trouvé toute seule.

J'ai dû l'importer il n'était pas dans la liste de "Références" dans mon classeur alors qu'il y est dans le classeur vide ....il y a comme des petite choses qui m'échappent

Tout fonctionne à merveille encore merci