D
david
Guest
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
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