Ajouter des données à la fin d'un fichier

Contenu du snippet

je mais cette source pour pas que personne ne fasse la meme gaffe que moi
voici comment ajouter des données à la fin d'un fichier SIMPLEMENT

Source / Exemple :


Sub ajouter(fichier As String, donnees As String)
Dim fso, texte
Set fso = CreateObject("scripting.filesystemobject")
Set texte = fso.OpenTextFile(fichier, ForAppending, True)
texte.write donnees
'pour rester propre
texte.Close
Set fso = Nothing
Set texte = Nothing
End Sub

Conclusion :


c aussi simple

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.