Alimenter ListView avec données dans Classeur Fermé

[MuscatMimi]

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

 

[youky(BJ)]

Re : Alimenter ListView avec données dans Classeur Fermé

Bonjour VaucluseImmo,
voici un exemple , bien sur modifier le nom du fichier et nomonglet et autres
Bonne réussite

'les fichiers en m^me répertoire sinon indiquer le chemin
Dim Wb As Workbook
chemin = ThisWorkbook.Path & "\" 'renvoie le chemin de ce répertoire
fichier = "workbook 1.xls" 'ici nom du fichier source
Set Wb = GetObject(chemin & fichier)
For lig = 2 To Wb.Sheets("nomonglet").Range("D65536").End(3).Row
k = k + 1
    ListView1.ListItems.Add k, , Wb.Sheets("nomonglet").Cells(lig, 4)
    ListView1.ListItems(k).SubItems(1) = Wb.Sheets("nomonglet").Cells(lig, 5)
    ListView1.ListItems(k).SubItems(2) = Wb.Sheets("nomonglet").Cells(lig, 6)
    ListView1.ListItems(k).SubItems(3) = Format(Wb.Sheets("nomonglet").Cells(lig, 7), "###0.00")
Next
Wb.Close

 

[gilbert_RGI]

Re : Alimenter ListView avec données dans Classeur Fermé

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

Bonjour

voir ceci

pour le fichier fermé voir avec la méthode ADO

voir ici

bonne année 2010

 

[MuscatMimi]

Re : Alimenter ListView avec données dans Classeur Fermé

Bonjour Youky et Gilbert

Youky
Merci de ton aide

Je viens d'essayer ton code mais ça fonctionne pas
Voici ce que j'ai fais

Private Sub UserForm_Initialize()

 Dim Wb As Workbook
chemin = ThisWorkbook.Path & "\" 'renvoie le chemin de ce répertoire
fichier = "fichier fermé.xls" 'ici nom du fichier source
Set Wb = GetObject(chemin & fichier)
For lig = 2 To Wb.Sheets("Feuil1").Range("A65536").End(1).Row
k = k + 1
    ListView1.ListItems.Add k, , Wb.Sheets("Feuil1").Cells(lig, 1)
    ListView1.ListItems(k).SubItems(1) = Wb.Sheets("Feuil1").Cells(lig, 2)
    ListView1.ListItems(k).SubItems(2) = Wb.Sheets("Feuil1").Cells(lig, 3)
    ListView1.ListItems(k).SubItems(3) = Wb.Sheets("Feuil1").Cells(lig, 4)
Next
Wb.Close
End Sub

Mes données dans classeur fermé, sont en A2:E65536

Gilbert
Merci mes tes liens ,je connais et rien toruvé a mon soucis

 

[YANN-56]

Re : Alimenter ListView avec données dans Classeur Fermé

Bonjour Vaucluse immo,
aux participants et à ceux qui passeront par là.

Ci-joint un P'tit truc qui pourra peut-être t'aider...

Bonne fin de journée et Bon réveillon.

YANN

PS:
Modifier
For i = 1 To ActiveSheet.Range("A65536").End(xlUp).Row
Par
For i = 2 To ActiveSheet.Range("A65536").End(xlUp).Row

 

[gilbert_RGI]

Re : Alimenter ListView avec données dans Classeur Fermé

Bonjour Youky et Gilbert


Gilbert
Merci mes tes liens ,je connais et rien toruvé a mon soucis

pourtant avec un peu de volonté on y arrive 😀

Private Sub UserForm_Initialize()
Dim chemin As String
chemin = ThisWorkbook.Path
 With Me.ListView1
        With .ColumnHeaders
            .Clear
            .Add , , "NOM", 95
            .Add , , "Adresse", 100, lvwColumnCenter
            .Add , , "CP", 40, lvwColumnCenter
            .Add , , "Ville", 80, lvwColumnCenter
        End With
        '.CheckBoxes = True
        .Gridlines = True
        .LabelEdit = 1
        .View = lvwReport
        .FlatScrollBar = False    'True
    End With
     With Me.ListView1
        .ListItems.Add
            .ListItems(1).ListSubItems.Add , , Application.ExecuteExcel4Macro("'" & chemin & "\[fichierbd.xls]bd'!R2C1")
            .ListItems(1).ListSubItems.Add , , Application.ExecuteExcel4Macro("'" & chemin & "\[fichierbd.xls]bd'!R2C2")
            .ListItems(1).ListSubItems.Add , , Application.ExecuteExcel4Macro("'" & chemin & "\[fichierbd.xls]bd'!R2C3")
            .ListItems(1).ListSubItems.Add , , Application.ExecuteExcel4Macro("'" & chemin & "\[fichierbd.xls]bd'!R2C4")

    End With
End Sub

bonne fête

bon année 2010

 

