Ajouter un macro dans un fichier Excel

Version imprimable

Bonjour,
J'ai créer un fichier excel avec StreamWriter

Code:

1
2
3
4
5
6
7
8
Dim sw As StreamWriter
        sw = New StreamWriter("\\Server\Repertoire\Classeur1.xlsm", False, System.Text.Encoding.Default)
 
        For i = 0 To 10
            sw.Write("cell1" & i & vbTab & "cell2" & i & vbTab & "cell3" & i)
            sw.Write(vbCrLf)
        Next
        sw.Close()

Je veux maintenant ajouter le macro suivant (bien sûr avec ASP.NET)

Code:

1
2
3
4
Private Sub Workbook_Open()
 Rows("1:1").Select
    Selection.AutoFilter
End Sub

12/11/2010, 16h33
tomlev

Tu as écrit un fichier CSV, pas un fichier Excel... un fichier CSV ne peut pas contenir de macros
12/11/2010, 16h44
DeveloppeurWeb

Code:

sw = New StreamWriter("\\Server\Repertoire\Classeur1.xls", False, System.Text.Encoding.Default)

C'est bien un fichier Excel
12/11/2010, 16h53
tomlev

Citation:

Envoyé par DeveloppeurWeb

Code:

sw = New StreamWriter("\\Server\Repertoire\Classeur1.xls", False, System.Text.Encoding.Default)

C'est bien un fichier Excel

Il ne suffit pas que l'extension soit .xls pour que ce soit un fichier Excel... Tu peux très bien écrire du texte brut dans un fichier .exe, ça ne fera pas un programme exécutable pour autant. Et ce n'est pas parce que tu changes l'extension d'un fichier en .zip que ça va le compresser automatiquement... L'extension est là uniquement à titre d'information, ça ne change rien au format du contenu du fichier.

Là tu écris juste des données au format CSV dans un fichier avec l'extension .xls. Peut-être qu'Excel arrivera quand même à le lire parce qu'il comprend le CSV, mais tu ne peux pas y mettre des macros.