Import/Export de fichier texte

[Paul_meri]

Bonjour à tous,
Je travaille sur une base de données ressemblant à un formulaire. Je dois pouvoir soutirer les informations de ce formulaire. L'opération inverse doit être réalisable également, c'est à dire remplir automatiquement le formulaire.

Pour cela, je passe par un fichier texte. Après de nombreux essais, je n'arrive pas à mettre en place le code qui permet d'exporter le contenu d'un fichier .xls vers un fichier texte, et le code pour importer les données d'un fichier texte vers le .xls non plus.

Pouriez-vous m'indiquer la démarche à suivre?

Je vous remercie

 

[Creepy]

Re : Import/Export de fichier texte

Bonjour le Forum, Paul,

Voici un exemple de code qui te permet de sauvegarder en format texte les 7 premières lignes de la colonne B.

Private Sub Btn_Xport_Click()
Dim lngHFile As Long
Dim Boucle As Integer
lngHFile = FreeFile
Open "c:\test.txt" For Append Shared As #lngHFile
    For Boucle = 1 To 7 Step 1
        Print #lngHFile, Trim(Feuil2.Cells(Boucle, 2).Value)
    Next Boucle
Close #lngHFile
DoEvents
MsgBox "Fichier sauvegardé avec succès !", vbInformation + vbOKOnly, "Succès..."
End Sub

Et voici l'inverse, ouvre le fichier txt et charge les informations dans des controles

Private Sub Btn_Mport_Click()
Dim Fichier As Variant, Quelle_Ligne As String, Texte As String, Numfile As Integer
Dim Compteur As Integer
With Myuserform
   .Lbl_FileFT.Caption = ""
   .Lbl_FileLic.Caption = ""
   .Lbl_NmrFT.Caption = ""
   .Txt_Version.Text = ""
   .Lbl_Traite.Caption = ""
   .Lbl_Complet.Caption = ""
End With
 
Numfile = FreeFile
 
Compteur = 1
Open "c:\test.txt" For Input As Numfile ' ouverture du fichier
    Do While Not EOF(Numfile) ' faire tant que pas à la fin du ficheir texte
        Input #Numfile, Texte
        Feuil2.Cells(Compteur, 2).Value = Texte
        Compteur = Compteur + 1
    Loop
Close #Numfile
MsgBox "Paramètres Chargés !", vbInformation + vbOKOnly, "Succès..."
End Sub

Désolé le code n'est pas commenté mais je n'ai pas trop le temps. Mais tu as tout ce qu'il te faut pour y arriver. Si tu ne comprends pas fait signe.

A+

Creepy

 

[Paul_meri]

Re : Import/Export de fichier texte

Merci Creepy,

j'ai compris le système et ca marche très bien maintenant.