Bouton barre d'outil lié à classeur excel [Résolu]
charette63
- Messages postés
- 91
- Date d'inscription
- vendredi 2 avril 2004
- Dernière intervention
- 19 mai 2011
- Messages postés
- 91
- Date d'inscription
- vendredi 2 avril 2004
- Dernière intervention
- 19 mai 2011
A voir également:
- Bouton barre d'outil lié à classeur excel
- Visual Basic / VB.NET : Une horloge dans la barre d'outil d'excel, comme exemple de l'utilisation de - Guide
- [Excel-VBA] Bouton réduire du UserForm pour réduire tout le classeur Excel ✓ - Forum - Visual Basic 6
- Activer/Désactiver barre d'outil excel ✓ - Forum - Visual Basic 6
- Ajouter barre d'outil à excel ✓ - Forum - VB.NET
- Bouton sur barre d'outils (Word 2003) ✓ - Forum - Visual Basic
13 réponses
Meilleure réponse
- Messages postés
- 91
- Date d'inscription
- vendredi 2 avril 2004
- Dernière intervention
- 19 mai 2011
salut l'artiste,
ça marche nickel
je m'empresse de consulter ton lien
merci beaucoup
ça marche nickel
je m'empresse de consulter ton lien
merci beaucoup
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
118 internautes nous ont dit merci ce mois-ci
/bbace22ccee54c49a931e47acf10dd0d/auth-avatar/5a3179e8d5625)
- Messages postés
- 25048
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
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
par contre penses à passer le sujet en résolu.
Bon courage.
Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
118 internautes nous ont dit merci ce mois-ci
- Messages postés
- 25048
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
Bonjour,
Au vu de ce que tu marques, je supposes que ce que tu nommes :
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 :
voilou
Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI
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
- Messages postés
- 91
- Date d'inscription
- vendredi 2 avril 2004
- Dernière intervention
- 19 mai 2011
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
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
- Messages postés
- 25048
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
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 :
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
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
- Messages postés
- 91
- Date d'inscription
- vendredi 2 avril 2004
- Dernière intervention
- 19 mai 2011
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
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
- Messages postés
- 25048
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
Bonjour,
pas de soucis.
Là encore "X" est une variable..
Il faut également la déclarer avant de l'utiliser.
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
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
- Messages postés
- 91
- Date d'inscription
- vendredi 2 avril 2004
- Dernière intervention
- 19 mai 2011
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
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
- Messages postés
- 25048
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
Bonjour,
Il faut regarder du côté de la condition qui teste le nom des classeurs.
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:
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
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
- Messages postés
- 91
- Date d'inscription
- vendredi 2 avril 2004
- Dernière intervention
- 19 mai 2011
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
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
- Messages postés
- 25048
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
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
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
- Messages postés
- 91
- Date d'inscription
- vendredi 2 avril 2004
- Dernière intervention
- 19 mai 2011
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
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
- Messages postés
- 91
- Date d'inscription
- vendredi 2 avril 2004
- Dernière intervention
- 19 mai 2011
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
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.