createtextfile et incompatibilité de type

Version imprimable

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:

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.

09/05/2016, 10h03
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, …

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

Code:

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:

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

09/05/2016, 10h11
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...
09/05/2016, 10h19
patricktoulon

re

Citation:

Envoyé par 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...

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
09/05/2016, 10h29
07121984

Ok en effet en passant par freefile -> open -> write ça marche très bien (très lentement mais très bien) merci.
09/05/2016, 10h49
patricktoulon

re

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