Discussion :

[touche_a_tout]

Bonsoir,
A la fin d'un code produisant une variable string, je voudrais la transfromer en fichier .txt.
J'ai noté quelques indications de l'aide VBA:

La syntaxe de la méthode Write comprend les éléments suivants :
object.Write(string)
object Correspond toujours au nom d'un objet TextStream.
string Le texte à écrire dans le fichier.
L 'objet TextStream est remplacé par un espace réservé de variable
représentant l'objet TextStream renvoyé par l'objet FileSystemObject.
Dans le code [donné comme exemple] suivant, a correspond à l'objet TextStream renvoyé par la méthode CreateTextFile sur l'objet FileSystem.
Je crois avoir suivi ces indications dans le bout de code suivant:

Code :

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

1
2
3
4
Set fich_texte = CreateObject("Scripting.FileSystemObject")
    Set mon_txt = fich_texte.CreateTextFile("e:\fichiertGED.txt", True)
    mon_txt.Write (mes_gedcoms)
    mon_txt.Close

Cependant j'ai le message d'erreur à propos de la ligne 3: "Argument ou appel de procédure incorrect".
Précisions: fich_texte et mon_txt sont déclarées comme objets. Selon l'aide de VBA on peut initialiser (set variable = ...) une variable objet avec à peu près n'importe quel objet. J'ai choisi 2 des WorkSheets de mon classeur, c'est peut-être l'origine de l'erreur ?
Je me réfère à cette note s.v. "objet, type de variable": "Une variable déclarée comme Object est suffisamment flexible pour contenir une référence à n'importe quel type d'objet, mais la liaison à l'objet désigné par la variable est toujours tardif (liaison au moment de l'exécution). Pour obtenir une liaison précoce (liaison au moment de la compilation), attribuez la référence d'objet à une variable déclarée avec un nom de classe spécifique."
J'avoue que j'ignore cette distinction sur la liaison et la notion de classe.
Merci de vos éclaircisssements.
Cordialement
Pierre

[SfJ5Rpw8]

Bonsoir,
Enlève les parenthéses en ligne 3...

[touche_a_tout]

Bonsoir,
Merci.
J'ai fait la correction mais j'ai obtenu le même message d'erreur. Que se passe-t-il ?
Merci d'avance.
Cordialement
Pierre

[kiki29]

Salut, à lire et assimiler : Manipulation des fichiers en VBA

[touche_a_tout]

Bonsoir,
J'ai lu mais ça dépasse ma capacité d'assimilation, désolé. Avant ce soir je ne connaissais aucun des éléments mis en jeu dans ce tutoriel.
Merci tout de même
Cordialement
Pierre

[Philippe Tulliez]

Bonjour,

Je me réfère à cette note s.v. "objet, type de variable": "Une variable déclarée comme Object est suffisamment flexible pour contenir une référence à n'importe quel type d'objet, mais la liaison à l'objet désigné par la variable est toujours tardif (liaison au moment de l'exécution). Pour obtenir une liaison précoce (liaison au moment de la compilation), attribuez la référence d'objet à une variable déclarée avec un nom de classe spécifique."
J'avoue que j'ignore cette distinction sur la liaison et la notion de classe.

A lire Early ou Late Binding

[SfJ5Rpw8]

Bonjour,

j'avais pas vu cela :

...
Précisions: fich_texte et mon_txt sont déclarées comme objets. Selon l'aide de VBA on peut initialiser (set variable = ...) une variable objet avec à peu près n'importe quel objet. J'ai choisi 2 des WorkSheets de mon classeur, c'est peut-être l'origine de l'erreur ?
...

comment nous déclare tu ces variables ... ? pense à mettre des codes plus complets les déclarations de variables font parties du code...!


tu parle de WorkSheet ?

Selon l'aide de VBA on peut initialiser (set variable = ...) une variable objet avec à peu près n'importe quel objet

n'interprète tu pas mal cela ? si par exemple l'on parle de véhicule cela veut dire que l'on peu écrire :

Code :

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

1
2
3
set Vehicule = voiture
ou 
set Vehicule = moto

mais l'on ne peu pas faire ce que tu semble faire :

Code :

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

set voiture=moto

donc pour déclarer tes objets tu fais

