Fonction si sauvegarde fichier alors cellule k1+1

Voila j'aurai aimé savoir s'il été possible de créer une fonction permettant d'ajouter +1 a ma cellule k1 a chaque sauvegarde du fichier

Merci d'avance

Bonsoir,

Qu'appelle-tu exactement par sauvegarde du fichier ?

l'enregistrement par le menu ? ou l'ouverture ?

Amicalement

Claude

Bonjour

Dans le même style mais cette fois dans l'objet ThisWorkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  With Sheets("Feuil1")     ' Feuille à définir
    .Range("k1") = .Range("K1") + 1
  End With
End Sub

Alt F11

Puis double clic sur ThisWorkbook

Bonne soirée

c'est koi l'objet thisworkbook

Bonjour

Après avoir fait Alt F11

Tu arrives dans l'éditeur VBA

et tu clic 2 fois sur ThisWorkbook

Bonne journée

JE JOINS LE FICHIER POUR ETRE PLUS CLAIR.

ENFET IL ME FAUT A CHAQUE SAUVEGARDE +1 A COTE DE CHAQUE CELLULE REV. SITUÉ EN HAUT DE CHAQUE ONGLETS OU PRESQUE AVEC LA DATE D'ENREGISTREMENT JUSTE EN DESSOU

ENFET FICHIER TROP GROS JE PEUT PAS LE JOINDRE DESOLE DONNÉ MOI UNE ADRESSE JE VOUS L'ENVOI

MERCI

Bonjour

Evites les majuscules

Très désagréable à lire et cela veut dire CRIER

Ton fichier n'est pas passé

Bonne journée