Menu

Gestion fichier .txt [Résolu]

MastJager 21 Messages postés jeudi 27 avril 2017Date d'inscription 13 mars 2018 Dernière intervention - 8 mars 2018 à 10:11 - Dernière réponse : MastJager 21 Messages postés jeudi 27 avril 2017Date d'inscription 13 mars 2018 Dernière intervention
- 8 mars 2018 à 13:20
Bonjour,

Je veux créer un fichier .txt qui inscrit mes valeurs de sorte à ajouter une tabulation entre chaque données de chaque colonnes mais à la colonne numéro 7 je voudrai faire une saut de ligne.

C'est sur ce dernier point que je suis bloqué.

Voici le code que j'ai réalisé, je pense que ma condition du If n'est pas la bonne.
    'Création du fichier
Open "D:\Users" & NomFichier & ".txt" For Output As #numfich

For Each c In Range("A2:G" & nbeVariable)

If Feuil6.Columns.Count < 7 Then
Print #numfich, c.Value & vtab
Else
Print #numfich, c.Value & vbCrLf;

End If
i = i + 1
Next c

Close #numfich


Merci d'avance
Afficher la suite 

Votre réponse

9 réponses

Meilleure réponse
f894009 13118 Messages postés dimanche 25 novembre 2007Date d'inscription 21 juin 2018 Dernière intervention - 8 mars 2018 à 10:51
1
Merci
Bonjour,

nbeVariable
est egal a combien?????????????????

Merci f894009 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24455 internautes ce mois-ci

MastJager 21 Messages postés jeudi 27 avril 2017Date d'inscription 13 mars 2018 Dernière intervention - 8 mars 2018 à 11:01
Pour moi le problème ce situe à cette condition : If Feuil6.Columns.Count < 7 Then

Mon fichier .txt me donne actuellement ces données :

x
x
x
x
x
x
x
x

Et je voudrais que le formatage soit le suivant :

x x x x x x x
x x x x x x x


Et oui effectivement elle peut varier de 2 à 76. Je suis débutant en VBA je pense que vous l'avez remarqué. Mais je donne mon maximum ! :).
f894009 13118 Messages postés dimanche 25 novembre 2007Date d'inscription 21 juin 2018 Dernière intervention - 8 mars 2018 à 11:06
Re,
Tout a fait Thierry, je vous arrange ca

    'Création du fichier
    Open "D:\Users" & NomFichier & ".txt" For Output As #numfich
        'boucle pour ecriture cellules Ax a Gx
        For n = 2 To nbevariable
            Print #numfich, Cells(n, 1), vbTab, Cells(n, 2), vbTab, Cells(n, 3), vbTab, Cells(n, 4), vbTab, Cells(n, 5), vbTab, Cells(n, 6), vbTab, Cells(n, 7)
            Print #numfich,      'ligne vide
        Next n
    Close #num
MastJager 21 Messages postés jeudi 27 avril 2017Date d'inscription 13 mars 2018 Dernière intervention - 8 mars 2018 à 11:30
Bonjour cela fonctionne parfaitement !

Je vous remercie énormément pour la solution et votre temps consacrés :)

Petite question est-il possible d'ajouter dans un UF un bouton permettant de lancer l'utilitaire "Enregistrez sous" de Windows ?
f894009 13118 Messages postés dimanche 25 novembre 2007Date d'inscription 21 juin 2018 Dernière intervention - 8 mars 2018 à 12:56
Re,

Sub Test()
    With Application.FileDialog(msoFileDialogSaveAs)
        .Show
        .InitialFileName = "Moi.doc"
        End With
End Sub
MastJager 21 Messages postés jeudi 27 avril 2017Date d'inscription 13 mars 2018 Dernière intervention - 8 mars 2018 à 13:20
Merci encore une fois j'ai mis le sujet en résolu ! :)
Commenter la réponse de f894009