[XL-2003] Detecter MAJ via lien Excel 2003

[jd020674]

Bonjour,

Je travaille avec Excel 2003. J'ai un fichier central avec 1 feuille avec x liens et je souhaite savoir, en VBA si l'un au moins des liens à mis a jour ou non le fichier central

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Macro Feuil1
Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.feuil1change
End Sub
 
Macro Workbook
Dim modifFeuil1 As Boolean
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim DateRevision1 As String
DateRevision1 = Mid(Sheets("Feuil1").Range("A2").Value, 22, Len(Sheets("Feuil1").Range("A2").Value))
Application.EnableEvents = False
If modifFeuil1 = True Then
Sheets("Feuil1").Range("A1").Value = "Révision R-1 le " & Chr(13) + Chr(10) & DateRevision1
Sheets("Feuil1").Range("A2").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy") & " à " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & " par " & Environ("username")
End If
Application.EnableEvents = True
End Sub
 
Public Sub feuil1change()
modifFeuil1 = True
End Sub

Ca fonctionne impec si je tape directement une modif dans la feuil1 et que je quitte Excel.

Par contre, si j'ouvre, que je réponds oui pour la mise a jour du fichier via les liens, la mise a jour se fait mais elle n'est pas detectée et du coup mes cellules A1 et A2 ne sont pas mises à jour.

Pouvez vous me donner un petit coup de main SVP

Merci et meilleurs vœux pour 2012

Jack