Discussion :

[ericdev67]

Bonjour,

j'ai le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Open chemin for append as cible#
Print #cible, environ ("username"), date
close #cible

Actuellement, je l'envoie vers un fichier .xls, mais dans la colonne A, ça me donne le environ(username"), quelques espaces et ensuite la date.

Question : Ne pourrais-je pas avoir en colonne A, le environ("username") et en colonne B, la date ?

Merci,
A+

[AlainTech]

Actuellement, je l'envoie vers un fichier .xls,

Rien compris...

Quel rapport entre l'écriture dans un fichier texte et un classeur Excel?

[ericdev67]

Merci AlainTech,

En fait, je souhaite récupérer le nom et la date d'ouverture d'un fichier excel.

Dans le forum, j'ai trouvé ce code qui envoie les infos vers un fichier .txt (exemple "log.txt")

J'ai essayé en faisant "log.xls" et ça fonctionne, le seul soucis est qu'il faut que je convertisse ensuite le fichier avec excel (Données/convertir) pour avoir en colonne A le nom, et dans la colonne B, la date.

Et je souhaitais savoir si je ne pouvais pas éviter la convertion en mettant directement dans le code : colonne A (username), colonne B (date)

Merci
A+

[ucfoutu]

Bonjour

Pas sûr d'avoir compris non plus !

S'il s'agit de récupérer dans un tableau Excel une donnée de ton fichier texte, le séparateur généralement utilisé est le point-virgule... donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Print #cible, environ ("username") & ";" &  date

[AlainTech]

Dans ce cas, les démarches doivent être:
Créer un classeur (une fois pour toute, "à la main").
Ouvrir ce classeur
Repérer la première ligne vide
Ecrire tes données dans les 2 premières cellules de cette ligne
Fermer le classeur (en le sauvant).

Pour toutes ces actions, une petite recherche sur le forum devrait te donner des pistes.

Petite info supplémentaire:
Ce n'est pas parce qu'on donne l'extension .xls à un fichier qu'il en devient automatiquement un classeur Excel

[ericdev67]

Bonjour AlainTech et ucfoutu,

Je sais pas toujours très clair.....Néanmoins, j'ai résolu mon problème : j'ai créé un code qui converti le texte exemple "eric 07/04/08" et met, colonne A "eric" et colonne B "07/04/08", c'est ce que je recherchais, mais je pensais qu'à la création de "print #cible....", je pouvais le faire directement....

Le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(13, 1), Array(24, 1)), TrailingMinusNumbers _
        :=True

Merci quand même,
A+ pour de prochaines aventures....