akramenergie
XLDnaute Occasionnel
Bonjour,
J'ai commencer ma macro qui enregistre les données de EXCEL vers .txt voila le code
Private Sub CommandButton1_Click()
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\g218907\Bureau\Projet Jira\fichier.txt")
Nb_lig = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
For i = 1 To Nb_lig 'Pour écrire dans le fichier texte
MonFic.writeLine Worksheets("feuil1").Range("A" & i).Value 'Mettre write pour ne pas sauter à la ligne
Next i
Msg = "Écriture réussie dans fichier.txt"
MsgBox (Msg)
End Sub
sachons que j'ai pas une colonne j'en ai 4 je veux importer les 4 colonnes dans mon fichier .txt et séparer les différente données de chaque colonne par le nom de la colonne le resultat attendu est présenter dans le fichier txt en piéce jointe. Le fichier excel jointe représente les données a importer.
Merci d’avance pour votre aide
J'ai commencer ma macro qui enregistre les données de EXCEL vers .txt voila le code
Private Sub CommandButton1_Click()
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\g218907\Bureau\Projet Jira\fichier.txt")
Nb_lig = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
For i = 1 To Nb_lig 'Pour écrire dans le fichier texte
MonFic.writeLine Worksheets("feuil1").Range("A" & i).Value 'Mettre write pour ne pas sauter à la ligne
Next i
Msg = "Écriture réussie dans fichier.txt"
MsgBox (Msg)
End Sub
sachons que j'ai pas une colonne j'en ai 4 je veux importer les 4 colonnes dans mon fichier .txt et séparer les différente données de chaque colonne par le nom de la colonne le resultat attendu est présenter dans le fichier txt en piéce jointe. Le fichier excel jointe représente les données a importer.
Merci d’avance pour votre aide
