maccro excel : activeworkbook

Bonjour,
je réalise une macro sous excel et je doit mettre en tant que activeworkbook le fichier excel qui contient la macro, je n'arrive pas a trouver comment faire, quelqu'un pourrait il me dire ou m'envoyer un lien qui m'explique cela ?
Merci

En fait je suis de moins en moins sur que cela vienne de activeworkbook, étant donné que je lance la macro a partir du fichier concerné sous excel. Voila le programme, le problème est qu'il ne me créé aucun fichiers alors que le code est bien parcouru.


Sub copie()
Dim classeur As String
Dim ligne, nom, nom_f As String
Dim i, j, comp As Integer

For i = 9 To 19
    nom = ActiveWorkbook.Sheets(i).Name
   
    For j = 1 To 10
        nom_f = ""
        nom_f = nom & ActiveWorkbook.Sheets(i).Cells(4, j + 1) & ".txt"
        nom_f = "c:\fichiers\" & nom_f
        Open "c:\fichiers\matrice.txt" For Input As #1
        Open "nom_f" For Output As #2
        'recopie de la matrice a partir du .txt
        While Not EOF(1)
            Line Input #1, ligne
            Print #2, ligne
        Wend
        Close #1
        'recuperation des donnees a partir du fichier excel
        For comp = 5 To 78
            Line = Cells(comp, 1) & "   " & Cells(comp, j + 1)
            Print #2, Line
           
        Next comp
        Close #2
    Next j
Next i


End Sub

En fait il semble que ce soit le Open "nom_f" For Output As #2 qui ne créé pas le fichier ( après vérification, nom_f contient bien ce le nom qu'il faut)
Pourtant il me semble bien avoir vu que le open créait un nouveau fichier est ce que je me trompe ?
Merci

en fait j'ai remplacé output par append, et il me créé bien le fichier, mais par contre le print ne fait rien alors que les variables line et ligne ont les bonnes valeurs. Je n'y comprend rien, est ce un problème de version de vb (je travaille sous l'editeur de macro de excel 2000), car ce que je vois sur les  différents sites internet me montre bien que cette méthode permet d'écrire dans les fichiers textes.
Help SVP