chemin d'accès

[b.sounds]

Salut le forum,

J'ai essayé d'adapter une formule de Pascal76 pour une recherche de données sur un classeur excel.
Ce code me permet d'obtenir une liste dans une ComboBox.
Voilà le code:

Dim WSDonnees As Worksheet
Dim Plage As Range
Dim PlageNom As String
Dim A As Long

Private Sub UserForm1_Initialize()
End Sub

Private Sub ComboBox1_Change()

txtNom = ComboBox1.List(ComboBox1.ListIndex, 1)
txtPrénom = ComboBox1.List(ComboBox1.ListIndex, 2)
txtSociété = ComboBox1.List(ComboBox1.ListIndex, 3)


End Sub
Private Sub CommandButton1_Click()

Set WSDonnees = Workbooks("\\Samy\gestion stock\Son\emprunteurs.xls").Worksheets(1)

With WSDonnees

PlageImmo = .Range("A2:E" & .Range("A65536").End(xlUp).Row).Address

End With

UserForm1.ComboBox1.RowSource = ("U:\Samy\gestion stock\Son\emprunteurs.xls!") & PlageNom

With Sheets("Fiche de prêt")
.Range("B7").Value = ComboBox1.Value
.Range("D7").Value = TextBox2.Value
.Range("F7").Value = TextBox3.Value
.Range("I7").Value = TextBox4.Value
End With
Unload Me

UserForm2.Show

End Sub

Seulement ça coince au niveau de SetWSDonnees: il ne reconnait pas le chemin d'accès. Le fichier en question se situe sur le serveur.

Comment faire?

Merci à tous.

 

[G.David]

Salut
ton chemin d'accés est sur un serveur?
sinon pourquoi ne pas lui donner le chemin avec le lecteur directement?
Cordialement
G.David

 

[b.sounds]

Salut G.David,

comment ça?
je ne comprends pas ce que tu veux dire par "le chemin avec le lecteur directement"?
j'ai mis mon fichier en pièce jointe si tu veux y jeter un oeil.

Merci.

 

[G.David]

Euh oui

dans ton premier user form tu as un valeur poue WSdonnees
dans ledeuxieme tu en as une autre
et sur ton courrier tu en as une troisième qui doit ouvrir un classeur liè non?
le chemin de ce classeur lie n'a pas d'indication de lecteur mais juste deux slach essaies de donner le chemin complet surtout si c'est un lecteur réseaux j'ai remarqué que window et excel étaient capricieux(et c'est rien de le dire)
("c:\mon_repertoire\monsousrep\monclasseur.xls")
un truc dans ce genre
enfin en VBA je ne pourrais pas trop t'aider je mets les mains dans le cambouis mais je me salis plus que je ne répare
Cordialement
G.David