Erreur lors de l'Exécution d'une appli traitant un classeur Excel.

**Luigi13** · 17/03/2010, 15h17

Bonjour à tous, j'ai fait avec vb une petite appli qui doit m'ouvrir un classeur Excel précis avec des boutons représentants les différents onglets de ce meme classeur.
Quand j'appui sur un boutton il doit m'ouvrir mon fichier et me renvoyer vers la feuille concernée. Mais je rencontre un probème : l'appli se lance mais des que j'appui sur un boutton il m'ouvre le classeur sans me renvoyer vers la feuille concernée. De plus, des que j'appui sur un autre boutton pour changer de feuilles, il me met une erreur d'execution "Indice Hors de la plage". Je ne vois pas où est le problème... Je suis un pur novice
J'ai d'abord rajouter un module à mon projet contenant 3 variables, et dans mon forms j'ai fait une fonction me permettant de verifier si le fichier est deja ouvert au cas ou je souhaiterai voir une feuille, puis une autre,.. Quelqu'un pourrait m'aider et m'apporter une solution ? Merci bien !
Voici le code :

Module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public appExcel As Excel.Application
Public wbExcel As Excel.Workbook 'Classeur Excel
Public wsExcel As Excel.Worksheet 'Feuille Excel

Et dans mon Forms :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Function VerifOuvertureClasseur(Fichier As String) As Boolean
Dim x As Integer
On Error Resume Next
x = FreeFile()
Open Fichier For Input Lock Read As #x
Close x
If Err.Number = 0 Then VerifOuvertureClasseur = False
If Err.Number = 70 Then VerifOuvertureClasseur = True
End Function
 
Private Sub Command1_Click(Index As Integer)
 
'Ouverture d'un fichier Excel
If VerifOuvertureClasseur("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls") Then
Set wsExcel = wbExcel.Worksheets(13)
Else
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls")
appExcel.Visible = True
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(13)
End If
End Sub
 
Private Sub Command2_Click(Index As Integer)
 
'Ouverture d'un fichier Excel
If VerifOuvertureClasseur("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls") Then
Set wsExcel = wbExcel.Worksheets(12)
Else
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls")
appExcel.Visible = True
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(12)
End If
End Sub
 
Private Sub Command3_Click(Index As Integer)
 
'Ouverture d'un fichier Excel
If VerifOuvertureClasseur("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls") Then
Set wsExcel = wbExcel.Worksheets(7)
Else
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls")
appExcel.Visible = True
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(7)
End If
End Sub
 
Private Sub Command4_Click(Index As Integer)
 
'Ouverture d'un fichier Excel
If VerifOuvertureClasseur("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls") Then
Set wsExcel = wbExcel.Worksheets(9)
Else
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls")
appExcel.Visible = True
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(9)
End If
End Sub
 
Private Sub Fermer_Click()
Workbooks("TDB_liaison.xls").Saved = True
 
End Sub

**Delbeke** · 17/03/2010, 16h44

Je pense que tu devrais commencer par lire les tutoriels sur le pilotage d'office http://vb.developpez.com/cours/?page=automation#office

**SfJ5Rpw8** · 17/03/2010, 21h20

pour afficher un onglet il faut l'activer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set wsExcel = wbExcel.Worksheets(12)
wsExcel.Activate

pour la deuxième erreur ton code est un peu long.. dis nous ou tu as l'erreur.

**Luigi13** · 18/03/2010, 09h01

Ce que j'aimerai faire c'est que mon code pour chaques bouttons verifie à chaque fois si le classeur est deja ouvert ou pas. Si il l'est, qu'il me renvoit à telle feuille, et si il ne l'est pas il m'ouvre mon classeur.
Le code pour chaques boutons est le meme et il fait référence à une fonction (VerifOuvertureClasseur) censée vérifier si le classeur est ouvert. Mais j'ai l'impression que cela ne marche pas.

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
 
Function VerifOuvertureClasseur(Fichier As String) As Boolean
Dim x As Integer
On Error Resume Next
x = FreeFile()
Open Fichier For Input Lock Read As #x
Close x
If Err.Number = 0 Then VerifOuvertureClasseur = False
If Err.Number = 70 Then VerifOuvertureClasseur = True
End Function
 
