Macro qui ne marche pas

Bonjour,

J'ai retrouvé dans un ancien numéro de magazine informatique une macro permettant de collecter dans un fichier texte tous les commentaires présents dans un classeur Excel. Mais lorsque je lance cette macro sous Excel 2003, j'obtiens le message suivant :

Erreur d'exécution '76':
Chemin d'accès introuvable

Quand j'ouvre le code du module, j'ai ceci :

Sub CommentairesFichier()
Dim Commentaire As Comment, Feuille As Worksheet

'****************************
'* Variable à personnaliser *
'****************************
Fichier = 'c:\\windows\\bureau\\test.txt'
'Ouverture du fichier texte
Open Fichier For Output As #1
'Insertion du titre dans le fichier texte
Print #1, 'Commentaires du classeur ' & ActiveWorkbook.Name
'Soulignement du titre
LongNom = Len(ActiveWorkbook.Name)
Print #1, String(25 + LongNom, '-')
'Pour chaque feuille du classeur
For Each Feuille In Worksheets
'Pour chaque commentaire dans la feuille
For Each Commentaire In Worksheets(Feuille.Name).Comments
'Insertion dans le fichier texte du nom de la feuille
Print #1, '**** Feuille : ' & Commentaire.Parent.Parent.Name
'Insertion de l'adresse de la cellulme et du commentaire
Print #1, '* Cellule ' & Commentaire.Parent.Address & Chr(10) _
& Commentaire.Text & Chr(10)
Next Commentaire
Next Feuille
'Fermeture du fichier texte
Close #1
End Sub

et la ligne

Open Fichier For Output As #1

est surlignée en jaune.
Peut-être que cette macro, prévue pour Excel 97 et 2000 ne peut pas fonctionnner telle quelle sous Excel 2003 ? Ce qui est sûr, ce que je ne sais pas du tout quoi faire...
🙁