Macro à l'ouverture qui se répète 2x

Bonjour à tous,
Je débute dans le vba.
J'ai créé un environnement qui ouvre 2 fichiers.
Le workbook data s'ouvrant en premier et le workbook programme en second.
Je demande au système de lancer la macro à l'ouverture si le workbook data est ouvert.
Lorque j'ouvre l'environnement, la macro s'exécute très bien mais se répète 2x.. alors que si j'ouvre séparément ces 2 fichiers (en premier le workbook data) sans passer par l'environnement, la macro s'éxécute normalement 1x.
Voici le code, si quelqu'un a une idée, elle est la bienvenue.
Merci d'avance
david

Private Sub Workbook_Open()

MsgBox 'Hi, thanks for opening me', vbInformation, 'programme'

On Error GoTo fin

Workbooks('export data.xls').Activate 'peut provoquer une erreur 9

Run 'Reset_db'
Run 'Build_db'
Run 'GetIssueNo'
Run 'OpenMydata'
GoTo bon

fin: MsgBox ('Le Fichier export cpi.xls n'est pas ouvert')
bon: MsgBox ('continue')
End Sub