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