[youky(BJ)]

Re : Alimenter ListView avec données dans Classeur Fermé

Bonjour tous,
For lig = 2 To Wb.Sheets("Feuil1").Range("A65536").End(1).Row
Vaucluse immo Remets le 3 comme j'avais mis . . .

 

[Pierrot93]

Re : Alimenter ListView avec données dans Classeur Fermé

Bonjour à tous

le début ici :

Macros et VBA Excel - Forum des professionnels en informatique

le mieux est tout de même de prévenir lorsque l'on pose une même question sur plusieurs forums... Enfin perso trouve ca plus correct...

@+

 

[MuscatMimi]

Re : Alimenter ListView avec données dans Classeur Fermé

Bonjour a tous
Meilleurs voeux pour cette nouvelle année

Youky
Merci de ton aide ton code correspond a ce que je recherche
Voici ce que j'ai fais

Private Sub UserForm_Initialize()
Dim m As Byte, i As Long, x As Long, k As Byte

'--Affiche quadrillage dans la ListView
'ListView1.Gridlines = True
'Gridlines.ForeColor = RGB(100, 0, 100)

With ListView1
    '--Entête
    With .ColumnHeaders
       .Clear
       .Add , , "P", 30 'titre de la colonne et largeur et alignement
       .Add , , "Compte", 80
       .Add , , "Date", 65, lvwColumnCenter
       .Add , , "Banque", 90
       .Add , , "Opération", 100
       '.Add , , "Libellé", 125
       '.Add , , "Débit", 55, lvwColumnRight
       '.Add , , "Crédit", 55, lvwColumnRight
       '.Add , , "N° Chéque", 55, lvwColumnRight
       '.Add , , "Solde Initial", 55, lvwColumRight
       '.Add , , "Solde Total", 55, lvwColumRight
       ''.Add , , "Total Débit", 55, lvwColumRight
       '.Add , , "Total Crédit", 55, lvwColumRight

    End With

 .View = lvwReport
 .FullRowSelect = True
 .Gridlines = True
        ' Chargement des données
 Dim Wb As Workbook
chemin = "F:\Mes Documents Cat\Formation logiciels\Excel\ListWiew Dévelloper.com\fichierFerme.xls" 'ThisWorkbook.Path & "\" 'renvoie le chemin de ce répertoire
'fichier = "fichierFerme.xls" 'ici nom du fichier source
Set Wb = GetObject(chemin)
For lig = 2 To Wb.Sheets("Feuil1").Range("A65536").End(3).Row
k = k + 1
    ListView1.ListItems.Add k, , Wb.Sheets("Feuil1").Cells(lig, 1)
    ListView1.ListItems(k).SubItems(1) = Wb.Sheets("Feuil1").Cells(lig, 2)
    ListView1.ListItems(k).SubItems(2) = Wb.Sheets("Feuil1").Cells(lig, 3)
    ListView1.ListItems(k).SubItems(3) = Wb.Sheets("Feuil1").Cells(lig, 4)
Next
Wb.Close
End With
End Sub

Maintenant pour aller plus loin

Dans ma ListView actuelle, au click j'affiche mes données d'une ligne de la ListView dans des Tbx
Est-il possible de Modifier les données d'une Ligne????,

Pour "Saisir des Données" "Interroger ma base "fichierFerme"
j'ai déja réaliser les usf
J'attend ton idée de code
Merci a l'avance

Merci a Gilbert et Yann pour leur contribution

Pierrot
Oui, j'ai mis le même fil sur Dévellopez.com
je pense pas que ce soit interdit, ça augmente les chances de réponses
ne crois-tu pas??,

 

[gilbert_RGI]

Re : Alimenter ListView avec données dans Classeur Fermé

hum !!!!!!!!

 

[YANN-56]

Re : Alimenter ListView avec données dans Classeur Fermé

Bonsoir VaucluseImmo, et à ceux qui passeront par là,

Pour ma part, j'utilise deux solutions:

1) J'ajoute à mes LisView un SubItem contenant le numéro de ligne du classeur source.
2) J'ouvre, à la demande, ce classeur et je rédige le contenu du TexBox par un Bouton.
(A noter que si ton USF est en "VbModeless" ,
tu peux directement écrire dans la feuille)
3) Je ferme le classeur source après l'avoir enregistré.

Deuxième solution avec la même procédure que ci-dessus

Sauf que je fais une recherche dans la feuille des Items ou SubItems choisis,
et je remplace les cellules de la ligne trouvée par les valeurs de TextBox1, 2, 3 et c.

Avec mes meilleurs voeux pour cette nouvelle année.

Yann

 

[BOISGONTIER]

Re : Alimenter ListView avec données dans Classeur Fermé

Bonsoir,

GetObject ne lit pas dans un fichier fermé. Il ouvre un fichier et le masque
(Fenêtre/Afficher)

JB