Coller dans un fichier texte

Signaler
Messages postés
30
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
13 juin 2008
-
Messages postés
30
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
13 juin 2008
-
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.

9 réponses

Messages postés
109
Date d'inscription
dimanche 18 décembre 2005
Statut
Membre
Dernière intervention
22 mai 2009

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-
Messages postés
109
Date d'inscription
dimanche 18 décembre 2005
Statut
Membre
Dernière intervention
22 mai 2009

c opentextFilE désolé...
Messages postés
30
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
13 juin 2008

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 ?
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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
Messages postés
30
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
13 juin 2008

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.......
Messages postés
30
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
13 juin 2008

oups, on doit déclarer :

Dim MyData As DataObject
Messages postés
109
Date d'inscription
dimanche 18 décembre 2005
Statut
Membre
Dernière intervention
22 mai 2009

mais de rien tu as trouvé tout seul....
ce n'est que mérité que tu y soit arrivé
bonne continuation !
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
19
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
Messages postés
30
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
13 juin 2008

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