Salut,

j'y connais pas grand chose en VBA (seulement en VB tout court), mais je pense qu'il faut enregistrer le fichier pour que les modifications soient gardées.

Bonjour danny_coccinnelle,

C'est un problème de portée de variable :

Remplaces 'Dim modif as boolean' par 'Public modif as boolean'.

Le mieux est de placer cette instruction dans la section (General) d'un module de code.

Espérant avoir répondu.

Cordialement.

Je vous remercie pour vos conseils, mais ça ne fonctionne pas plus.

J'ai aussi essayé deux options :

- Placer les intructions dans My Woorkbook
- Placer les instructions dans Feuil2 (qui est celle où devrait apparaître ma fonction)

À chaque fois je précise ceci dans mes instructions :

Sheets("Feuil2").Range("O1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub

Pour que ma fonction apparaisse dans la cellule O1 de la feuille 2.

J'ai déjà appris un peu le VBA, mais très brièvement. Est-ce qu'il existe un lexique de la terminologie VBA? Ce serait sûrement utile pour mon apprentissage.

Gros merci à l'avance pour ceux qui me répondront!!

Hey! Hey!

J'ai finis par trouver la solution en placotant avec des amis qui travaillent en infos aussi.

Voici donc le VBA que je cherchais :

Dim modif As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Nom de la feuille").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy") & Format(Time, "hh:mm:ss")


End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub


Bonne journée

Cela m'intéresse aussi.

Merci beaucoup pour votre aide précieuse