Code :

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

Dim fich_texte as object

[touche_a_tout]

Bonjour et merci à bbil,
J'avais effectivement le sentiment d'avoir une "interprétation très libre" de l'aide de VBA et depuis j'ai décidé de fabriquer, pour m'y référer, 2 petits fichiers texte que je place dans le même répertoire que le classeur Excel contenant le code.
Ces 2 variables sont déclarées comme "object" puis on a, juste après la ligne sub..., les affectations:

Code :

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

1
2
3
4
5
 Public GED As String, ligne As Integer, fich_texte As Object
Public mon_txt As Object
 
Set fich_texte = essaitxt1.txt
Set mon_txt = essaitxt2.txt

.

Mais VBA considère ces deux noms de fichiers comme des variables non déclarées et si je les fais précéder du path, VBA réagit au backslash et dénonce une erreur de syntaxe. J'ai toujours eu des problèmes avec les pathnames complets (mais c'est une deuxième question; on ouvre une nouvelle discussion ?). Si on les met entre parenthèses, c'est le deux-points qui déclenche le message d'erreur.
Depuis, j'ai lu le doc Manipulation des fichiers en VBA plein d'exemples de déclarations de variables objets mais je vois mal comment les appliquer dans mon cas. Bref je patauge. Alors que je m'efforce de réviser tout mon code en fonction de la vingtaine de conseils que j'ai reçus dans la discussion précédente; je suis mal récompensé
Encore merci et cordiales salutations
Pierre

Merci Philippe Tulliez.
je vais tester ces diverses possibilités dans mon code et donnerai des nouvelles.
Cordialement
Pierre

[Igloobel]

Bonjour,

kiki29 ta donné une adresse de tutoriel à étudier.

tu as dans le chapitre : II-B-2. Ecriture

L'écriture dans un fichier ouvert en mode Output ou Append est assurée par la fonction Print #.

Exemple :

Code :

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

1
2
3
4
5
6
Dim intFic As Integer
 
intFic = FreeFile
Open "D:\essai\monfichier.txt" For Output As intFic
Print #intFic, "Une ligne"
Close intFic

L'appel de Print # place automatiquement VbCrLf à la fin de la ligne à chaque appel.

Rappel : En mode Output, le contenu du fichier est écrasé. Si vous souhaitez ajouter votre texte en fin de fichier, utilisez le mode Append.

Je pense que c'est possible à appréhender et à adapter

Bonne journée

[SfJ5Rpw8]

Bonjour et merci à bbil,
J'avais effectivement le sentiment d'avoir une "interprétation très libre" de l'aide de VBA et depuis j'ai décidé de fabriquer, pour m'y référer, 2 petits fichiers texte que je place dans le même répertoire que le classeur Excel contenant le code.
Ces 2 variables sont déclarées comme "object" puis on a, juste après la ligne sub..., les affectations:...

ton premier code était bon il manquait juste la déclaration des variables objects...

reprends ton premier code avec les déclaration de ton dernier code ...

[touche_a_tout]

Bonjour,
Je vous remercie tous de vos contributions que j'ai presque toutes examinées de près mais j'ai une question. comment dire, préalable: Comment fait-on pour clore une discussion qui n'a pas résolu le problème posé ?
Car je sais très bien comment créer un fichier texte à partir d'une feuille Excel: j'en tire un fichier Word (que je dois de toute manière retoucher pour en faire un gedcom aux normes) et je le sauvegarde au format texte seul. Donc pourquoi me colleter avec des processus qui me dépassent ?
Pour moi, le débat est clos. Je suis reconnaissant à ce forum et admiratif devant la qualité de ses intervenants. Je reviendrai si l'occasion se présente.
Cordialement
Pierre

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 SaveAsName = "allged" & Time & ".doc"
FichierTxt "C:\MyTxt\" & Replace(SaveAsName, ":", "-"), GED
End Sub
 
Sub FichierTxt(Fichier, TXT)
Set Fso = CreateObject("Scripting.FileSystemObject")
Set NewFichier = Fso.OpenTextFile(Fichier, 2, True)
NewFichier.Write TXT
NewFichier.Close
Set NewFichier = Nothing
Set Fso = Nothing
End Sub