Discussion :

[07121984]

Bonjour à tous et à toutes,

Alors j'essaye de créer et écrire dans un fichier texte en vba. Le code est implémenté et semble fonctionner. A l'ouverture du fichier je tombe sur l'erreur 13 incompatibilité de type sur la commande createfile. Quelqu'un a t il une idée ? la librairie Microsoft Scripting Runtime a bien été ajoutée.

Code :

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

1
2
3
4
5
6
7
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFl = oFSO.CreateTextFile(Trim(cheminsortie) & "\" & Trim(ficsortie) & ".txt", True)
    Set oTxt = oFl.OpenAsTextStream(ForWriting)

Cheminsortie et ficsortie contiennent bien deux string et ne sont pas vide le trim est peut-être inutile ou le faire à leur implémentation.
Si quelqu'un a une idée merci d'avance.

[Marc-L]

Bonjour !

Déjà FSO est inutile car le VBA dispose en interne de tout le nécessaire pour créer un fichier texte ‼

Sinon le B-A-BA est de vérifier la concaténation des variables de la ligne déclenchant l'erreur via MsgBox ou Debug.Print …


______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[patricktoulon]

Bonjour
pourquoi t'ennuie tu avec le FSO (scriptingfilesystemobject)??? la méthode open de vba fonctionne très bien
ecriture

Code :

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

1
2
3
4
5
6
7
8
Sub test_ecriture()
fichier = cheminsortie & "\" & Trim(ficsortie) & ".txt"
x = FreeFile
texte = "toto" & vbCrLf & "titi"
Open fichier For Output As #x
Print #x, texte
Close #x
End sub

lecture

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub testlecture2()
Dim laChaine As String, x, fichier As String
fichier = cheminsortie & "\" & Trim(ficsortie) & ".txt"
x = FreeFile
 Open fichier For Input As #x
      laChaine = Input(LOF(x), #x)
  Close #x
  MsgBox laChaine
 
End Sub

[07121984]

Alors J'ai pris l'option FSO car j'ai un grand nombre de données à traiter et j'ai l'impression peut-être (sûrement) fausse que quand on ajoute des bibliothèques qui proposent des choses que le langage propose déjà elles sont plus optimisés.

Sinon ma chaine a été vérifié et semble correcte (pas de blanc, un chemin disque valide) que peut-on vérifier d'autre ?

Après je n'ai rien contre la bonne vieille méthode cela est juste une question de temps de traitement...

[patricktoulon]

Alors J'ai pris l'option FSO car j'ai un grand nombre de données à traiter et j'ai l'impression peut-être (sûrement) fausse que quand on ajoute des bibliothèques qui proposent des choses que le langage propose déjà elles sont plus optimisés.

Sinon ma chaine a été vérifié et semble correcte (pas de blanc, un chemin disque valide) que peut-on vérifier d'autre ?

Après je n'ai rien contre la bonne vieille méthode cela est juste une question de temps de traitement...

c'est une fausse idée dans ce cas
c'est la lecture en binaire qui est lente pas en texte

ici dans cet exemple c'est bonnet blanc: blanc bonnet
puis la méthode open se décharge en mémoire toute seule ce qui rend forcement moins lourd cette méthode puisque l'object FSO doit être détruit (=nothing)pour vider la mémoire

perso je ne me sert que du Scripting.filesystemobject que dans mes vbs ,la méthode open étant inexistante dans ce langage

[07121984]

Ok en effet en passant par freefile -> open -> write ça marche très bien (très lentement mais très bien) merci.

[patricktoulon]

avec write ou read le FSO n'est pas plus rapide c'est impossible

si c'est lent c'est que les fichiers sont relativement lourd

bonne continuation