Modifier code pour chercher classeur sur c

bonjour a tous et toutes

j'ai ce code qui fonctionne très bien, mais comme je fais évoluer le classeur, je voudrais que le code soit modifier pour aller chercher, le contenu des classeurs sous c:

Private Sub UserForm_Initialize()
    Me.ListBox1.Clear
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name = "plomberie" Or Sh.Name = "électricité" Or Sh.Name = "carrelage" Or Sh.Name = "SDB" Or Sh.Name _
        = "Plâtrerie" Or Sh.Name = "divers" Or Sh.Name = "Parquet" Or Sh.Name = "prestation" Then
            Me.ComboBox1.AddItem Sh.Name
        End If
    Next
    ListBox1.ColumnCount = 9
    ListBox1.ColumnWidths = "60;80;250;60;40;40;40;40;40;40"
    Me.Label15.Caption = " Recherche d'articles"
End Sub

ce sont les mêmes noms au classeurs que j'ai donner comme les feuilles maintenant sauf que j'y ai rajouter 2 autres

voici le classeur test

https://www.cjoint.com/c/GGziyGT3Pb6

voici le chemin pour trouver les classeurs C:\Facturation\articles

merci d'avance

Bonjour,

voici un exemple trouver sur ce lien

https://www.excel-downloads.com/threads/nouveau-code-pour-application-filesearch.153773/

je l'ai testé sur xl2010 et cela fonctionne bien

bonssoir sabV

ce n'est pas cela que je cherche

je cherche pas a ouvrir le classeur sur c: mais une fois la sélection faite dans la combox envoyer le contenu dans le listbox

comme le fait le classeur joint, mais celui la a ses feuilles en onglet hors je voudrais pouvoir mettre ses onglets sur c:

et avoir le contenu de chaque classeur dans la lisbox

veut-tu dire enregistrer la feuille choisi dans le répertoire C ?

edit: désolé, je crois que je n'ai rien compris à la question.

bonjour sabV

as tu ouvert le fichier exemple pour voir de quoi je parles

car les 2 onglets "plomberie" et "prestations" qui sont dans ce classeur devrait etre sur c: et fonctionner pareil

Bonjour grisan29,

en supposant que les fichiers plomberie.xlsx et prestation.xlsx sont enregistrer dans le même répertoire que le fichier du UserForm,

et que la source de cellule est nommée rng sur chacun d'eux.

j'ai réussi à lire les données mais ceux-ci sont dans le mauvais ordre.

j'ai essayé de les retourner avec application.Transpose mais cela ne fonctionne pas.

j'espère qu'une bonne âme se penchera sur ce problème.

bonsoir SabV

merci de ta réponse et exemple

mais dans le code du sub essai() tu m'as mis toutes les lignes "a adapter", mais je dois quand même pas y mettre le nom de mes 10 classeurs

les 10 classeurs sont bien comme ceux que tu as retourner et sont dans le dossier "articles" comme dans REP ou j'ai changer le chemin

le noms des classeurs est dans le menu déroulant de la combobox

Sub essai()
Dim Fich As String, LireCellule As String, rep As String, FeuilSource As String, Feuil_cellule_destination As String
'rep = ThisWorkbook.Path & "\" 'à adapter
rep = "C:\Facturation\articles"
'Fich = Ws.Name & ".xlsx" 'à adapter
Fich = "plomberie.xlsx"
'FeuilSource = Ws.Name 'à adapter
'LireCellule rep, Fich ', FeuilSource 'à adapter
End Sub

et de plus c'est ce code qu'il faut modifier pour aler sur c: chercher les feuilles

Private Sub UserForm_Initialize()
    Me.ListBox1.Clear
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name = "plomberie" Or Sh.Name = "électricité" Or Sh.Name = "carrelage" Or Sh.Name = "SDB" Or Sh.Name _
        = "Plâtrerie" Or Sh.Name = "divers" Or Sh.Name = "Parquet" Or Sh.Name = "prestation" Then
            Me.ComboBox1.AddItem Sh.Name
        End If
    Next
    ListBox1.ColumnCount = 9
    ListBox1.ColumnWidths = "60;80;250;60;40;40;40;40;40;40"
    Me.Label15.Caption = " Recherche d'articles"
End Sub

le fichier que je mets ci dessous est du mêm type que l'autre mais a base de listview et c'est de celui la que je fais l'essai a base de listbox plus passe partout, mais ce classeur bug aussi a la ligne ou est marqué transpose

bonjour SABV

merci pour ton implication et ton aide j'ai fini par trouvé comment faire