Récupérer des données dans un autre classeur

[maval]

Bonjour

Jai deux fichiers dans le même dossiers nommé "Classeurs1 et Classeurs2" Dans le classeur2 j'ai un formulaire avec combobox et listbox la combobox recherche le nom d'un département et la listbox affiche les noms des communes qui se trouve dans le département jusqu'ici tout va bien.

J'aimerai que lorsque je clique dans la listbox sur une commune avoir les références dans les textbox sur le même formulaire "Code Inssee, Code Postal ect.. ces références se trouvant dans l'autre fichier nommé "classeur1".

Ci joint mes deux fichier qui donne tous les détails

Je vous remercie d'avance

 

[maval]

Re : Récupérer des données dans un autre classeur

Re,

Personne a une idée?

 

[Staple1600]

Re : Récupérer des données dans un autre classeur

Bonsoir à tous

Personne a une idée?

maval
1) Bah, faut croire que non (pour le moment)
2) nous sommes samedi
3) en période de coupe Davis
4) c'est la saison des champignons
6) ne pas oublier ceci

2 – Tous les membres du forum répondent gracieusement aux questions.
Il n’y a donc aucune obligation de résultat et de délai.
Les mots URGENT, SOS, AU SECOURS sont donc à bannir.

 

[camarchepas]

Re : Récupérer des données dans un autre classeur

Bonjour ,

Proposition avec le classeur1 préalablement ouvert bien sur

Voici un code à placer dans le module du userform1

Sur l'événementiel click de la listbox1,
l'on recherche dans l'onglet département (Combobox1) , la commune(Listbox1) ,
une gestion erreur permet de signaler un département ou une commune non renseigné et de sortir proprement
si la commune est trouvée , alors on ce sert du nnuéro de ligne pour trouver les autres informations.

Remarque : La sortie par la croix du formulaire est une mauvaise habitude à ne pas donner au utilisateurs , autant prévoir un bouton

Private Sub ListBox1_Click()
Dim Commune As String, Département As String, Base As String
Dim Trouve As Range
Base = "classeur1.xlsm"
Commune = ListBox1.Text
Département = ComboBox1.Text
On Error Resume Next
Set Trouve = Workbooks(Base).Sheets(Département).Range("B:B").Find(Commune, lookat:=xlWhole)
If Err.Number Then MsgBox " Département non renseigné dans la base": Exit Sub
If Trouve Is Nothing Then MsgBox "Commune " & Commune & " du département " & Département & " non renseignée dans base": Exit Sub
On Error GoTo 0
With Workbooks(Base).Sheets(Département)
  'Code Insee
   TextBox1 = .Range("C" & Trouve.Row)
  'Code Postal
   TextBox2 = .Range("D" & Trouve.Row)
  'Structure intercommunale
   TextBox3 = .Range("E" & Trouve.Row)
  'Superficie (km²)
   TextBox4 = .Range("F" & Trouve.Row)
  'Population
   TextBox5 = .Range("G" & Trouve.Row)
  'Densité (hab./km²)
   TextBox6 = .Range("H" & Trouve.Row)
End With

End Sub

 

[maval]

Re : Récupérer des données dans un autre classeur

Bonjour

Et un grand merci pour ton aide exactement la recherche de code.

Remarque : La sortie par la croix du formulaire est une mauvaise habitude à ne pas donner au utilisateurs , autant prévoir un bouton

Cela est juste un oubli de ma part.

Si je peut abuser de ton temps pourrai ton faire la même chose avec le classeur fermer? si possible bien sur.

Je te souhaite un bon dimanche et merci encore.

@+

 

[grisan29]

Re : Récupérer des données dans un autre classeur

Bonjour Maval, camarchepas et le forum

maval as-tu vu le message que j'ai mis dans ton postprécédent https://www.excel-downloads.com/threads/listbox-en-fonction-du-choix-de-la-combobox.226218/

Pascal

 

[camarchepas]

Re : Récupérer des données dans un autre classeur

Re ,

La base de données n'est pas adaptée tel que pour l'exploiter en SQL,
donc , si il faut récupérer à chaque fois une copie de l'onglet département qui va bien pour faire une recherche en local , ça dévient bien plus compliqué que d'ouvrir en lecture la base en auto ,afin de l'avoir en arriere plan et d'effectuer les recherches comme présenté ci dessus.

en fermeture du classeur , l'on fermera la base , et donc ni vu ni connu

 

[job75]

Re : Récupérer des données dans un autre classeur

Bonjour maval, JM, camarchepas,

Si je peut abuser de ton temps pourrai ton faire la même chose avec le classeur fermer?

L'étude de classeurs fermés par la méthode ADO n'est utile que s'il y a de nombreux classeurs.

Autrement il est plus simple d'ouvrir le classeur puis de le fermer, c'est aussi rapide et ne pose pas de problème d'adaptation à la version Excel.

A+

 

[maval]

Re : Récupérer des données dans un autre classeur

Re, camarchepas, Job75

Je vous remercie beaucoup de vos conseils