Discussion :

[Yoooo]

re bonjour

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 24 And Target.Row = 6 Then
sheets(3).Range("A1").Value = "Date de la dernière modification le " & Now
End If
End Sub

Grace à ce code si la cellule "X6" change dans la feuille 1 d'un fichier A, une date de modif apparait en "A1" dans la feuille 3 du fichier A
maintenant est-il possible qu'une cellule "X6" change dans la feuille 1 d'un fichier B et la date de modif apparait toujours en "A1" dans la feuille 3 du fichier A?

quelqu'un a t'il une idée de la solution?

[LeForestier]

si le classeur est ouvert
fichier A!feuille 3.range("A1").value = .....

A+

[ouskel'n'or]

Avec Application.run, tu devrais pouvoir lancer une macro qui fait ça sur ton fichier B. Regarde à run, dans l'aide.

[Invité]

RE Yoooo,

Sinon les 2 fichiers sont ouverts:

Sur la feuille 1 du classeur B copier ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 24 And Target.Row = 6 Then
Workbooks("A").Sheets(3).Range("A1").Value = "Date de la dernière modification le " & Now
End If
End Sub