Ecrire en vba dans .txt

Bonjour,

Je suis d'accord avec les autres, écrire en simultanné dans un fichier
texte les informations que tu inscrit dans Excel, c'est presque impossible.

une suggestion :

Si tu dépose le code suivant derrière une feuille, tout ce que tu inscris
sur cette feuille sera répliqué dans un fichier texte situé dans le même
dossier que le fichier Excel.

Option Explicit

Const cteLecture = 1
Const cteEcrire = 2
Const cteAjouter = 8
Const cteRapport = "Rapport.txt"
'

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim objFSO As Object, objFichier As Object
    Dim Chemin As String
    
    Application.EnableEvents = False
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Chemin = ThisWorkbook.Path
    Chemin = Chemin & "\" & cteRapport
    
    If (objFSO.FileExists(Chemin)) Then
        Set objFichier = objFSO.OpenTextFile(Chemin, cteAjouter)
    Else
        Set objFichier = objFSO.CreateTextFile(Chemin, cteEcrire)
    End If
  
    objFichier.WriteLine Target.Value
    objFichier.Close
    
    Set objFichier = Nothing
    Set objFSO = Nothing
  
    Application.EnableEvents = True
  
End Sub

'

Cdt

Lupin

Cela est impossible tout simplement. (Par mais connaisense)

Merci. Y'aurait pas moyen avec un rafraichissement permanent du fichier .txt?

Tu ne peut pas voir en direct se que l'autre écrit sinon il vos des logiciel comme team wiewer pour voir l'écrant de la personne en temps réel

Team wiewer > https://www.teamviewer.com/fr/

En fait j'ai générer des codes aléatoires dans une colonne sur excel. Ensuite je les envoie dans un fichier .txt. Le pb c'est que j'aimerais voir les codes en direct sur le fichier .txt s'écrire en mm tps qu'ils s'ecrivent sur excel.

Je pense que ce coup ci j'ai été plus clair.

Merci encore pour l'aide.

Merci arlextra merci pour tes conseils.

Merci Lupin ca marche, tu m'enlèves une belle épine du pied.
Tampis pour le temps réel.