Microsoft 365 Récupérer information à partir d'un autre classeur

[Daher Ali]

Bonjour le FORUM.

J'ai besoin de votre aide.
Mon classeur comporte 2 feuilles ( Liste Articles et Bon d'entrée )
Le bon d'entrée est remplis grâce à Un userform avec une textbox et Combobox. La saisie dans la textbox me permet de récupérer dynamiquement une Liste Articles dans la Combobox, lorsque le choix d'articles est fait je valide. Jusque là le travail est fait.
Je voudrais que la Feuille "Liste Articles" ne ce trouve pas dans un même classeur avec Feuille "Bon Entree" donc dans un nouveau classeur et que je puisse récupérer la Liste Article toujours dans le même userform du premier classeur et valider mon Bon Entrée.
Merci de m'aider svp

 

[_Thierry]

Re Bonjour

Euh, tout marche donc ? Donc ce n'était pas la peine de poster les fichiers si il n'y a pas de question ou de problème ? Ou bien je n'ai pas compris ?

Bon dimanche
@+Thierry

 

[Daher Ali]

Re Bonjour

Euh, tout marche donc ? Donc ce n'était pas la peine de poster les fichiers si il n'y a pas de question ou de problème ? Ou bien je n'ai pas compris ?

Bon dimanche
@+Thierry

Au fait j'ai expliqué et envoyé les fichiers pour que vous puissiez me dire si ma réflexion est bonne et que je n'aurai pas de problème après comme vous êtes expert dans le domaine. Si ça ne vous dérange pas me dire s'il y aurait une faille.
Merci beaucoup Thierry.

 

[_Thierry]

oK

J'ai testé, celà fonctionne, mais c'est un peu lourdingue d'envoyer la recherche dès le début de l'input d'un caractères :

J'ajouterais une condition :

    If TxtRecherche <> "" Then
        If Len(Me.TxtRecherche) >= 4 Then
          For Ligne = 2 To NbLigne
             If WS.Cells(Ligne, 2) Like "*" & TxtRecherche & "*" Then
                Me.Cont3.AddItem WS.Cells(Ligne, 2)
             End If
          Next Ligne
        End If
    End If

Pour qu'il ne réponde "que" ceci et pas avant 4 caractères saisis : (inutile "d'affoler" le système !!!)

Après pour ActiveSheet, je t'avais dit ce que j'en pensais...

Finalement tu as déjà ouvert manuellement le Workbooks("Articles.xlsx") donc oui plus besoin de le fermer par VBA si ce n'est pas lui qui l'ouvre...

Bon travail
@+Thierry

 

[Daher Ali]

Pour qu'il ne réponde "que" ceci et pas avant 4 caractères saisis : (inutile "d'affoler" le système !!!)

Très bonne idée oui j'opte pour cela Merciiiii

Finalement tu as déjà ouvert manuellement le Workbooks("Articles.xlsx") donc oui plus besoin de le fermer par VBA si ce n'est pas lui qui l'ouvre...

Au fait j'ai envoyé le fichier sans code d'ouverture juste pour que vous le visualiser. Sinon je préfère qu'il est une condition gérer si le classeur est ouvert je continue le code et si le classeur est fermé de l'ouvrir pour continuer le travail.