Salut,

Après avoir enregsitré mon fichier je souhaite le lire. Voila mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Function OpenLink()
    On Error GoTo Annul
    OpenSave.DialogTitle = "Ouvrir une connection"
    OpenSave.ShowOpen
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(OpenSave.FileName, 1, False, 0)
    Content = f.Read
    f.Close
    MsgBox (Content)
 
Annul:
End Function
Alors j'ouvre mon fichier et la d'abord mort de rire mon Norton me lance une alerte et me demande si je dois arreter ce script. Et ensuite (quand j'autorise), il ne se passe rien, le MsgBox n'est pas lancé.

Comment faire?
Merci