Sauvegarde historique cellule excel

Question

Bonjour

Qui pourrait m’aider à créer un fichier texte sous Excel qui me permettrait d’enregistrer toutes les 2 mns le contenu d’une cellule.

cette cellule est mise à jour en temps réel et reçoit un flux d’informations via protocole DDE de Microsoft.

cs_Le Pivert · Answer

Bonjour,

Faire Alt F11 sur la feuille concernée pour accéder à l'éditeur.

Coller ce code qui se déclenchera a chaque changement survenant dans la cellule A1(à adapter)

Enregistrer sous: Classeur Excel prenant en charge les macros.

Le fichier texte se créera dans le même dossier que le classeur.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
    
' par Excel-Malin.com ( https://excel-malin.com )
On Error GoTo Erreur

Dim f As Integer
Dim MonTexte As String
Dim MonFichier As String

f = FreeFile

'texte à sauvegarder
MonTexte = Range("A1")

'Chemin et nom du fichier
MonFichier = ThisWorkbook.Path & "\fichiertexte.txt"

'sauvegarde
Open MonFichier For Append As #f
Print #f, MonTexte
Close #f

MsgBox "Le texte a été sauvegardé dans: " & MonFichier ' mettre en commentaire
Exit Sub

Erreur:
MsgBox "Une erreur est survenue..."
End If
End Sub

1 réponse