Fonction "exist" ?

Version imprimable

28/07/2007, 20h13
Boonichou

Fonction "exist" ?

Bonjour à tous!

Je voudrais savoir s'il existe une fonction qui permet d'utiliser une macro ou un object qui existe peut être...Pas très clair? Je m'explique:

En gros je voudrais qu'à l'ouverture de mon classeur Excel, le programme ajoute une barre d'outil. Le problème est que cette barre d'outil existe peut être deja, si je l'avais ajoutée précédemment. Et si elle existe déjà, quand j'ouvre mon classeur et que CommandBars.Add s'execute automatiquement, Excel me renvoie une erreur, car la barre d'outil existe déjà, et je ne peux donc la "réajouter"... Donc je voudrais faire un truc du style:

Si Bar existe alors blablabla
Sinon, Ajoute Bar et Blablabla.

Pourriez-vous m'aider?

Merci.

Y'a toujours la gestion des erreurs...

Code:

1
2
3
4
5
6
7
8
9
Sub AfficherOutilsToto()
    On Error GoTo GestionErreur
    Application.CommandBars("Toto").Visible = True
 
GestionErreur:
    If Err.Number = 5 Then  ' la barre d'outils n'existe pas
        'Créer la barre d'outils toto
    End If
End Sub

28/07/2007, 20h22
Boonichou

Pas bête! :P
Cette solution m'interesse, mais j'ai dejà un On erro go to dans ma macro...
Est ce que je peux cumuler les "On error"?
28/07/2007, 20h34
Plateforme3

Bonjour
Non, tu ne peux mettre qu'un On Error Goto par procédure, par contre tu testes le code erreur qui te permetra de savoir d'où vient l'erreur et ce que tu veux faire et en cas de Resume, le programme repart là où il y a eu lieu l'erreur
Slts
28/07/2007, 20h55
zazaraignée

Un type d'erreur à la fois. Tu peux créer une procédure qui s'appelle AfficherBarreOutils qui contient le traitement des erreurs. Et qui, en cas d'erreur, appelle une autre procédure qui s'appelle CreerBarreOutils. Tu appelle la première depuis ta procédure principale (probablement un procédure événementielle).

D'ailleurs, à chaque fois que tu as à traiter des erreurs par le code d'erreur, il vaut mieux faire une procédure séparée avec l'action qui risque de provoquer l'erreur.

Ci-joint, un petit organigramme:

La proposition de zazaraignée est très bonne. Si tu veux toutefois le faire en une seule subroutine, c'est possible.

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
28
29
30
31
32
33
34
 
On Error Goto ErrHandler
 
' Ecrit ici ton code
 
 
 
 
On Error Resume Next
 
' Ecrit ici le code pour afficher la barre d'outil et immédiatement après, teste la valeur retournée par Err.Number
 
If Err.Number <> 0 Then 
 
   ' La barre d'outil n'existe pas.   Il faut donc la créer.
 
End if
 
On Error Goto 0
 
 
 
 
 
 
   Goto ErrFin:
 
ErrHandler:
 
   Msgbox "Gestionnaire principal d'erreur"
 
ErrFin:
 
   On Error Goto 0

28/07/2007, 21h30
Boonichou

Encore merci... ca marche!:D