creer un fichier txt par lignes d'un fichier excel

[thetux07]

Bonjour a tous,
Je m'explique 🙂 :

j'ai une extraction excel qui comporte 1 colonne et un peu pres 100 lignes :

ligne 1
ligne 2
ligne 3
.......

et je voudrai créer un fichier texte pour chaque lignes :

ligne 1.txt, ligne 2.txt, ligne 3.txt

je ne sais pas si j'ai été tres claire :s
merci d'avance !!😀

 

[thetux07]

Re : creer un fichier txt par lignes d'un fichier excel

alors mon projet et de faire une extraction des noms de poste de travail dans l'AD, de créer un fichier par poste et d’insérer dans chaque fichier le code que j'ai mis plus haut. donc il me reste plus que la parti insertion du code.
En tout cas merci pour votre patience 😱

 

[MJ13]

Re : creer un fichier txt par lignes d'un fichier excel

Bonjour à tous

Tu peux utiliser un code de ce type pour ajouter à la feuille active un code issu d'un fichier txt.

Sub A_A_Copy_VB_Txt_In_ActiveSheet()
'attention sur le fichier .txt, rajouter une ligne au début vierge, sinon, il manque une ligne.

iajcode=Workbooks(ActiveWorkbook.Name).VBProject.VBComponents(ActiveSheet.CodeName).CodeModule.CountOfLines
If iajcode > 3 Then Exit Sub
Close
'Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
Open "C:\_VBA\Ouvre_Fichier_Activesheet.txt" For Input As #1
i = 1
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet. CodeName).CodeModule
Line Input #1, ligne$
While EOF(1) <> True
Line Input #1, ligne$
.InsertLines i, ligne$: i = i + 1
Wend
End With
Close
End Sub

 

[Staple1600]

Re : creer un fichier txt par lignes d'un fichier excel

Re, Bonjour MJ13

alors mon projet et de faire une extraction des noms de poste de travail dans l'AD, de créer un fichier par poste et d’insérer dans chaque fichier le code que j'ai mis plus haut. donc il me reste plus que la parti insertion du code.
En tout cas merci pour votre patience 😱

Pour la partie Active Directory
voir cet exemple (aisément transcriptible en VBA)


Pour l'insertion du code VBA
A l'exemple fourni par MJ13, j'ajouterai de mémoire qu'il me semble qu'il faille cocher dans les options de Sécurité
[x] Faire toujours confiance au projet Visual Basic
(voir ici pour les détails)

 

[thetux07]

Re : creer un fichier txt par lignes d'un fichier excel

bonjour a tous 🙂
j'ai ajouté le code et ça me met une erreur 400 🙁

 

[MJ13]

Re : creer un fichier txt par lignes d'un fichier excel

Re

Le mieux serait de fournir tes fichiers. Sinon, comme l'a dit Jean-Marie 🙂, il faut dans les options bien cachées, faire confiance au projet VBA.

 

[camarchepas]

Re : creer un fichier txt par lignes d'un fichier excel

Bonjour à Tous,

TheTux , selon ma compréhension de ce que tu veux faire , et une grande partie de l'art sur XLd est de décoder le vrai besoin du demandeur qui est le seul à avoir la vrai vision de ce qu'il veut faire ...

Donc , arrêtes moi , si je me trompe :

Créer des micros fichiers vb script personnalisés hors Excel, (Peut être appelé ensuite par un shell dans un .bat ou autre )

si c'est le cas , tu peux continuer à utiliser l'écriture dans un fichier texte, ensuite si besoin , tu auras juste à renommer le fichier

 

[thetux07]

Re : creer un fichier txt par lignes d'un fichier excel

oui tu as raison mj13
mon fichier est dispo la : 302 Found
merci pour votre aide