Sauvegarde historique cellule excel
AaronBaron
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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.
A voir également:
- Sauvegarde historique cellule excel
- Logiciel de sauvegarde gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Historique presse-papier android - Guide
1 réponse
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