Private Sub Command1_Click(Index As Integer)
 
'Ouverture d'un fichier Excel
If VerifOuvertureClasseur("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls") = True Then
Set wbExcel = appExcel.Workbooks("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls").Worksheets(13)
Else
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("S:\PROD-GAR\Revue de perf GAR\2010\TDB_liaison.xls")
appExcel.Visible = True
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(13)
wsExcel.Activate
End If
End Sub

**DarkVader** · 18/03/2010, 10h11

GetObject serait tellement mieux que «VerifOuvertureClasseur»

**Luigi13** · 19/03/2010, 14h09

Re bonjour, comme ceci ? : en module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public appExcel As Excel.Application
Public wbExcel As Excel.Workbook 'Classeur Excel
Public wsExcel As Excel.Worksheet 'Feuille Excel
Public MyXl As Object

et ensuite dans le form :

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
Private Sub Command1_Click(Index As Integer)
 
On Error Resume Next
Set MyXl = GetObject("C:\Documents and Settings\Administrateur\Bureau\TDB_liaison.xls")
If Err.Number <> 0 Then
Application.DisplayAlerts = False
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\Administrateur\Bureau\TDB_liaison.xls")
appExcel.Visible = True
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets("Production hebdo")
wsExcel.Activate
Application.DisplayAlerts = True
Else
Set wsExcel = wbExcel.Worksheets("Production hebdo")
wsExcel.Activate
End If
End Sub

Le truc c'est que Excel n'est plus visible quand je clique sur le bouton... il est bien lancé mais pas visible. Je suis un peu perdut la... de l'aide svp!

**SfJ5Rpw8** · 19/03/2010, 15h09

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
On Error Resume Next
Set MyXl = GetObject("C:\Documents and Settings\Administrateur\Bureau\TDB_liaison.xls")
If Err.Number <> 0 Then
 
......
 
 
 
On Error Goto 0

Réactive le traitement d'erreur après ton test sur le Err.Number, avec On Erro Goto 0...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.DisplayAlerts = False

Application c'est l'objet application de VBA ... donc ici en VB6 tu ne peu avoir accès à ces méthodes qu'une fois cet objet créé..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

appExcel.DisplayAlerts = False

**Luigi13** · 19/03/2010, 16h22

J'ai rectifier comme tu me la dit (en rajoutant le On Error Goto 0 ainsi que le appExcel.Displayalert = False après la création de l'objet) et toujours pas de Excel visible! Simplement lancé comme je peux le voir dans le gestionnaire de taches..

**DarkVader** · 19/03/2010, 18h00

Envoyé par Luigi13

Re bonjour, comme ceci ? : en module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public appExcel As Excel.Application
Public wbExcel As Excel.Workbook 'Classeur Excel
Public wsExcel As Excel.Worksheet 'Feuille Excel
Public MyXl As Object

et ensuite dans le form :

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
Private Sub Command1_Click(Index As Integer)

On Error Resume Next
Set MyXl = GetObject("C:\Documents and Settings\Administrateur\Bureau\TDB_liaison.xls")
If Err.Number <> 0 Then
Application.DisplayAlerts = False
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\Administrateur\Bureau\TDB_liaison.xls")
appExcel.Visible = True
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets("Production hebdo")
wsExcel.Activate
Application.DisplayAlerts = True
Else
Set wsExcel = wbExcel.Worksheets("Production hebdo")
wsExcel.Activate
End If
End Sub

Le truc c'est que Excel n'est plus visible quand je clique sur le bouton... il est bien lancé mais pas visible. Je suis un peu perdut la... de l'aide svp!

Ce n'est pas très cohérent

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
    Dim f As String
    f = "C:\Documents and Settings\Administrateur\Bureau\TDB_liaison.xls"
 
    On Error Resume Next
 
    Set appExcel = GetObject(f)
    If Err.Number <> 0 Then    ' = &h80040111 ... ou typename(appExcel)="Nothing" then ...
        Set appExcel = CreateObject("Excel.Application")
    End If
 
    If TypeName(appExcel) <> "Nothing" Then
        Set wbExcel = appExcel.Workbooks.Open(f)
        Set wsExcel = wbExcel.Worksheets(1) '"Production hebdo")
        wsExcel.Activate
        appExcel.Visible = True
    End If