Discussion :

[melouille56]

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 :

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

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

[ouskel'n'or]

Du dois le déclarer

Code :

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

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

[melouille56]

merci ousk'el.

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

Pour plus de précisions, voici mon code:

Code :

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

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

[JackOuYA]

bonsoir,


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

Code :

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

1
2
 
Dim FSO As New Scripting.FileSystemObject

pas besoin du create.

[ouskel'n'or]

Si tu ne la coches pas, teste

Code :

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

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")
    '...

[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.

[melouille56]

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

Code :

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

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.