Discussion :

[vaucluseimmo]

Bonjour a tous

je cherche ,mais en vain, de pouvoir alimenter une ListView d'un classeur ouvert,avec
les données qui ce trouve dans un classeur fermé
Comment faire???,,

Nota
Pour une ListView dans classeur et données dans ce même classeur
ça je sais faire
Cordialement

[rvtoulon]

Slt,
je n'avais encore jamais chercher à transférer les données d'un classeur fermé, alors qui plus est dans une listview. C'était un bel exercice.
Tout d'abord j'ai commencé par lire et étudier le tuto de silkyroad :
http://silkyroad.developpez.com/VBA/ClasseursFermes/

ensuite j'ai cherché a en faire une application. Pour réaliser ce que tu veux faire je créée par le code une nouvelle feuille dans le classeur de réception de donnée dans laquelle je copie la feuille qui sert de référence à ma listview
j'insére les données dans ma listview et je supprime la nouvelle feuille

le code ci dessous fonctionne c'est une piste à explorer pour toi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Sub TestConnection_V1()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = "D:\Classeur2.xls"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Feuil1"
 
    Set Cn = New ADODB.Connection
 
    '--- Connexion ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=""Excel 8.0;HDR=NO"""
        .Open
    End With
 
    'Extended Properties=Excel 8.0 est utilisé pour les versions d'Excel 97, 2000 et 2002.
 
 
    '... la requête ...
 
'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
'insère une nouvelle feuille puis la nomme
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "RECUP"
 
    'Ecrit le résultat de la requête dans la cellule A2
   Sheets("RECUP").Range("A2").CopyFromRecordset Rst
 
For i = 1 To 3
UserForm1.ListView1.ListItems(i).ListSubItems.Clear
With UserForm1.ListView1.ListItems(i).ListSubItems
 
'Remplissage des colonnes 2 et 3 dans la 1ere ligne etc...
        .Add , , Sheets("RECUP").Range("A" & i + 1).Value
        .Add , , Sheets("RECUP").Range("B" & i + 1).Value
End With
Next
 
 
   '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
Application.DisplayAlerts = False
Sheets("RECUP").Delete
Application.DisplayAlerts = True
 
UserForm1.Show
 
End Sub

Vois comment l'adapter à ton cas.
Merci à Silkyroad pour ces excellents tuto
A+

EDIT: Comme dis dans le Tuto ne pas oublier de faire ceci:

Vous devez préalablement activer la référence Microsoft ActiveX Data Objects x.x Library pour utiliser les exemples présentés dans ce tutoriel.

Dans l'éditeur de macros:
Menu Outils.
Références.
Cochez la ligne "Microsoft ActiveX Data Objects x.x Library".
Cliquez sur le bouton OK pour valider.

x.x dépend de la version installée sur votre poste.


Certains exemples proposés permettent de manipuler les tables et nécessitent d'activer la référence Microsoft ADO ext x.x for DLL and Security.

[vaucluseimmo]

Bonjour rvtoulon
merci de ton aide

Je viens d'essayer, et j'ai une erreur
a la ligne en rouge

Code :

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

1
2
3
4
5
6
With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=""Excel 8.0;HDR=NO"""
        .Open
    End With

a+++++++++++++++++
cordialement

[rvtoulon]

Slt,
comme je te l'ai dit dans mon précédent message ce code fonctionne parfaitement chez moi.
J'ai suivi scrupuleusement les recommandations de Silkyroad dans son tuto dont je t'ai déjà donné le lien.
Je t'invite donc si ce n'est déjà fait à bien lire ce tuto.
Je n'ai pas assez d'expérience dans le travail avec des classeurs fermés pour te venir plus en aide, désolé.
D'autres personnes ici sont beaucoup plus compétentes que moi et t'aideront certainement.

A bientôt peut-être.