Bonjour,
J'ai une macro VBA qui s’exécute au lancement d'un fichier Excel ( model ). Cette macro permet d'ouvrir un autre fichier Excel ( Cube ), calcul certaine données et les affiches ensuite dans le fichier Excel ( model ).
Pour lancer le code à l'ouverture du fichier Excel ( model ) j ai mis le code dans thisworkbook. Mon problème , lorsque je demande d'ouvrir l autre fichier Excel ( Cube ) , le fichier s'ouvre bien mais j'ai une erreur : l 'indice n'appartient à la sélection.
Je ne comprend pas l'erreur car lorsque je relance cette macro à partir d'un bouton dans le fichier excel (model) et non à l'ouverture du fichier ( model ), le code fonctionne très bien.
Voici mon code :
L'erreur ce fait sur Windows(fichier_cube).Activate
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Private Sub Workbook_Open() Range("B6:F9").Select Selection.ClearContents ledir = ActiveWorkbook.Path & "\" fichier_cube = "cube_ponctualité_V3.xlsm" fileModele = "model.xlsm" Call maj_tcd(ledir, fichier_cube, fileModele) Call insertion_donnee Call fermer_cube(fichier_cube, ledir) End Sub Private Sub maj_tcd(ledir, fichier_cube, fileModele) Application.DisplayAlerts = False Workbooks.Open Filename:=ledir & fichier_cube Windows(fichier_cube).Activate Sheets("Feuil1").Select end sub
Cordialement
Partager