(résolu par l'excelent chti60)remplir listbox avec contenu classeur surc: a l'aide d'un bouton

[grisan29]

bonjour a tous et toutes
sur un userform j'ai une listbox que je voudrais remplir après le clic sur un bouton , du contenu d'une feuille qui est sur C:
j'ai ce code qui me dit que la feuille existe mais c'est tout

Private Sub CommandButton1_Click()
Dim LeFichier  As String
LeFichier = "C:\Facturation\articles\Carrelage.xlsx"
If Dir(LeFichier, vbNormal) > "" Then
MsgBox LeFichier & " existe"
Else
MsgBox LeFichier & " n'existe pas"
End If
End Sub

mais en plus je voudrais qu'il permette le remplissage de la listbox avec le contenu du classeur "carrelage"
bon je vous joint le fichier test
ainsi que la feuille qui est sur C:\Facturation\articles\Carrelage.xlsx

 

[Retraite8]

Bonjour grisan29, bonjour le forum,

Un essai qui utilise la Feuil2 (masquée). On peut utiliser n'importe quelle feuille, il suffit de renseigner correctement le code.


Joseph

 

[grisan29]

bonjour Joseph
merci beaucoup de ton exemple que je vais potasser ce soir
mais dans la réalité c'est beaucoup plus complexe
car j'ai 10 classeurs sous c:
le mieux serais une combobox pour choisir le classeur a ouvrir
je te retourne ton exemple sur lequel j'ai mis une combobox, mais le classeur ne doit pas être ouverte
je comprends pas pourquoi tu utilises une feuille tampon car dans le classeur destiné il n'y en pas besoin, il n'y a en tout qu'un classeur a 1 feuille , le reste est sous c:
ah oui tous les classeurs sont agencés pareil

 

[Retraite8]

Bonjour grisan29, bonjour le forum,

... je comprends pas pourquoi tu utilises une feuille tampon ...

C'est une des façons de lire dans classeur fermé (sans l'ouvrir) que j'ai trouvé simple.
Je regarde pour la suite.

Joseph

 

[ChTi160]

Bonsoir Pascal
Bonsoir le Fil ,Le Forum
Une approche pour ce qui est de la récupération des Noms des fichiers .
j'ai laissé les deux colonnes de la ListBox apparentes , le chemin sera ensuite masqué , mais permettra l’accès au fichier , puis a la feuille source .
puis viendra après la possibilité de sélectionner dans la ListBox le Fichier ou l'on doit récupérer les données .
voir le .zip ci joint , qui contient un exemple , il suffit d'ouvrir le Fichier "Test Recup Noms Fichiers"
Bonne fin de Soirée
Amicalement
Jean marie

 

[ChTi160]

Re
Une autre approche qui va chercher via ListBox 1 les données dans le Fichier sélectionné et les affiche en ListBox 2.
Bonne fin de Soirée
Amicalement
Jean marie

 

[grisan29]

bonsoir chti60🙂
merci de tes exemples mais le deuxième me vas je vais pousser le test au fichier de réception et reviens pour te dire plus mais ca devrai fonctionner
encore merci 🙂

 

[ChTi160]

Ok
N’hésite pas !
Bonne fin de soirée
Amicalement
Jean marie

 

[grisan29]

bonsoir chti60 🙂
magnifique ton fichier🙂 j'ai pu très facilement l'adapter un grand MERCI
Amicalement

 

[grisan29]

bonsoir a tous , a bebere et a chti160
je reviens avec le même classeur pour savoir si c'est compliqué d'enlever la listbox1 et la remplacer par une combobox, pour l'instant j'ai essayer de kle faire mais j'ai un bug incompatibilite avec listindex

Private Sub CB_feuilarticles_Click()
With UserForm1
  With .CB_feuilarticles
  'choix du chemin dans la lisbox
       For It = 0 To .ListCount - 1
       'si oui ou non la sélection est activée
              If .Selected(It) = True Then <===================ici
                           'alors le chemin est celui choisi
                         Str_Chemin = .List(.ListIndex, 1)
                        
              Exit For
              End If
    Next It
  End With
End With

 

[ChTi160]

Bonjour Pascal
Bonjour Le Fil , Le Forum
En pièce jointe le fichier à mettre dans le même dossier que les Fichiers Sources .
Pas de boucle sur ComboBox !

Private Sub CB_feuilarticles_Click()
With UserForm1
  With .CB_feuilarticles
       Str_Chemin = .List(.ListIndex, 1)
  End With
End With Etc

Bonne Journée
Amicalement
Jean marie

 

[grisan29]

bonjour ChTi160 🙂
parfait 🙂 adaptation nickel sur le classeur
un grand MERCI 🙂