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

grisan29

XLDnaute Accro
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
Code:
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
 

Pièces jointes

  • Classeur1test ouvrir feuille.xlsm
    18.2 KB · Affichages: 39
  • Carrelage.xlsx
    10.7 KB · Affichages: 44

Retraite8

XLDnaute Nouveau
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
 

Pièces jointes

  • grisan Classeur1test ouvrir feuille V3.xlsm
    31.9 KB · Affichages: 43

grisan29

XLDnaute Accro
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
 

Pièces jointes

  • Copie de grisan Classeur1test ouvrir feuille V3.xlsm
    30.7 KB · Affichages: 38
Dernière édition:

ChTi160

XLDnaute Barbatruc
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
 

Pièces jointes

  • Articles.zip
    39.8 KB · Affichages: 38

grisan29

XLDnaute Accro
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
Code:
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
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
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 !
VB:
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
 

Pièces jointes

  • Test Recup Noms Fichiers CmbB.xlsm
    31 KB · Affichages: 37
Dernière édition:

Discussions similaires