XL 2010 renvoi valeur entre 2 fichiers VBA

[dev_co]

Bonsoir
Normalement cela devrait fonctionner ...mais bon ?
Dans le fichier "acheteurs" si je rentre ici pour exemple 17 ou 24 dans la col B en jaune cette valeur devrait aller s'inscrire dans le fichier "vendeurshd" en I4 ( nom : scan")
puis mettre en vert la cel avec 17 et OK en E
Mais là ça BUG ??
ci joint les 2 fichiers
J ene sais plus si le fichier "vendeurshd" doit être absolument ouvert ??

 

[Gael]

Bonsoir dev_co,
Je pense que le fichier doit être ouvert pour faire une mise à jour.
Par ailleurs tu fais appel à la feuille "2" qui n'existe pas.

En supposant que les 2 fichiers sont dans le même répertoire :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B11:B30")) Is Nothing Then

If Target.Count > 1 Then Exit Sub

rg = Target.Address
Col = Target.Column
rang = Target.Row
chemin = ActiveWorkbook.Path
'je mettrais le chemin
Workbooks.Open chemin & "\vendeurshd.xlsm"
ActiveWorkbook.Sheets(1).Range("I4") = Range(rg).Value
End If

Et chez moi ça fonctionne.

Gaël

 

[dev_co]

Bonsoir
Merci pour ta réponse
MAIS , si déjà ouvert ....? ça plante !!! car j'utilise dans un "change" cela veut dire que le fichier est déjà ouvert !!et dans le même rep

 

[Gael]

Avec un complément dans la macro on peut tester si le fichier est déjà ouvert.

Cf. fichier joint.

Gaël

 

[dev_co]

Bonsoir
J'ai juste mis un bout pour le Pb , sinon j'ai une fonction 'Fic ouvert' que je reprends si besoin car elle est universelle
J'ai fait ça pour la solution

With Application.Workbooks(Vendeurs).Sheets("TOUTES LES LISTES")
        .Range("I4") = Code
End With
(code=range(ad) ) qui est ad=target.adress

Voilà sujet clos ; encore merci