Pipou91
Messages postés4Date d'inscriptionlundi 17 septembre 2007StatutMembreDernière intervention 2 décembre 2007
-
2 déc. 2007 à 10:10
Pipou91
Messages postés4Date d'inscriptionlundi 17 septembre 2007StatutMembreDernière intervention 2 décembre 2007
-
2 déc. 2007 à 21:40
Bonjour au forum et aux admins,
Malgré des echerches je ne trouve pas ce que je veux, donc je me permet de demander :
OS XP, Excel 2002
Je n'arrive pas à créer un fichier txt avec dedans une sélection , le fichier se crée mais j'ai eereur 54
Extait de mon code :
Sheets("txt").Select
Columns("A:A").Select
Selection.Copy
Open "C:\pcb.pcb" For Random As #1
"que dois-je mettre ici ????"
Close #1
Merci d'avance pour votre contribution, et bravo à ce site qui me sert de guide en permanence
Pipou91
Messages postés4Date d'inscriptionlundi 17 septembre 2007StatutMembreDernière intervention 2 décembre 2007 2 déc. 2007 à 13:54
Merci fsltp et explorateur pour ces réponses rapides.
Explorateur : j'avais trouvé ce lien mais je pense que je l'avais mal lu.
J'ai modifié le For Random As #1 par Ouput pour écrire et Input pour lire.
Cela marche avec une simple variable.
J'avance à petits pas, j'aime bien comprendre sans recopier bêtement.
Ce que je ne saisi pas c'est comment mettre les données de ma sélection dans une variable "toto"
Dim toto
Sheets("txt").Select
Range("A1:A500").Select
Selection.Copy
Open "C:\pcb.pcb" For output As #1
print #1, toto ' comment j'attribue les données de ma sélection à "toto" ?
Close #1
Pipou91
Messages postés4Date d'inscriptionlundi 17 septembre 2007StatutMembreDernière intervention 2 décembre 2007 2 déc. 2007 à 14:28
Rebonjour,
A force de manips je suis arrivé à ce que je voulais.
Merci pour votre aide.
Voici ma macro, il y peut être plus simple, en tout les cas cela fonctionne
Sub Fichier_txt()
' Macro2 Macro
Dim Ligne, i, toto
Range("A1").Select
Ligne = Sheets("txt").Range("A65536").End(xlUp).Row
Sheets("txt").Select
toto = Range("A1:A" & Ligne).Value
Open "C:\Documents and Settings\Pierre\Bureau\pcb.pcb" For Output As #1
For i = 1 To Ligne
Print #1, toto(i, 1)
Next i
Close #1
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 2 déc. 2007 à 20:51
Re,
Pense à bien déclarer le type de tes variables, c'est plus "propre" et lisible, car quand tu fais : Dim Toto,i,Ligne >> Variant, le mieux est "je pense"
Dim i As Integer
Dim Ligne As Long
Dim Toto As String
cela te "rajoute" 2 lignes de code, mais quand tu débug, tu sais dessuite ce que attend comme type ta variable...
Pipou91
Messages postés4Date d'inscriptionlundi 17 septembre 2007StatutMembreDernière intervention 2 décembre 2007 2 déc. 2007 à 21:40
Merci du conseil
Je n'ai pas encore assimilé les types de variables.
Si effectivement cela peut me permettre de debugger plus facilement je vais regarder de plus près comment cela se gère
A+
Pierre