recuperer données d'une feuille excel dans une listbox sans ouvrir le classeur

[bichon]

Re RE RE a tous les fou d'excel
Voici Voila j'ai une listbox qui contient des classeurs que l'on peut ouvrir avec un bouton controle
et j'ai un autre bouton avec lequel j'aimerai pouvoir recuperer des données dans ces feuilles
sans si possible ouvir le classeur et copier ces données dans une listbox d'une autre userform
les données de la premiere listbox que lon va appelé un listbox1 se font comme ceci

Dim VarDerLigne As Integer
Dim VarPlageList As String
VarDerLigne = Sheets("Archives").Range("A65536").End(xlUp).Row
VarPlageList = Sheets("Archives").Range("A5:A" & VarDerLigne).Address
ListBox1.RowSource = "Archives!" & VarPlageList
End Sub

quoi vous dire d'autre sinon que jai debuter un code mais qui tres banal le voici

Dim i As Integer
For i = 1 To Optbase.ListBox1.ListCount
Optbase.ListBox2.List = Range("D5").Value
Next i

la userform ou je veux recuperer ces données s'apelle optbase
et voila si vous souhaiter plus d'infos tenez moi au courant
merci encore

 

[@+Thierry]

Bonsoir JP,


Heuh à cette heure quand tu arrives, je dfinis au bureau donc pas beaucoup de temps...

Soit tu utilises cette fameuse macroXL4 qui permets de lire dans les fichiers fermés... Faire une recherche dans ce forum à "GetValue"...

Soit tu as des fichiers hyper bien struturés (condition sine qua non) et tu fais écrire le vers le fichier lien par VBA.

Exemple de Structure :
Tous les classeurs sont dans un même répertoire :

C:\Mes Documents\Mes Classeurs\Mes Fiches

Tous tes classeurs ont un noM structuré
File0001.xls

Exemple de Code

FileNumber = ListBox1 '(listbox alimentée avec "0001, 0002, 0003... etc"
Suite = ".xls"
Chemin = "C:\Mes Documents\Mes Classeurs\Mes Fiches\"

With Sheets("Collection")
.Range("A1").Formula = "=[" Chemin & FileNumber" & Suite]Feuil1!A1"
.Range("A2").Formula = "=[" Chemin & FileNumber" & Suite]Feuil1!A1"
.Range("A3").Formula = "=[" Chemin & FileNumber" & Suite]Feuil1!A1"
.Range("A4").Formula = "=[" Chemin & FileNumber" & Suite]Feuil1!A1"
.Range("A5").Formula = "=[" Chemin & FileNumber" & Suite]Feuil1!A1"
'etc...
End With

....
LisboxRecupDonnée.RowSource = "Collection!A1:A5"

............

Enfin voilà mon idée... Maintenant si tes classeurs sont en vrac (pas de même structure... Alors ce sera totalement plus compliqué.


Bonne Soirée
@+Thierry

 

[@+Thierry]

OUps il faut lire : (fatigué moi !)


Soit tu as des fichiers hyper bien struturés (condition sine qua non) et tu fais écrire le vers le fichier lien par VBA.


Soit tu as des fichiers hyper bien struturés (condition sine qua non) et tu fais écrire le LIEN vers le fichier par VBA.

@+Thierry