Discussion :

[Boonichou]

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.

[zazaraignée]

Y'a toujours la gestion des erreurs...

Code :

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

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

[Boonichou]

Pas bête!
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"?

[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

[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:

[cavo789]

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

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
 
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