Discussion :

[Passepartout007]

Bonjour,

J'ai une listview dans le qu'elle j'affiche des données filtré. j'ai 9 colonne dans cette listview et je voudrais extraire l'intégralité des 9 colonnes et des X lignes dans un autre fichier Excel. C'est à dire que j'obtiendrais un autre fichier avec en feuille1 un tableau avec les même en-tête et même ligne que ce que ma listview affiche.
le listview s'appel LVResut
j'ai bien essayer de tenter cela :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 Dim WkNouveau As Workbook, ShNouveau As Worksheet
 Set WkNouveau = Workbooks.Add
 Set ShNouveau = WkNouveau.Sheets(1)
 ShNouveau.Name = "Base"
 With ShNouveau
     .Cells(1, 1).Resize(LVResult.ListCount, 1).Value = LVResult.Item.list
 End With
End Sub

Mais cela ne fonctionne pas ..
si cela pouvais l'enregistrer à un endroits précis et le fermer automatiquement cela serais formidable.

Cordialement,
Passepartout007

[BDA53]

Bonjour Passepartout007,

Avant de répondre à ta demande, j'ai quelques questions à te poser pour mieux comprendre cette demande :

Quel est ton besoin avec cette liste ? Est-ce que tu récupères les données filtrées d'un autre fichier ?
Est-ce qu'il y a une autre macro qui serait en lien avec le résultat de ta liste ?
Que contient exactement la liste de ton programme : des nombres ? du texte ? Ou les 2 ?
Quelle est sa capacité (ex : 100 lignes, 9 colonnes) ?

Je me trompe peut-être mais j'ai l'impression que tu n'es pas obligé de passer par une liste pour récupérer les données filtrées et ensuite les insérer dans un nouveau fichier.

Merci d'avance pour les réponses à mes questions,
Cordialement,
BDA53

[Passepartout007]

Bonjour,

Actuellement la listview est alimenter à l'aide d'une macro assez complexe qui tris la base de données, qui est un tableau Excel de plus de 4200 ligne.
La listview peux donc avoir plus de 4200 ligne.
J'aimerais juste que ce qui est afficher dans la listview soit exportable vers un autre ficher quand l'on clic sur un bouton.
Il y a plusieurs type de colonne,
- des colonnes ou l'on retrouver des numéros
- des colonnes ou l'on retrouve du texte
- des colonne ou l'on retrouve des dates

Je ne veux pas que l'exportation se fasse à chaque fois c'est pour cela que je souhaite mettre cette commande sur un bouton.

Voila un peux la situation.
Cordialement,
Passepartout007

[BDA53]

D'accord je comprends mieux. Tu peux utiliser une boucle for sur les lignes et une boucle for sur les colonnes de ta listview.
Voici une proposition de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim WkNouveau As Workbook, ShNouveau As Worksheet
Dim ligne, colonne As Integer 
Set WkNouveau = Workbooks.Add
Set ShNouveau = WkNouveau.Sheets(1)
ShNouveau.Name = "Base"
 
For ligne = 1 to LVResult.ListCount
	For colonne = 0 to 8
		ShNouveau.Cells(ligne, colonne) = LVResult.ListItems(ligne).ListSubItems(colonne)
	Next colonne
Next ligne
 
End Sub

Est-ce que tu peux tester si cela fonctionne dans ton fichier excel ?

Je reste disponible pour tout complément d'informations sur ce commentaire,
BDA 53

[Passepartout007]

Bonjour,

Je suis en base listeview 1 1
donc la colonne indice 0 n'existe pas et la colonne indice 1 indique la deuxième colonne du coup le code me renvoi une erreur "Index out of bounds".

j'ai donc penser qu'en faisans cela :

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
Private Sub CommandButton1_Click()
Dim WkNouveau As Workbook, ShNouveau As Worksheet
Dim ligne, colonne As Integer
Set WkNouveau = Workbooks.Add
Set ShNouveau = WkNouveau.Sheets(1)
ShNouveau.Name = "Base"
 
For ligne = 1 To LVResult.ListItems.Count
    For colonne = 0 To 8
        If colonne = 0 Then
        ShNouveau.Cells(ligne, colonne) = LVResult.ListItems(ligne).ListSubItems
        End If
        If colonne > 0 Then
        ShNouveau.Cells(ligne, colonne) = LVResult.ListItems(ligne).ListSubItems(colonne)
        End If
    Next colonne
Next ligne
End Sub

Le code allait prendre la colonne 0 par défaux et donc plus pauser problème cependant il me renvoi l'érreur suivant : " Erreur définie par l'application ou par l'object sur la ligne :

Code :

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

ShNouveau.Cells(ligne, colonne) = LVResult.ListItems(ligne).ListSubItems

Il y a-t-il une solution ?
Cordialement,
Passepartout007

[BDA53]

Ah oui ça change un peu la donne sur la listeview haha
Il faut un indice à la propriété ListSubItems c'est pour ça que la macro te retourne une erreur à cette ligne

Code :

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

ShNouveau.Cells(ligne, colonne) = LVResult.ListItems(ligne).ListSubItems

Du coup dans le code si tu la remplaces par

Code :

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

ShNouveau.Cells(ligne, colonne) = LVResult.ListItems(ligne)

Est-ce que ça fonctionne maintenant ?