SauvegardeRésolu

Question

Salut,

J'ai cr&#233;&#233; un exe, je remplis des TextBox l'outil me calcule des donn&#233;es, mais comment faire pour enregistre tous les champs remplis et calcul&#233;s dans un autre format (exel ou Doc) et de pouvoir r&#233;cup&#233;rer ces informations plus tard.

Je voudrais aussi sauvegarder en utilisant deux TextBox remplis pr&#233;c&#233;demment.

Merci

cs_ITALIA · Accepted Answer

"pour nomm&#233; ma feuille" ca veut dire quoi ???

Si tu veut enregistrer des valeurs contenues dans tes TexBox tu faits:
MonFic.WriteLine Text1.text & "   " & Text2.text ' Ecriture d'une Ligne

It@li@

cs_ITALIA · Answer

Tu peux peut-&#234;tre utiliser un Fichier INI pour y stocker momentanement tes donn&#233;es..
Ou tout simplement un fichier TXT !

It@li@

lcastell · Answer

Ok pour un TXT, mais comment formuler tout &#231;a.

cs_ITALIA · Answer

Exemple pour ecrire dans un .TXT :

If ExistFile(App.Path & "" & "Flux.txt") Then  ' Si le Fichier Flux.txt Existe
    Kill (App.Path & "" & "Flux.txt") ' Je le Supprime
End If
 
Set FSys = CreateObject("Scripting.FileSystemObject") ' ReCr&#233;ation du Fichier Flux.txt
Set MonFic = FSys.CreateTextFile(App.Path & "" & "Flux.txt")
MonFic.WriteLine "Forza" & "   " & "Italia" ' Ecriture d'une Ligne
MonFic.Close ' Fermeture du Fichier

Public Function ExistFile(strPath As String) As Boolean ' Fonction Restant la Pr&#233;sence ou Non d'un Fichier


Dim fs As Object
Dim blnFExiste As Boolean


Set fs = CreateObject("Scripting.FileSystemObject")
If Not (fs.FileExists(strPath)) Then
  blnFExiste = False
Else
  blnFExiste = True
End If
ExistFile = blnFExiste
  
End Function

It@li@

lcastell · Answer

Ok masi si je veux utiliser des TextBox pour nomm&#233; ma feuille et pourvoir la r&#233;cup&#233;rer.

Merci.

Sauvegarde

5 réponses

Discussions similaires