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 :

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
L'erreur ce fait sur Windows(fichier_cube).Activate

Cordialement