bouton barre d'outil lié à classeur excelRésolu

Question

Bonjour à tous et toutes,

j'ai crée un bouton, qui commande différentes macros, dans la barre d'outil excel et qui n'apparaît qu'avec  un "type" de dossier et qui disparaît lorsque je ferme le dossier.
Mon problème, est qui si plusieurs dossiers de même "type" sont ouverts et que j'en ferme un, mon bouton disparaît (ce qui peut être ennuyant pour travailler sur le(s) dossier(s) ouvert(s))

Existe-t-il une possibilité de "signaler" à la macro de fermeture que si un dossier de même "type" est ouvert de ne pas s'activer.

Tout les dossiers commence par les mêmes termes (je ne sais pas si ça peut aider)
ex: horaire nursing 01 2011
    horaire nursing 02 2011
    horaire nursing 03 2011
    .....etc....etc...

voici le code d'activation du bouton

Private Sub Workbook_Open()
Application.CommandBars("horaire nursing").Visible = True
End Sub

et celui de fermeture du bouton

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("horaire nursing").Visible = False
End Sub


Ces codes sont donc placés dans le module "ThisWorkbook" du dossier

Merci pour votre aide

charette63 · Accepted Answer

salut l'artiste,

ça marche nickel

je m'empresse de consulter ton lien

merci beaucoup

jordane45 · Answer

Bonjour,

Au vu de ce que tu marques, je supposes que ce que tu nommes :
"type" de dossier
est en fait : CLASSEUR EXCEL ?

Si oui.. il suffirait que dans ton code de fermeture, tu testes avant si d'autres classeurs sont encore ouverts avec le même nom (type).

Par exemple : 


Private Sub Workbook_BeforeClose(Cancel As Boolean)

NB_classeurs = Application.Workbooks.Count

'teste si d'autres classeurs sont ouverts
If NB_classeurs > 1 Then
    'boulce pour lire le nom de chaque classseur ouvert
    For X = 1 To NB_classeurs
        'nom du classeur n
        Nom_classeur = Workbooks(X).Name
    
        ' teste si commence par la chaine "horaire nursing"
        ' Si oui ...alors je sors ^^
        If Left(Nom_classeur, 15) = "horaire nursing" Then
            Exit Sub
        End If
    Next
End If

Application.CommandBars("horaire nursing").Visible = False
End Sub



voilou 

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

charette63 · Answer

bonjour Jordane, et sympa de te pencher sur mon problème,

comme tu l'as bien supposé, se sont des classeurs excel.

le code que tu m'as donné coince, j'ai le message "erreur de compilation-validation non définie" et c'est "NB_classeurs" qui est surligné en bleu.

J'en profite pour poser une seconde question, j'ai (j'avais, puisque j'ai testé ta macro seul)deux autres applications dans le "Sub workbook_beforeclose" qui sont "Call macro1" et Call macro2", y a-t-il une priorité dans l'ordre des activations des differentes macros?

merci

jordane45 · Answer

Bonjour,
bonjour,
il n'y a aucune priorité si dans tes autres sub tu ne luis dis pas de quitter le classeur sans s'occuper du reste 

Sinon au vu du message d'erreur .. c'est que tu as certainement dit à Excel que la déclaration des variables était obligatoire...
Rajoute une ligne de déclaration pour les variables :


Dim NB_classeurs as integer
Dim Nom_classeur as String
'etc...



Sinon tu es sous quelle versions d'office ? 2003; 2007 ou 2010 ?

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

charette63 · Answer

bonjour Jordane,

la version office est de 2003.

Cette fois, c'est sur le "X" du bout de code "For X = 1 To NB_classeurs"
que j'ai l'erreur de compilation-Variable non définie.
Comme tu l'as certainement deviné je suis nul en programmation VB (et autres d'ailleurs). Je sollicite donc à nouveau ton aide.

Avec tout mes remerciements

jordane45 · Answer

Bonjour,
pas de soucis.

Là encore "X" est une variable..
Il faut également la déclarer avant de l'utiliser.

Dim X as integer


Pour que tu puisses acroitre tes connaissances dans le monde mystérieux de la programmation , je t'invite à lire ce tuto :
Utiliser les variables en VBA Excel

N'hésites pas à revenir sur le fofo si tu as de nouveaux soucis.

Bonne continuation.


Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

jordane45 · Answer

Bonjour,


par contre penses à passer le sujet en résolu.

Bon courage.

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

charette63 · Answer

bonjour,

Je reviens à la charge, il y a un p'tit bug, je m'explique.

J'ai adapté le code à d'autres classeurs excel qui s'appellent:
horaire nursing 
fiche perso nursing
horaire cuisine
fiche perso cuisine

