chercher des donnees dans un autre classeur

[titoupoulpe]

bonjour

je cherche à recuperer des donnees dans un "fichier client" à partir de la valeur situé dans une combobox d'un userform lancé depuis un autre classeur .

voici le code que j'ai tapé mais j'ai erreur variable objet ou variable de bloc with non definie

'pour remplir automatiquement adresse cp ville
Private Sub ComboBox1_Change()
Dim Nom As Range


With Application.Workbooks("fichierclient.xlsx").Worksheets("feuil1")
Set Nom = .Columns(10).Find(UserForm3.ComboBox1, LookIn:=xlValues, LookAt:=xlWhole)

UserForm3.TextBox2 = Feuil1.Cells(Nom.Row, 5) 'adresse
UserForm3.TextBox3 = Feuil1.Cells(Nom.Row, 6) 'cp
UserForm3.TextBox4 = Feuil1.Cells(Nom.Row, 7) 'ville
End With
End Sub

je vous remercie par avance pour l'aide.

 

[Papou-net]

Re : chercher des donnees dans un autre classeur

Bonsoir titoupoulpe,

Tu ne précises pas sur quelle ligne se produit l'erreur.

Alors, une proposition (pas pu tester):

With Application.Workbooks("fichierclient.xlsx").Feuil1
Set Nom = .Columns(10).Find(UserForm3.ComboBox1, LookIn:=xlValues, LookAt:=xlWhole)

UserForm3.TextBox2 = .Cells(Nom.Row, 5) 'adresse
UserForm3.TextBox3 = .Cells(Nom.Row, 6) 'cp
UserForm3.TextBox4 = .Cells(Nom.Row, 7) 'ville
End With
End Sub

A +

Cordialement.

 

[titoupoulpe]

Re : chercher des donnees dans un autre classeur

bonsoir papou-net
merci de ton aide et desole de ne pas avoir precisé la ligne
j'ai essayé ton code et j'ai une autre erreur : prepriete ou methode non geré par cet objet sur la ligne :
With Application.Workbooks("fichierclient.xlsx").Feuil1

cordialement

 

[Papou-net]

Re : chercher des donnees dans un autre classeur

Bonjour titoupoulpe,

Si tu pouvais joindre une copie allégée et non confidentielle des deux fichiers concernés, ça permettrait de mieux cerner le problème.

A +

Cordialement.

 

[titoupoulpe]

Re : chercher des donnees dans un autre classeur

bonjour papou voici mes 2 fichiers

 

[Papou-net]

Re : chercher des donnees dans un autre classeur

RE:

C'est bien l'idée que je me faisais du problème.

J'ai donc testé la modif suivante et ça fonctionne: les coordonnées afférentes au nom choisi s'affichent correctement.

'pour remplir automatiquement adresse cp ville
Private Sub ComboBox1_Change()
Dim Nom As Range


With Application.Workbooks("fichierclient.xlsx").Sheets(1)
Set Nom = .Columns(10).Find(UserForm3.ComboBox1, LookIn:=xlValues, LookAt:=xlWhole)

UserForm3.TextBox2 = .Cells(Nom.Row, 5) 'adresse
UserForm3.TextBox3 = .Cells(Nom.Row, 6) 'cp
UserForm3.TextBox4 = .Cells(Nom.Row, 7) 'ville
End With
End Sub

A +

Cordialement.

 

[titoupoulpe]

Re : chercher des donnees dans un autre classeur

je comprend pas j'ai toujours une erreur variable objet ou de bloc with sur la ligne :

UserForm3.TextBox2 = .Cells(Nom.Row, 5) 'adresse

 

[titoupoulpe]

Re : chercher des donnees dans un autre classeur

desole je viens de tout fermer et de reouvrir et ca fonctionne
merci beaucoup du coup de main

cordialement.

 

[Papou-net]

Re : chercher des donnees dans un autre classeur

RE:

Pourtant, je t'assure que chez moi ça marche.

Peut-être un problème de version d'Excel, moi je suis sur la 2010.

Je t'adresse donc une copie du fichier essais pour vérifier sur ton poste. N'oublie pas de remettre le chemin exact du fichier client que j'ai dû modifier pour mon test, dans la procédure UserForm_Initialize.

Cordialement.

 

[Papou-net]

Re : chercher des donnees dans un autre classeur

desole je viens de tout fermer et de reouvrir et ca fonctionne
merci beaucoup du coup de main

cordialement.

OK, je suis rassuré, et merci pour le retour d'info.

Bonne fin d'année.

Cordialement.