Discussion :

[Melvine]

Bonjour,

J'ai fait cela dans mon code, et vb bloque

Code :

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

1
2
3
4
Sub main()
Set fs = CreateObject("scripting.filesystemobject")
 
Set fics = fs.createtextfile("C:\Documents and Settings\FRANKY\Bureau\ExoVb\Tout\algo\Fichier\exo1\test.txt")

Le debogueur se lance et me dit :

Le composant activeX ne peut creer l'objet

Il bloque sur cette ligne en me disant que fs est vide:

Code :

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

Set fs = CreateObject("scripting.filesystemobject")

Est ce qu'i l n'y aurait pas une case a cocher dans les reference ou les composant pr qu'il reconnaisse ma ligne ?

Merci

[SfJ5Rpw8]

question habituelle : VB,VBA ... ? ??


à part cela pour filesystemobject , tu peu cocher la référence à "Microsoft Scripting Runtime " dans le menu outils/référence..

[ouskel'n'or]

Tu ne peux pas créer ton txt plus simplement ?

Code :

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

    Open "C:\Documents and Settings\FRANKY\Bureau\ExoVb\Tout\algo\Fichier\exo1\test.txt" For Output As #1

Ne connaissant pas le contexte, c'est juste une question...

A+

[Melvine]

c'est en vb

[khany]

Donc, voir bbil pour la référence à cocher