Ouverture d'un fichier Excel au lancement d'un autre fichier Excel

Version imprimable

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:

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

Bonjour,

Essaie :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub maj_tcd(ledir, fichier_cube, fileModele)
 
    Application.DisplayAlerts = False
 
    Workbooks.Open Filename:=ledir & fichier_cube
    DoEvents
    Windows(fichier_cube).Activate
    Sheets("Feuil1").Select
 
End Sub

En tout état de cause, la ligne est inutile.

27/07/2012, 11h25
shakapouet
Cela ne fonctionne pas.
J'ai essayer en mettant :
Code:

1 2 Windows(fichier_cube).Activate Sheets("Feuil1").Select]
en commentaire.

Mais après la suite de ma macro plante forcément.
Une idée ?

Alors j'ai testé ça, ça fonctionne parfaitement sans message d'erreur:

Code:

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 CommandButton1_Click()
 
 
ledir = ActiveWorkbook.Path & "\"
fichier_cube = "as.xls"
 
 
Call maj_tcd(ledir, fichier_cube)
 
 
 
End Sub
 
Sub maj_tcd(ledir, fichier_cube)
 
    Application.DisplayAlerts = False
 
    Workbooks.Open Filename:=ledir & fichier_cube
 
    Application.DisplayAlerts = True
 
    Windows(fichier_cube).Activate
    Sheets("Feuil1").Select
 
End Sub

Désolé mal compris la question:

Voici le code:

Code:

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
26
27
Private Sub Workbook_Open()
 
Range("B6:F9").Select
Selection.ClearContents
 
ledir = ActiveWorkbook.Path & "\"
fichier_cube = "cube_ponctualité_V3.xlsm"
 
 
Call maj_tcd(ledir, fichier_cube)
 
End Sub
 
 
 
Sub maj_tcd(ledir, fichier_cube)
 
 
    On Error Resume Next
 
    Workbooks.Open Filename:=ledir & fichier_cube
 
    Workbooks("cube_ponctualité_V3.xlsm").Activate
 
    Workbooks("cube_ponctualité_V3.xlsm").Sheets("Feuil1").Select
 
End Sub

27/07/2012, 12h30
Daniel.C
Citation:
Cela ne fonctionne pas.
J'ai essayer en mettant :

Code:

1 2 Windows(fichier_cube).Activate Sheets("Feuil1").Select
Mets seulement :

Code:

Sheets("Feuil1").Select
27/07/2012, 12h52
jackborogar

J'ai testé avec seulement cette ligne de code ça ne fonctionne pas Daniel, par contre avec mon bloc ci dessus, ça fonctionne à merveille!

Je propose de travailler avec des variables objets sans rien activer ni sélectionner. exemple:

Code:

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()
Dim Rep As String, Cube As strine, Model As String
 
Worksheets("Feuil1").Range("B6:F9").ClearContents
Rep = ThisWorkbook.Path & "\"
Cube = "cube_ponctualité_V3.xlsm"
Model = "model.xlsm"
 
Call Maj_TCD(Rep, Cube, Model)
End Sub
 
Private Sub Maj_TCD(ByVal LeDir As String, ByVal Fichier_Cube As String, ByVal FileModele As String)
Dim Wbk As Workbook
 
If Dir(LeDir & Fichier_Cube) <> "" Then
    Application.DisplayAlerts = False
    Set Wbk = Workbooks.Open(LeDir & Fichier_Cube)
 
    'suite du code avec en Wbk le classeur FichierCube
 
    Wbk.Close True
    Application.DisplayAlerts = True
    Set Wbk = Nothing
End If
End Sub

27/07/2012, 14h04
shakapouet

Parfait ça marche nickel.
Merci pour votre aide ;)