la fermeture des differents boutons fonctionnent à merveille (donc disparaissent de la barre d'outil lors de la fermeture du dernier classeur)
quand les classeurs ouverts portent le même nom

Si un autre classeur excel portant un autre nom est ouvert, dans ce cas   le(s) bouton(s) reste(nt) actif(s) dans la barre d'outil

j'espere que l'explication est suffisement claire

merci pour votre aide

jordane45 · Answer

Bonjour,

Il faut regarder du côté de la condition qui teste le nom des classeurs.

        If Left(Nom_classeur, 15) = "horaire nursing" Then
            Exit Sub
        End If


Pour qu'elle puisse prendre en compte chacun des classeurs concernés, il faudrait surement les rajouter dans le test ( avec un Select Case plutot qu'un IF )
Exemple: 



ClasseurName = Left(Nom_classeur, 15)
Select Case ClasseurName
    Case "horaire nursing", "fiche perso nur", "horaire cuisine", "fiche perso cui"
        'Le nom commence par les noms ci-dessus...
        Exit Sub
    Else
        'Ne correspond à aucun des noms de classeurs...
End Select



Sinon, mets nous ton code pour qu'on voit ce qui peut éventuellement bloquer.

Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

charette63 · Answer

Bonjour Jordane, content de te "revoir",

j'ai testé la solution que tu m'as proposé, sans succés,mais j'ai fais d'autres tests avec les élements que j'avais en main, et j'ai remarqué un petit quelque chose. Je m'explique:

Voici le bout de code que tu m'as transmis et qui fonctionne bien lorsque j'ai plusieurs classeurs d'un même (debut de )nom ouvert et qui coince avec un autre classeur ouvert:


If NB_classeurs > 1 Then
    'boulce pour lire le nom de chaque classseur ouvert
    For X = 1 To NB_classeurs
        'nom du classeur n
        Nom_classeur = Workbooks(X).Name
    
        ' teste si commence par la chaine "horaire nursing"
        ' Si oui ...alors je sors ^^
        If Left(Nom_classeur, 15) = "horaire nursing" Then
            Exit Sub
        End If
    Next
End If
Application.CommandBars("horaire nursing").Visible = False
End Sub



J'ai testé ma manip avec le code modifié comme suit:

If NB_classeurs > 1 Then   
            Exit Sub     
End If

Application.CommandBars("horaire nursing").Visible = False
End Sub


J'ai donc supprimé du code les lignes suivantes

    For X = 1 To NB_classeur    
        Nom_classeur = Workbooks(X).Name
        If Left(Nom_classeur, 15) = "horaire nursing" Then
            Exit Sub
        End If
    Next


A la fermeture de mes classeurs avec le code modifié, j'ai IDENTIQUEMENT les mêmes effets qu'avec le code initial (à savoir que si un autre formulaire excel de n'importe quel autre nom, mon (mes) bouton(s) reste(nt) ouvert dans ma barre d'outil)

Ma conclusion est donc que c'est le bout de code "supprimé" qui pose problème, il ne lit pas le nom (plutôt le début du nom) du classeur lié au bouton

Me trompe-je?

Merci de ton aide

jordane45 · Answer

Bonjour,
en effet, le code lit les 15 premieres lettres du nom des classeurs car au début tu voulais que la barre ne se supprime que lorsque tous les classeurs du meme nom etaient fermés et qu'elle reste s'il en restait au moins un.

apres, il faut bien entendu modifier le code si tes conditions changent ^^


Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI

charette63 · Answer

Salut Jordane,

C'est effectivement l'objet de ma demande initiale, et le code que tu m'as donné fonctionne très bien tant qu'il n'y a que des classeurs nommés "horaire nursing ...." d'ouvert et le bouton disparaît lors de la fermeture du dernier classeur du même nom.

Mon problème actuel, c'est que le bouton ne disparait pas lorsque je ferme le dernier classeur nommés "horaire nursing...." si un autre classeur (quelques soit son nom) est toujours ouvert.

Je recherche donc un complément au code qui dirait: si d'autres classeurs sont ouvert MAIS qu'il ne s'appelle pas "horaire nursing..." tu peux lancer la macro de fermeture du bouton

cordialement itout

Thierry

charette63 · Answer

Bonsoir Jordane

pour info, voici l'explication et la solution à mon problème.
Il faut supprimer le classeur actif de la boucle sinon il se trouve lui-même et ne ferme pas le bouton :

Remplacer :

Code :
If Left(Nom_classeur, 15) = "horaire nursing" Then

par :

Code :
If Left(Nom_classeur, 15) = "horaire nursing" And _
Nom_classeur <> Thisworkbook.Name Then


Merci encore pour l'aide apportée
Thierry

Bouton barre d'outil lié à classeur excel

13 réponses

Votre réponse

Discussions similaires