FSO et excel

aidez moi sil vous plait , je suis encore debutan en vbscript et j'ai un pti truc qui me pose problem

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\test.txt")

ceci fonctionne tré bien dans un .vbs mais impossible de le metre dans une macro excel , comme ceci :

Private Sub CommandButton1_Click()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\test.txt")
End Sub

est ce que quelquun peu mexpliké pourquoi et comment faire , car ceci me ramene " erreur 91 ...." a chaque fois
et il possible de ne pas pouvoir utiliser FSO avec excel ? ou comment l'activer sil ni est pas ?
je ve juste creer un fichier texte et ecrire dedans avec une macro excel

merci d'avance

Bonjour, je ne sais pas si tu peu utiliser FSO avec Excel mais en revanche tu peu ecrire

'ouverture du fichier et donc sa création
Open monfichier For Output As #1
'écriture
print #1, "Bonjour"
'fermeture du fichier
Close

Voilà, en esperant avoir répondu a ta question.

Salut

j ai fait un copier coller de ces deux lignes et elles fonctionnent tres bien sous excel sans rien changer

si tu veux ajouter la reference au filesystemobject ajoute depuis Outils => References coche alors Microsoft Scripting Runtime

Ensuite tu fais

Private Sub CommandButton1_Click() 

Dim objFSO As New FileSystemObject 
Dim ObjFile As TextStream 
Set ObjFile = objFSO.CreateTextFile("C:\test.txt") 

End Sub 
 

Coloration syntaxique automatique [AFCK]
       

Si ton erreur persiste c est quelle vient d autre part

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée