coller dans un fichier texte

Question

bonjours,
dans mon code j'ais réussi à copier les données de autoCAD, mais j'aimerais le coller dans un fichier texte type bloc-note qui se nomme maCommande... Et là blocage, j'ais même pas l'ombre d'une piste.
Merci pour vos post.

xaeris · Answer

piste :

tu enregistre chacune de tes lignes dans une variable
tu ouvre le fichier texte 
tu écrit ta donnée
et tu le fait pour toute les lignes...

ouvrir un fichier texte et écrire dedans 

set ofso = createobject("scripting.filesystemObject")
set fichier = ofso.opentextefil("chemin_de_ton_fichier", 8)

g = "chemin de ton fichier" 
fichier .Write(la_valuer_dans_laquel_tu_sauvegarde_les_donnes_AUTOCAD)
fichier.close

-xaeris-

xaeris · Answer

c opentextFilE désolé...

autocad53 · Answer

Le souci c'est que je ne peux jamais savoir le nombre de lignes que possède le fichier txt...
C'est pas possible de commander couper-copier-coller dans un fichier txt depuis vba Ecxel ?

mortalino · Answer

salut,

open "c:\chemin\fichier.txt" for append as #1
    print #1, "tes valeurs"
close #1

Avec la métode Append, aucunes données ne sont effacées, elles se rajoutent à la suite de ce que contenait ton fichier.
Est-ce bien ça que tu voulais ?

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

autocad53 · Answer

merci à vous deux d'avoir répondu...

open "c:\chemin\fichier.txt" for append as #1
    print #1, "tes valeurs"
close #1

ca je connaissait déja. Mais j'ais trouvé ça :

Dim iFile As Integer
Dim flux As String
Set MyData = New DataObject
    
    'collage des données issue du presse papier
    MyData.GetFromClipboard
    iFile = FreeFile
    Open "C:\MaCommande.txt" For Output As #iFile
    Print #iFile, MyData.GetText
    Close #iFile

ça marce d'enfer, allez y j'arive à coller même  la constitution de 1958 (à savoir, très très très....trop long)

pour copier, remplacer GetFromClipboard par SetFromClipboard

MERCI DE VOS REPONSE VOUS ETES SUPER.......

autocad53 · Answer

oups, on doit déclarer :

Dim MyData As DataObject

xaeris · Answer

mais de rien tu as trouvé tout seul....
ce n'est que mérité que tu y soit arrivé 
bonne continuation !

cs_MPi · Answer

Prend le temps de cliquer le bouton Réponse acceptée sur ton message qui répond à ta question...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

autocad53 · Answer

j'ais un problème avec se code :

http://www.vbfrance.com/infomsg_ECHEC-OUVERTURE-PRESSE-PAPIER_1153274.aspx

merci de vos réponses éclairées

Coller dans un fichier texte

9 réponses

Votre réponse

Discussions similaires