Impossibilité d'utiliser CreateObject("Scripting.FileSystemObject")

Version imprimable

31/07/2008, 18h11
melouille56

Impossibilité d'utiliser CreateObject("Scripting.FileSystemObject")

Bonjour à tous

j'ai trouvé un code permettant d'insérer une signature existante lors de la création d'un mail via vba Excel. Mais pour cela, il faut utiliser lé code

Code:

Set fso = CreateObject("Scripting.FileSystemObject")

Mais rien ne se passe, il saute la ligne sans rien faire. J'ai pourtant bien coché la référence Microsoft Scripting Runtime.

Est-ce que quelqu'un peut m'aider ? Je ne sais pas où se trouve le problème.

Merci d'avance

Du dois le déclarer

Code:

1
2
Dim FSO As Scripting.FileSystemObject
     Set FSO = CreateObject("Scripting.FileSystemObject")

merci ousk'el.

Déjà déclarée ma variable...

Pour plus de précisions, voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
Public Function GetBoiler(ByVal sFile As String) As String
    Dim fso As Scripting.FileSystemObject
    Dim ts As Object
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
 
    GetBoiler = ts.readall
    ts.Close
End Function

31/07/2008, 22h05
JackOuYA
bonsoir,

si tu coche la référence à microsoft scripting ... tu peu aussi écrire :
Code:

1 2 Dim FSO As New Scripting.FileSystemObject
pas besoin du create.

Si tu ne la coches pas, teste

Code:

1
2
3
4
5
6
Public Function GetBoiler(ByVal sFile As String) As String
    Dim fso As Object 'Scripting.FileSystemObject
    Dim ts As Object
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    '...

01/08/2008, 09h24
melouille56

Merci beaucoup pour vos conseils précieux. La référence est cochée et j'ai testé avec As Object et As Scripting.FileSystemObject.

Je n'ai vraiment aucune idée de quoi le problème peut venir.

Je viens de modifier mon code en ne créant pas de fonction mais en mettant les lignes
Code:

1 2 3 4 5 6 7 If Dir(SigString) <> "" Then Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(SigString).OpenAsTextStream(1, -2) Signature = ts.readall Else Signature = "" End If
directement dans le code principal. Dans ce cas il ne saute pas les lignes mais j'obtiens fso = nothing et ts = nothing, bien que j'ai coché les bonnes références et bien déclaré mes 2 variables en tant qu'objet ou bien en tant que New Scripting.FileSystemObject.

Est-ce qu'il y a une manip que j'ai zappée ??

Merci 1000 fois d'avance.