Detecter MAJ via lien Excel 2003
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
