cellules externes fermé??

[robi-wane]

Je souhaite faire un suivi d'une base de données sous format excel.
Je souhaite lors de l'entrée d'un texte(TOTO) que certaines cases pointent vers le fichiers TOTO.XLS et de la même sorte si l'on change TOTO en TITI alors ces cases pointes dans le fichiers TITI. XLS

Je ne sais pas si je suis claire mais je vais essaye de faire mieux avec un exemple

dans la case A1 Dans la case B2

TOTO valeur de la cellule C4
dans TOTO.XLS feuil1


ET si l'on change la valeur de A1 Alors

dans la case A1 Dans la case B2

TITI valeur de la cellule C4
dans TITI.XLS feuil1

peut on d'une maniere simple resoudre Mon probleme

merci

 

[Myta]

Salut robi-wane

Macro à insérer dans le module de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.Intersect(Target, [A1]) Is Nothing Then

If Dir("C:\Excel\" & [A1] & ".xls") = "" Then 'Change pour ton répertoire
MsgBox "le fichier est introuvable!"
[B2] = ""
Exit Sub
End If

[B2].FormulaR1C1 = "=[" & [A1] & ".xls]Feuil1!R4C3"

End If

End Sub


Mytå