Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Outils & Erreur de compilation

Outils & Erreur de compilation

41 réponses
Avatar
Caroline L.
Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le "Ajouter/Supprimer des
boutons" qui se place à la droite des barres d'outils, n'apparaisse pas dans
un fichier (seulement dans le fichier actif et non applicable dans tous les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils perso. à un classeur et
j'ai enlevé toutes les barres d'outils et menu excel, désactiver le clic
droit... bref, je veux qu'il n'y ai que ma barre d'outils. Mais en ouvrant
le classeur sur Windows XP et Excel (microsoft office 10), tout est correct
sauf que je vois le "Ajouter/Supprimer des boutons" qui est disponible alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant Windows 98 2e éd. et Excel
2000... ce fichier comporte des macros et tout ce passe bien sur le poste en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un poste ayant Windows XP et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque je clique sur n'importe
laquelle des cellules, il y a toujours des messages du genre : "Microsoft
Forms (en titre) et le message : Impossible de charger le objet car il n'est
pas disponible sur cette machine". Autre message qui est apparu : "Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans les outils
complémentaires, toutes les cases de Microsoft forms 2.0 sont cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4 5
Avatar
jps
bonjour tout le monde
je crains fort que sur XL 2002, ça ne Disable pas grand'chose....
jps

"MichDenis" a écrit dans le message de
news:
Bonjour Caroline,

Sous excel 2003, avec un peu plus de test... ça va te coûter beaucoup plus
cher !



La réponse que tu attends, tu dois utiliser la combinaison de ces 2
commandes pour faire ce travail :

'------------------------
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True
'------------------------

Voici l'effet de chacune des commandes :
====================================== > Application.CommandBars("Toolbar List").Enabled = False

'Désactive le clic droit dans la zone des barres d'outils
'Désactive le menu "Barre d'outils" du menu "Affichage"
Application.CommandBars("Toolbar List").Enabled = False

====================================== >
Application.CommandBars.DisableCustomize = True

'Désactive le sous-menu (L'extrémité des barres d'outils) permettant la
personnalisation de toutes les barres d'outils.

'Désactive la possibilité d'utiliser le double-clic dans la zone des
barres d'outils, un truc impossible à faire simplement avec les

autres versions d'excel (Avant 2002)

====================================== >
P.S. Est-ce que quelqu'un peut vérifier si cette méthode
"DisableCustomize" existe sous excel 2000 et 2002, ceci afin de connaître

avec certitude l'implantation de cette méthode dans le modèle objet
"excel".



Salutations!





"Caroline L." a écrit dans le message de news:


Bonjour MichDenis,

donc si les 2 façons que tu soulignes ne fonctionnent pas, comment puis-je
résoudre mon problème ? As-tu une suggestion ?

merci d'avance et bonne journée

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,


C'est un bug de Office 2003, car avec toutes les mises à jour, les 2
façons suivantes ne fonctionnent pas.



With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With

Ou en utilisant ceci :

Application.CommandBars.DisableCustomize = True



Salutations!






"Caroline L." a écrit dans le message de news:
%

Bonjour anonymousA,

merci beaucoup, je vais vérifier

Bonne journée

Caroline


"anonymousA" a écrit dans le
message

de news:
bonjour,

je vias être prudent car j'avais un peu répondu hativement l'autre
jour



à
une question du même style.
A partir d'Excel 2003, on peut utiliser la méthode Disablecustomize de
l'objet Commandbars qui semble t-il interdit toute modification des
barres


de
commandes.
Je ne peux cependant pas vérifier la nature de cette interdiction ne
possédant pas Excel 2003.
A toi de voir

A+


Re-bonjour !

J'ai refait des tests concernant ma question # 1.
Pour être plus claire, je vais définir les 2 ordinateurs où
j'utilise




mon
fichier
Ordinateur A : sur Windows 98, 2e éd., Excel 2000
Ordinateur B : sur Windows XP, Excel microsoft office 10

Donc, j'ai observé de plus près :

- Si j'ouvre mon fichier sur l'ordinateur A, le bouton
Ajouter/Supprimer



des
boutons ne s'affiche que s'il manque de place pour afficher tous les
boutons


que j'ai attaché à une barre d'outils personnelle. Mais
heureusement,




cette
option est "grisée", c'est-à-dire inactive....... parfait, c'est ce
que



je
désire.

- Le problème se produit sur l'ordinateur B. L'option
Ajouter/Supprimer



des
boutons s'affiche en tout temps et à mon grand malheur on peut
cliquer




dessus et même sur Personnaliser (qui permet d'ajouter des
commandes).





Cela ne me dérange pas vraiment si l'option est là mais ELLE SE DOIT
D'ÊTRE


INACTIVE.

Merci pour tout commentaire qui pourrait m'aider à résoudre...

Caroline


"Caroline L." a écrit dans le message de
news:





:-))))


"LSteph" a écrit dans le message de news:
#
Re,
... as-tu des idées pour ma question # 1 ?
là je vais faire une vraie poussée de boutons !!!


) o °
° ° )
) ° o

Si c'était le cas je t'aurais evité cela
;-)


"Caroline L." a écrit dans le message de
news:




OGq1a%
Re-re,

ha oui, j'ai oublié....
... as-tu des idées pour ma question # 1 ?
parce que présentement, tous les utilisateurs peuvent ajouter
des






boutons
et
là je vais faire une vraie poussée de boutons !!!

merci



"LSteph" a écrit dans le message de
news:








Bonsoir,

Cela a résolu mon pb qui semblait identique au tien/
Le Uf du classeur ouvert (alors que l'on avait upgradé le
poste)







semblait
être la cause du refus d'enregistrement du classeur
car lorsque j'ai enregistré celui-ci sur le poste pourvu du
nouveau






système
puis supprimé celui d'origine du projet et
réimporté celui entregistré ..
Plus de pb pour sauvegarder le classeur.

Donc
Enregistrer (Exporter ) sous un nom le Userform
Le supprimer du classeur dans VBE
et le ré Importer de là où on l'a enregistré sur le poste.
Tester.
Si cela marche.
Enregistrer le classeur.

-----
'lSteph
As-tu testé le message plein écran?






"Caroline L." a écrit dans le message
de







news:

Bonjour LSteph,

pour la bonne version des contrôles : si sur mon système
c'est








calendar
9.0
et sur l'autre ordinateur c'est calendar 10.0... j'ai créé
les








macros
avec
le 9.0, alors il me semble que le système avec le 10.0
devrait








être
capable
de "gérer" ?? tu comprends ?
Alors, je dois ajuster le calendar 9.0 en le modifiant par
celui de







10.0
?



En enregistrant le userform et en l'exportant dans mon
fichier,








qu'est-ce
que cela fait au juste ?



Merci
Caroline


"LSteph" a écrit dans le message de
news:







uNTP#
Bonjour Caroline,

Pour ta question 2:
J'ai eu le m^me pb il y a quelque temps , pour le résoudre
voici








ce
que
j'avais fait:
Vérifier quand même la présence en bonne version des
contôles









(ex:
calendar).
Sélectionner clic droit l'uf dans le gestionnaire de
projet










puis
l'Exporter
,c'est à dire enregistrer sous un nom
qui te plait: "monUF1"....par exemple
virer le "monUF1" du classeur chargé,
importer la version enregistrée de "monUF1", rectifier le
nom









le
cas
échéant
dans les macros, tester , enregistrer le classeur.

'lSteph

HS:
A propos pour ton message ouverture totalement plein
écran










du
mois
dernier
je t'avais remis un post
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal hWnd As
Long)








As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal
hdc









As
Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal
hWnd










As
Long,
_
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) /
GetDeviceCaps(DC,










88) *
72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC,
90)










*
72
ReleaseDC 0, DC


End Sub
'****************************************

"Caroline L." a écrit dans le
message









de
news:

Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le
"Ajouter/Supprimer




des
boutons" qui se place à la droite des barres d'outils,
n'apparaisse






pas
dans
un fichier (seulement dans le fichier actif et non
applicable









dans
tous
les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils
perso.











à
un
classeur
et
j'ai enlevé toutes les barres d'outils et menu excel,
désactiver









le
clic
droit... bref, je veux qu'il n'y ai que ma barre
d'outils.











Mais
en
ouvrant
le classeur sur Windows XP et Excel (microsoft office
10),











tout
est
correct
sauf que je vois le "Ajouter/Supprimer des boutons" qui
est










disponible
alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant
Windows











98
2e
éd.
et
Excel
2000... ce fichier comporte des macros et tout ce passe
bien










sur
le
poste
en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un poste
ayant










Windows
XP
et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque je
clique









sur
n'importe
laquelle des cellules, il y a toujours des messages du
genre










:
"Microsoft
Forms (en titre) et le message : Impossible de charger
le











objet
car
il
n'est
pas disponible sur cette machine". Autre message qui
est











apparu
:
"Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans les
outils









complémentaires, toutes les cases de Microsoft forms 2.0
sont









cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline
















































Avatar
MichDenis
Et j'allais oublier ceci :

Application.CommandBars("Standard").Protection = msoBarNoCustomize

ceci n'a aucun effet réel sur la capacité de modifier la dite barre d'outils sous Excel 2003. Est-ce un bug d'excel ? Car cette
façon de faire fonctionne avec les versions antérieures d'excel !!!


Salutations!





"MichDenis" a écrit dans le message de news:
Bonjour Caroline,

Sous excel 2003, avec un peu plus de test... ça va te coûter beaucoup plus cher !


La réponse que tu attends, tu dois utiliser la combinaison de ces 2 commandes pour faire ce travail :
'------------------------
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True
'------------------------

Voici l'effet de chacune des commandes :
====================================== Application.CommandBars("Toolbar List").Enabled = False

'Désactive le clic droit dans la zone des barres d'outils
'Désactive le menu "Barre d'outils" du menu "Affichage"
Application.CommandBars("Toolbar List").Enabled = False

======================================
Application.CommandBars.DisableCustomize = True

'Désactive le sous-menu (L'extrémité des barres d'outils) permettant la personnalisation de toutes les barres d'outils.
'Désactive la possibilité d'utiliser le double-clic dans la zone des barres d'outils, un truc impossible à faire simplement avec les
autres versions d'excel (Avant 2002)

======================================
P.S. Est-ce que quelqu'un peut vérifier si cette méthode "DisableCustomize" existe sous excel 2000 et 2002, ceci afin de connaître
avec certitude l'implantation de cette méthode dans le modèle objet "excel".


Salutations!





"Caroline L." a écrit dans le message de news:
Bonjour MichDenis,

donc si les 2 façons que tu soulignes ne fonctionnent pas, comment puis-je
résoudre mon problème ? As-tu une suggestion ?

merci d'avance et bonne journée

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,


C'est un bug de Office 2003, car avec toutes les mises à jour, les 2
façons suivantes ne fonctionnent pas.



With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With

Ou en utilisant ceci :

Application.CommandBars.DisableCustomize = True



Salutations!






"Caroline L." a écrit dans le message de news:
%

Bonjour anonymousA,

merci beaucoup, je vais vérifier

Bonne journée

Caroline


"anonymousA" a écrit dans le
message

de news:
bonjour,

je vias être prudent car j'avais un peu répondu hativement l'autre jour
à


une question du même style.
A partir d'Excel 2003, on peut utiliser la méthode Disablecustomize de
l'objet Commandbars qui semble t-il interdit toute modification des
barres


de
commandes.
Je ne peux cependant pas vérifier la nature de cette interdiction ne
possédant pas Excel 2003.
A toi de voir

A+


Re-bonjour !

J'ai refait des tests concernant ma question # 1.
Pour être plus claire, je vais définir les 2 ordinateurs où j'utilise
mon


fichier
Ordinateur A : sur Windows 98, 2e éd., Excel 2000
Ordinateur B : sur Windows XP, Excel microsoft office 10

Donc, j'ai observé de plus près :

- Si j'ouvre mon fichier sur l'ordinateur A, le bouton
Ajouter/Supprimer



des
boutons ne s'affiche que s'il manque de place pour afficher tous les
boutons


que j'ai attaché à une barre d'outils personnelle. Mais heureusement,
cette


option est "grisée", c'est-à-dire inactive....... parfait, c'est ce
que



je
désire.

- Le problème se produit sur l'ordinateur B. L'option
Ajouter/Supprimer



des
boutons s'affiche en tout temps et à mon grand malheur on peut cliquer
dessus et même sur Personnaliser (qui permet d'ajouter des commandes).

Cela ne me dérange pas vraiment si l'option est là mais ELLE SE DOIT
D'ÊTRE


INACTIVE.

Merci pour tout commentaire qui pourrait m'aider à résoudre...

Caroline


"Caroline L." a écrit dans le message de news:

:-))))


"LSteph" a écrit dans le message de news:
#
Re,
... as-tu des idées pour ma question # 1 ?
là je vais faire une vraie poussée de boutons !!!


) o °
° ° )
) ° o

Si c'était le cas je t'aurais evité cela
;-)


"Caroline L." a écrit dans le message de
news:




OGq1a%
Re-re,

ha oui, j'ai oublié....
... as-tu des idées pour ma question # 1 ?
parce que présentement, tous les utilisateurs peuvent ajouter
des






boutons
et
là je vais faire une vraie poussée de boutons !!!

merci



"LSteph" a écrit dans le message de news:

Bonsoir,

Cela a résolu mon pb qui semblait identique au tien/
Le Uf du classeur ouvert (alors que l'on avait upgradé le
poste)







semblait
être la cause du refus d'enregistrement du classeur
car lorsque j'ai enregistré celui-ci sur le poste pourvu du
nouveau






système
puis supprimé celui d'origine du projet et
réimporté celui entregistré ..
Plus de pb pour sauvegarder le classeur.

Donc
Enregistrer (Exporter ) sous un nom le Userform
Le supprimer du classeur dans VBE
et le ré Importer de là où on l'a enregistré sur le poste.
Tester.
Si cela marche.
Enregistrer le classeur.

-----
'lSteph
As-tu testé le message plein écran?






"Caroline L." a écrit dans le message
de







news:

Bonjour LSteph,

pour la bonne version des contrôles : si sur mon système
c'est








calendar
9.0
et sur l'autre ordinateur c'est calendar 10.0... j'ai créé
les








macros
avec
le 9.0, alors il me semble que le système avec le 10.0
devrait








être
capable
de "gérer" ?? tu comprends ?
Alors, je dois ajuster le calendar 9.0 en le modifiant par
celui de







10.0
?



En enregistrant le userform et en l'exportant dans mon
fichier,








qu'est-ce
que cela fait au juste ?



Merci
Caroline


"LSteph" a écrit dans le message de
news:







uNTP#
Bonjour Caroline,

Pour ta question 2:
J'ai eu le m^me pb il y a quelque temps , pour le résoudre
voici








ce
que
j'avais fait:
Vérifier quand même la présence en bonne version des
contôles









(ex:
calendar).
Sélectionner clic droit l'uf dans le gestionnaire de projet
puis








l'Exporter
,c'est à dire enregistrer sous un nom
qui te plait: "monUF1"....par exemple
virer le "monUF1" du classeur chargé,
importer la version enregistrée de "monUF1", rectifier le
nom









le
cas
échéant
dans les macros, tester , enregistrer le classeur.

'lSteph

HS:
A propos pour ton message ouverture totalement plein écran
du








mois
dernier
je t'avais remis un post
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal hWnd As
Long)








As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal
hdc









As
Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd
As









Long,
_
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC,
88) *








72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90)
*









72
ReleaseDC 0, DC


End Sub
'****************************************

"Caroline L." a écrit dans le
message









de
news:

Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le
"Ajouter/Supprimer




des
boutons" qui se place à la droite des barres d'outils,
n'apparaisse






pas
dans
un fichier (seulement dans le fichier actif et non
applicable









dans
tous
les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils perso.
à










un
classeur
et
j'ai enlevé toutes les barres d'outils et menu excel,
désactiver









le
clic
droit... bref, je veux qu'il n'y ai que ma barre d'outils.
Mais









en
ouvrant
le classeur sur Windows XP et Excel (microsoft office 10),
tout









est
correct
sauf que je vois le "Ajouter/Supprimer des boutons" qui
est










disponible
alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant Windows
98










2e
éd.
et
Excel
2000... ce fichier comporte des macros et tout ce passe
bien










sur
le
poste
en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un poste
ayant










Windows
XP
et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque je
clique









sur
n'importe
laquelle des cellules, il y a toujours des messages du
genre










:
"Microsoft
Forms (en titre) et le message : Impossible de charger le
objet









car
il
n'est
pas disponible sur cette machine". Autre message qui est
apparu









:
"Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans les
outils









complémentaires, toutes les cases de Microsoft forms 2.0
sont









cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline











































Avatar
LSteph
On devrait dire MagicDenis

Bonne soirée.

lsteph

"MichDenis" a écrit dans le message de news:

Bonjour Caroline,

Sous excel 2003, avec un peu plus de test... ça va te coûter beaucoup plus
cher !


La réponse que tu attends, tu dois utiliser la combinaison de ces 2
commandes pour faire ce travail :
'------------------------
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True
'------------------------

Voici l'effet de chacune des commandes :
====================================== > Application.CommandBars("Toolbar List").Enabled = False

'Désactive le clic droit dans la zone des barres d'outils
'Désactive le menu "Barre d'outils" du menu "Affichage"
Application.CommandBars("Toolbar List").Enabled = False

====================================== >
Application.CommandBars.DisableCustomize = True

'Désactive le sous-menu (L'extrémité des barres d'outils) permettant la
personnalisation de toutes les barres d'outils.
'Désactive la possibilité d'utiliser le double-clic dans la zone des
barres d'outils, un truc impossible à faire simplement avec les
autres versions d'excel (Avant 2002)

====================================== >
P.S. Est-ce que quelqu'un peut vérifier si cette méthode
"DisableCustomize" existe sous excel 2000 et 2002, ceci afin de connaître
avec certitude l'implantation de cette méthode dans le modèle objet
"excel".


Salutations!





"Caroline L." a écrit dans le message de news:

Bonjour MichDenis,

donc si les 2 façons que tu soulignes ne fonctionnent pas, comment puis-je
résoudre mon problème ? As-tu une suggestion ?

merci d'avance et bonne journée

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,


C'est un bug de Office 2003, car avec toutes les mises à jour, les 2
façons suivantes ne fonctionnent pas.



With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With

Ou en utilisant ceci :

Application.CommandBars.DisableCustomize = True



Salutations!






"Caroline L." a écrit dans le message de news:
%

Bonjour anonymousA,

merci beaucoup, je vais vérifier

Bonne journée

Caroline


"anonymousA" a écrit dans le
message

de news:
bonjour,

je vias être prudent car j'avais un peu répondu hativement l'autre jour
à


une question du même style.
A partir d'Excel 2003, on peut utiliser la méthode Disablecustomize de
l'objet Commandbars qui semble t-il interdit toute modification des
barres


de
commandes.
Je ne peux cependant pas vérifier la nature de cette interdiction ne
possédant pas Excel 2003.
A toi de voir

A+


Re-bonjour !

J'ai refait des tests concernant ma question # 1.
Pour être plus claire, je vais définir les 2 ordinateurs où j'utilise
mon


fichier
Ordinateur A : sur Windows 98, 2e éd., Excel 2000
Ordinateur B : sur Windows XP, Excel microsoft office 10

Donc, j'ai observé de plus près :

- Si j'ouvre mon fichier sur l'ordinateur A, le bouton
Ajouter/Supprimer



des
boutons ne s'affiche que s'il manque de place pour afficher tous les
boutons


que j'ai attaché à une barre d'outils personnelle. Mais
heureusement,
cette


option est "grisée", c'est-à-dire inactive....... parfait, c'est ce
que



je
désire.

- Le problème se produit sur l'ordinateur B. L'option
Ajouter/Supprimer



des
boutons s'affiche en tout temps et à mon grand malheur on peut
cliquer
dessus et même sur Personnaliser (qui permet d'ajouter des
commandes).

Cela ne me dérange pas vraiment si l'option est là mais ELLE SE DOIT
D'ÊTRE


INACTIVE.

Merci pour tout commentaire qui pourrait m'aider à résoudre...

Caroline


"Caroline L." a écrit dans le message de
news:

:-))))


"LSteph" a écrit dans le message de news:
#
Re,
... as-tu des idées pour ma question # 1 ?
là je vais faire une vraie poussée de boutons !!!


) o °
° ° )
) ° o

Si c'était le cas je t'aurais evité cela
;-)


"Caroline L." a écrit dans le message de
news:




OGq1a%
Re-re,

ha oui, j'ai oublié....
... as-tu des idées pour ma question # 1 ?
parce que présentement, tous les utilisateurs peuvent ajouter
des






boutons
et
là je vais faire une vraie poussée de boutons !!!

merci



"LSteph" a écrit dans le message de
news:

Bonsoir,

Cela a résolu mon pb qui semblait identique au tien/
Le Uf du classeur ouvert (alors que l'on avait upgradé le
poste)







semblait
être la cause du refus d'enregistrement du classeur
car lorsque j'ai enregistré celui-ci sur le poste pourvu du
nouveau






système
puis supprimé celui d'origine du projet et
réimporté celui entregistré ..
Plus de pb pour sauvegarder le classeur.

Donc
Enregistrer (Exporter ) sous un nom le Userform
Le supprimer du classeur dans VBE
et le ré Importer de là où on l'a enregistré sur le poste.
Tester.
Si cela marche.
Enregistrer le classeur.

-----
'lSteph
As-tu testé le message plein écran?






"Caroline L." a écrit dans le message
de







news:

Bonjour LSteph,

pour la bonne version des contrôles : si sur mon système
c'est








calendar
9.0
et sur l'autre ordinateur c'est calendar 10.0... j'ai créé
les








macros
avec
le 9.0, alors il me semble que le système avec le 10.0
devrait








être
capable
de "gérer" ?? tu comprends ?
Alors, je dois ajuster le calendar 9.0 en le modifiant par
celui de







10.0
?



En enregistrant le userform et en l'exportant dans mon
fichier,








qu'est-ce
que cela fait au juste ?



Merci
Caroline


"LSteph" a écrit dans le message de
news:







uNTP#
Bonjour Caroline,

Pour ta question 2:
J'ai eu le m^me pb il y a quelque temps , pour le résoudre
voici








ce
que
j'avais fait:
Vérifier quand même la présence en bonne version des
contôles









(ex:
calendar).
Sélectionner clic droit l'uf dans le gestionnaire de projet
puis








l'Exporter
,c'est à dire enregistrer sous un nom
qui te plait: "monUF1"....par exemple
virer le "monUF1" du classeur chargé,
importer la version enregistrée de "monUF1", rectifier le
nom









le
cas
échéant
dans les macros, tester , enregistrer le classeur.

'lSteph

HS:
A propos pour ton message ouverture totalement plein
écran
du








mois
dernier
je t'avais remis un post
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal hWnd As
Long)








As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal
hdc









As
Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd
As









Long,
_
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC,
88) *








72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90)
*









72
ReleaseDC 0, DC


End Sub
'****************************************

"Caroline L." a écrit dans le
message









de
news:

Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le
"Ajouter/Supprimer




des
boutons" qui se place à la droite des barres d'outils,
n'apparaisse






pas
dans
un fichier (seulement dans le fichier actif et non
applicable









dans
tous
les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils
perso.
à










un
classeur
et
j'ai enlevé toutes les barres d'outils et menu excel,
désactiver









le
clic
droit... bref, je veux qu'il n'y ai que ma barre
d'outils.
Mais









en
ouvrant
le classeur sur Windows XP et Excel (microsoft office
10),
tout









est
correct
sauf que je vois le "Ajouter/Supprimer des boutons" qui
est










disponible
alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant Windows
98










2e
éd.
et
Excel
2000... ce fichier comporte des macros et tout ce passe
bien










sur
le
poste
en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un poste
ayant










Windows
XP
et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque je
clique









sur
n'importe
laquelle des cellules, il y a toujours des messages du
genre










:
"Microsoft
Forms (en titre) et le message : Impossible de charger le
objet









car
il
n'est
pas disponible sur cette machine". Autre message qui est
apparu









:
"Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans les
outils









complémentaires, toutes les cases de Microsoft forms 2.0
sont









cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline
















































Avatar
MichDenis
Bonjour JPS,

| je crains fort que sur XL 2002, ça ne Disable pas grand'chose....

Est-ce que tu pourrais être plus précis ? Tu as l'habitude d'être plus volubile que cela ! ;-))


Salutations!





"jps" a écrit dans le message de news:
bonjour tout le monde
je crains fort que sur XL 2002, ça ne Disable pas grand'chose....
jps

"MichDenis" a écrit dans le message de
news:
Bonjour Caroline,

Sous excel 2003, avec un peu plus de test... ça va te coûter beaucoup plus
cher !



La réponse que tu attends, tu dois utiliser la combinaison de ces 2
commandes pour faire ce travail :

'------------------------
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True
'------------------------

Voici l'effet de chacune des commandes :
====================================== > Application.CommandBars("Toolbar List").Enabled = False

'Désactive le clic droit dans la zone des barres d'outils
'Désactive le menu "Barre d'outils" du menu "Affichage"
Application.CommandBars("Toolbar List").Enabled = False

====================================== >
Application.CommandBars.DisableCustomize = True

'Désactive le sous-menu (L'extrémité des barres d'outils) permettant la
personnalisation de toutes les barres d'outils.

'Désactive la possibilité d'utiliser le double-clic dans la zone des
barres d'outils, un truc impossible à faire simplement avec les

autres versions d'excel (Avant 2002)

====================================== >
P.S. Est-ce que quelqu'un peut vérifier si cette méthode
"DisableCustomize" existe sous excel 2000 et 2002, ceci afin de connaître

avec certitude l'implantation de cette méthode dans le modèle objet
"excel".



Salutations!





"Caroline L." a écrit dans le message de news:


Bonjour MichDenis,

donc si les 2 façons que tu soulignes ne fonctionnent pas, comment puis-je
résoudre mon problème ? As-tu une suggestion ?

merci d'avance et bonne journée

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,


C'est un bug de Office 2003, car avec toutes les mises à jour, les 2
façons suivantes ne fonctionnent pas.



With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With

Ou en utilisant ceci :

Application.CommandBars.DisableCustomize = True



Salutations!






"Caroline L." a écrit dans le message de news:
%

Bonjour anonymousA,

merci beaucoup, je vais vérifier

Bonne journée

Caroline


"anonymousA" a écrit dans le
message

de news:
bonjour,

je vias être prudent car j'avais un peu répondu hativement l'autre
jour



à
une question du même style.
A partir d'Excel 2003, on peut utiliser la méthode Disablecustomize de
l'objet Commandbars qui semble t-il interdit toute modification des
barres


de
commandes.
Je ne peux cependant pas vérifier la nature de cette interdiction ne
possédant pas Excel 2003.
A toi de voir

A+


Re-bonjour !

J'ai refait des tests concernant ma question # 1.
Pour être plus claire, je vais définir les 2 ordinateurs où
j'utilise




mon
fichier
Ordinateur A : sur Windows 98, 2e éd., Excel 2000
Ordinateur B : sur Windows XP, Excel microsoft office 10

Donc, j'ai observé de plus près :

- Si j'ouvre mon fichier sur l'ordinateur A, le bouton
Ajouter/Supprimer



des
boutons ne s'affiche que s'il manque de place pour afficher tous les
boutons


que j'ai attaché à une barre d'outils personnelle. Mais
heureusement,




cette
option est "grisée", c'est-à-dire inactive....... parfait, c'est ce
que



je
désire.

- Le problème se produit sur l'ordinateur B. L'option
Ajouter/Supprimer



des
boutons s'affiche en tout temps et à mon grand malheur on peut
cliquer




dessus et même sur Personnaliser (qui permet d'ajouter des
commandes).





Cela ne me dérange pas vraiment si l'option est là mais ELLE SE DOIT
D'ÊTRE


INACTIVE.

Merci pour tout commentaire qui pourrait m'aider à résoudre...

Caroline


"Caroline L." a écrit dans le message de
news:





:-))))


"LSteph" a écrit dans le message de news:
#
Re,
... as-tu des idées pour ma question # 1 ?
là je vais faire une vraie poussée de boutons !!!


) o °
° ° )
) ° o

Si c'était le cas je t'aurais evité cela
;-)


"Caroline L." a écrit dans le message de
news:




OGq1a%
Re-re,

ha oui, j'ai oublié....
... as-tu des idées pour ma question # 1 ?
parce que présentement, tous les utilisateurs peuvent ajouter
des






boutons
et
là je vais faire une vraie poussée de boutons !!!

merci



"LSteph" a écrit dans le message de
news:








Bonsoir,

Cela a résolu mon pb qui semblait identique au tien/
Le Uf du classeur ouvert (alors que l'on avait upgradé le
poste)







semblait
être la cause du refus d'enregistrement du classeur
car lorsque j'ai enregistré celui-ci sur le poste pourvu du
nouveau






système
puis supprimé celui d'origine du projet et
réimporté celui entregistré ..
Plus de pb pour sauvegarder le classeur.

Donc
Enregistrer (Exporter ) sous un nom le Userform
Le supprimer du classeur dans VBE
et le ré Importer de là où on l'a enregistré sur le poste.
Tester.
Si cela marche.
Enregistrer le classeur.

-----
'lSteph
As-tu testé le message plein écran?






"Caroline L." a écrit dans le message
de







news:

Bonjour LSteph,

pour la bonne version des contrôles : si sur mon système
c'est








calendar
9.0
et sur l'autre ordinateur c'est calendar 10.0... j'ai créé
les








macros
avec
le 9.0, alors il me semble que le système avec le 10.0
devrait








être
capable
de "gérer" ?? tu comprends ?
Alors, je dois ajuster le calendar 9.0 en le modifiant par
celui de







10.0
?



En enregistrant le userform et en l'exportant dans mon
fichier,








qu'est-ce
que cela fait au juste ?



Merci
Caroline


"LSteph" a écrit dans le message de
news:







uNTP#
Bonjour Caroline,

Pour ta question 2:
J'ai eu le m^me pb il y a quelque temps , pour le résoudre
voici








ce
que
j'avais fait:
Vérifier quand même la présence en bonne version des
contôles









(ex:
calendar).
Sélectionner clic droit l'uf dans le gestionnaire de
projet










puis
l'Exporter
,c'est à dire enregistrer sous un nom
qui te plait: "monUF1"....par exemple
virer le "monUF1" du classeur chargé,
importer la version enregistrée de "monUF1", rectifier le
nom









le
cas
échéant
dans les macros, tester , enregistrer le classeur.

'lSteph

HS:
A propos pour ton message ouverture totalement plein
écran










du
mois
dernier
je t'avais remis un post
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal hWnd As
Long)








As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal
hdc









As
Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal
hWnd










As
Long,
_
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) /
GetDeviceCaps(DC,










88) *
72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC,
90)










*
72
ReleaseDC 0, DC


End Sub
'****************************************

"Caroline L." a écrit dans le
message









de
news:

Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le
"Ajouter/Supprimer




des
boutons" qui se place à la droite des barres d'outils,
n'apparaisse






pas
dans
un fichier (seulement dans le fichier actif et non
applicable









dans
tous
les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils
perso.











à
un
classeur
et
j'ai enlevé toutes les barres d'outils et menu excel,
désactiver









le
clic
droit... bref, je veux qu'il n'y ai que ma barre
d'outils.











Mais
en
ouvrant
le classeur sur Windows XP et Excel (microsoft office
10),











tout
est
correct
sauf que je vois le "Ajouter/Supprimer des boutons" qui
est










disponible
alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant
Windows











98
2e
éd.
et
Excel
2000... ce fichier comporte des macros et tout ce passe
bien










sur
le
poste
en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un poste
ayant










Windows
XP
et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque je
clique









sur
n'importe
laquelle des cellules, il y a toujours des messages du
genre










:
"Microsoft
Forms (en titre) et le message : Impossible de charger
le











objet
car
il
n'est
pas disponible sur cette machine". Autre message qui
est











apparu
:
"Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans les
outils









complémentaires, toutes les cases de Microsoft forms 2.0
sont









cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline
















































Avatar
jps
bonsoir denis
moi volubile?
je voulais juste dire que si j'exécute cette ligne

Application.CommandBars.DisableCustomize = True

sur XL 2002, eh bien, les extrémités des barres d'outils sont toujours bien
vivantes...
mais peut-être faut-il aussi et avant Enable = False les BO proprement
dites???
jps

"MichDenis" a écrit dans le message de
news:
Bonjour JPS,

| je crains fort que sur XL 2002, ça ne Disable pas grand'chose....

Est-ce que tu pourrais être plus précis ? Tu as l'habitude d'être plus
volubile que cela ! ;-))



Salutations!





"jps" a écrit dans le message de news:


bonjour tout le monde
je crains fort que sur XL 2002, ça ne Disable pas grand'chose....
jps

"MichDenis" a écrit dans le message de
news:
Bonjour Caroline,

Sous excel 2003, avec un peu plus de test... ça va te coûter beaucoup
plus


cher !


La réponse que tu attends, tu dois utiliser la combinaison de ces 2
commandes pour faire ce travail :

'------------------------
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True
'------------------------

Voici l'effet de chacune des commandes :
====================================== > > Application.CommandBars("Toolbar List").Enabled = False

'Désactive le clic droit dans la zone des barres d'outils
'Désactive le menu "Barre d'outils" du menu "Affichage"
Application.CommandBars("Toolbar List").Enabled = False

====================================== > >
Application.CommandBars.DisableCustomize = True

'Désactive le sous-menu (L'extrémité des barres d'outils) permettant la
personnalisation de toutes les barres d'outils.

'Désactive la possibilité d'utiliser le double-clic dans la zone des
barres d'outils, un truc impossible à faire simplement avec les

autres versions d'excel (Avant 2002)

====================================== > >
P.S. Est-ce que quelqu'un peut vérifier si cette méthode
"DisableCustomize" existe sous excel 2000 et 2002, ceci afin de connaître

avec certitude l'implantation de cette méthode dans le modèle objet
"excel".



Salutations!





"Caroline L." a écrit dans le message de news:


Bonjour MichDenis,

donc si les 2 façons que tu soulignes ne fonctionnent pas, comment
puis-je


résoudre mon problème ? As-tu une suggestion ?

merci d'avance et bonne journée

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,


C'est un bug de Office 2003, car avec toutes les mises à jour, les 2
façons suivantes ne fonctionnent pas.



With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With

Ou en utilisant ceci :

Application.CommandBars.DisableCustomize = True



Salutations!






"Caroline L." a écrit dans le message de news:
%

Bonjour anonymousA,

merci beaucoup, je vais vérifier

Bonne journée

Caroline


"anonymousA" a écrit dans le
message

de news:
bonjour,

je vias être prudent car j'avais un peu répondu hativement l'autre
jour



à
une question du même style.
A partir d'Excel 2003, on peut utiliser la méthode Disablecustomize
de




l'objet Commandbars qui semble t-il interdit toute modification des
barres


de
commandes.
Je ne peux cependant pas vérifier la nature de cette interdiction ne
possédant pas Excel 2003.
A toi de voir

A+


Re-bonjour !

J'ai refait des tests concernant ma question # 1.
Pour être plus claire, je vais définir les 2 ordinateurs où
j'utilise




mon
fichier
Ordinateur A : sur Windows 98, 2e éd., Excel 2000
Ordinateur B : sur Windows XP, Excel microsoft office 10

Donc, j'ai observé de plus près :

- Si j'ouvre mon fichier sur l'ordinateur A, le bouton
Ajouter/Supprimer



des
boutons ne s'affiche que s'il manque de place pour afficher tous
les





boutons
que j'ai attaché à une barre d'outils personnelle. Mais
heureusement,




cette
option est "grisée", c'est-à-dire inactive....... parfait, c'est
ce





que
je
désire.

- Le problème se produit sur l'ordinateur B. L'option
Ajouter/Supprimer



des
boutons s'affiche en tout temps et à mon grand malheur on peut
cliquer




dessus et même sur Personnaliser (qui permet d'ajouter des
commandes).





Cela ne me dérange pas vraiment si l'option est là mais ELLE SE
DOIT





D'ÊTRE
INACTIVE.

Merci pour tout commentaire qui pourrait m'aider à résoudre...

Caroline


"Caroline L." a écrit dans le message de
news:





:-))))


"LSteph" a écrit dans le message de news:
#
Re,
... as-tu des idées pour ma question # 1 ?
là je vais faire une vraie poussée de boutons !!!


) o °
° ° )
) ° o

Si c'était le cas je t'aurais evité cela
;-)


"Caroline L." a écrit dans le message
de







news:
OGq1a%
Re-re,

ha oui, j'ai oublié....
... as-tu des idées pour ma question # 1 ?
parce que présentement, tous les utilisateurs peuvent
ajouter








des
boutons
et
là je vais faire une vraie poussée de boutons !!!

merci



"LSteph" a écrit dans le message de
news:








Bonsoir,

Cela a résolu mon pb qui semblait identique au tien/
Le Uf du classeur ouvert (alors que l'on avait upgradé le
poste)







semblait
être la cause du refus d'enregistrement du classeur
car lorsque j'ai enregistré celui-ci sur le poste pourvu du
nouveau






système
puis supprimé celui d'origine du projet et
réimporté celui entregistré ..
Plus de pb pour sauvegarder le classeur.

Donc
Enregistrer (Exporter ) sous un nom le Userform
Le supprimer du classeur dans VBE
et le ré Importer de là où on l'a enregistré sur le poste.
Tester.
Si cela marche.
Enregistrer le classeur.

-----
'lSteph
As-tu testé le message plein écran?






"Caroline L." a écrit dans le
message









de
news:

Bonjour LSteph,

pour la bonne version des contrôles : si sur mon système
c'est








calendar
9.0
et sur l'autre ordinateur c'est calendar 10.0... j'ai
créé










les
macros
avec
le 9.0, alors il me semble que le système avec le 10.0
devrait








être
capable
de "gérer" ?? tu comprends ?
Alors, je dois ajuster le calendar 9.0 en le modifiant
par










celui de
10.0
?



En enregistrant le userform et en l'exportant dans mon
fichier,








qu'est-ce
que cela fait au juste ?



Merci
Caroline


"LSteph" a écrit dans le message
de










news:
uNTP#
Bonjour Caroline,

Pour ta question 2:
J'ai eu le m^me pb il y a quelque temps , pour le
résoudre











voici
ce
que
j'avais fait:
Vérifier quand même la présence en bonne version des
contôles









(ex:
calendar).
Sélectionner clic droit l'uf dans le gestionnaire de
projet










puis
l'Exporter
,c'est à dire enregistrer sous un nom
qui te plait: "monUF1"....par exemple
virer le "monUF1" du classeur chargé,
importer la version enregistrée de "monUF1", rectifier
le











nom
le
cas
échéant
dans les macros, tester , enregistrer le classeur.

'lSteph

HS:
A propos pour ton message ouverture totalement plein
écran










du
mois
dernier
je t'avais remis un post
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal hWnd
As











Long)
As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32"
(ByVal











hdc
As
Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal
hWnd










As
Long,
_
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) /
GetDeviceCaps(DC,










88) *
72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC,
90)










*
72
ReleaseDC 0, DC


End Sub
'****************************************

"Caroline L." a écrit dans le
message









de
news:

Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le
"Ajouter/Supprimer




des
boutons" qui se place à la droite des barres d'outils,
n'apparaisse






pas
dans
un fichier (seulement dans le fichier actif et non
applicable









dans
tous
les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils
perso.











à
un
classeur
et
j'ai enlevé toutes les barres d'outils et menu excel,
désactiver









le
clic
droit... bref, je veux qu'il n'y ai que ma barre
d'outils.











Mais
en
ouvrant
le classeur sur Windows XP et Excel (microsoft office
10),











tout
est
correct
sauf que je vois le "Ajouter/Supprimer des boutons"
qui












est
disponible
alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant
Windows











98
2e
éd.
et
Excel
2000... ce fichier comporte des macros et tout ce
passe












bien
sur
le
poste
en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un poste
ayant










Windows
XP
et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque
je












clique
sur
n'importe
laquelle des cellules, il y a toujours des messages du
genre










:
"Microsoft
Forms (en titre) et le message : Impossible de charger
le











objet
car
il
n'est
pas disponible sur cette machine". Autre message qui
est











apparu
:
"Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans
les












outils
complémentaires, toutes les cases de Microsoft forms
2.0












sont
cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline




















































Avatar
MichDenis
Bonjour JPS,

| les extrémités des barres d'outils sont toujours bien vivantes...

OUI, je sais ....

mais observe, le sous-sous-menu permettant de personnaliser ces barres d'outils "devraient" être désactivé.

Est-ce le cas ?


Salutations!




"jps" a écrit dans le message de news: O8%
bonsoir denis
moi volubile?
je voulais juste dire que si j'exécute cette ligne

Application.CommandBars.DisableCustomize = True

sur XL 2002, eh bien, les extrémités des barres d'outils sont toujours bien
vivantes...
mais peut-être faut-il aussi et avant Enable = False les BO proprement
dites???
jps

"MichDenis" a écrit dans le message de
news:
Bonjour JPS,

| je crains fort que sur XL 2002, ça ne Disable pas grand'chose....

Est-ce que tu pourrais être plus précis ? Tu as l'habitude d'être plus
volubile que cela ! ;-))



Salutations!





"jps" a écrit dans le message de news:


bonjour tout le monde
je crains fort que sur XL 2002, ça ne Disable pas grand'chose....
jps

"MichDenis" a écrit dans le message de
news:
Bonjour Caroline,

Sous excel 2003, avec un peu plus de test... ça va te coûter beaucoup
plus


cher !


La réponse que tu attends, tu dois utiliser la combinaison de ces 2
commandes pour faire ce travail :

'------------------------
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True
'------------------------

Voici l'effet de chacune des commandes :
====================================== > > Application.CommandBars("Toolbar List").Enabled = False

'Désactive le clic droit dans la zone des barres d'outils
'Désactive le menu "Barre d'outils" du menu "Affichage"
Application.CommandBars("Toolbar List").Enabled = False

====================================== > >
Application.CommandBars.DisableCustomize = True

'Désactive le sous-menu (L'extrémité des barres d'outils) permettant la
personnalisation de toutes les barres d'outils.

'Désactive la possibilité d'utiliser le double-clic dans la zone des
barres d'outils, un truc impossible à faire simplement avec les

autres versions d'excel (Avant 2002)

====================================== > >
P.S. Est-ce que quelqu'un peut vérifier si cette méthode
"DisableCustomize" existe sous excel 2000 et 2002, ceci afin de connaître

avec certitude l'implantation de cette méthode dans le modèle objet
"excel".



Salutations!





"Caroline L." a écrit dans le message de news:


Bonjour MichDenis,

donc si les 2 façons que tu soulignes ne fonctionnent pas, comment
puis-je


résoudre mon problème ? As-tu une suggestion ?

merci d'avance et bonne journée

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,


C'est un bug de Office 2003, car avec toutes les mises à jour, les 2
façons suivantes ne fonctionnent pas.



With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With

Ou en utilisant ceci :

Application.CommandBars.DisableCustomize = True



Salutations!






"Caroline L." a écrit dans le message de news:
%

Bonjour anonymousA,

merci beaucoup, je vais vérifier

Bonne journée

Caroline


"anonymousA" a écrit dans le
message

de news:
bonjour,

je vias être prudent car j'avais un peu répondu hativement l'autre
jour



à
une question du même style.
A partir d'Excel 2003, on peut utiliser la méthode Disablecustomize
de




l'objet Commandbars qui semble t-il interdit toute modification des
barres


de
commandes.
Je ne peux cependant pas vérifier la nature de cette interdiction ne
possédant pas Excel 2003.
A toi de voir

A+


Re-bonjour !

J'ai refait des tests concernant ma question # 1.
Pour être plus claire, je vais définir les 2 ordinateurs où
j'utilise




mon
fichier
Ordinateur A : sur Windows 98, 2e éd., Excel 2000
Ordinateur B : sur Windows XP, Excel microsoft office 10

Donc, j'ai observé de plus près :

- Si j'ouvre mon fichier sur l'ordinateur A, le bouton
Ajouter/Supprimer



des
boutons ne s'affiche que s'il manque de place pour afficher tous
les





boutons
que j'ai attaché à une barre d'outils personnelle. Mais
heureusement,




cette
option est "grisée", c'est-à-dire inactive....... parfait, c'est
ce





que
je
désire.

- Le problème se produit sur l'ordinateur B. L'option
Ajouter/Supprimer



des
boutons s'affiche en tout temps et à mon grand malheur on peut
cliquer




dessus et même sur Personnaliser (qui permet d'ajouter des
commandes).





Cela ne me dérange pas vraiment si l'option est là mais ELLE SE
DOIT





D'ÊTRE
INACTIVE.

Merci pour tout commentaire qui pourrait m'aider à résoudre...

Caroline


"Caroline L." a écrit dans le message de
news:





:-))))


"LSteph" a écrit dans le message de news:
#
Re,
... as-tu des idées pour ma question # 1 ?
là je vais faire une vraie poussée de boutons !!!


) o °
° ° )
) ° o

Si c'était le cas je t'aurais evité cela
;-)


"Caroline L." a écrit dans le message
de







news:
OGq1a%
Re-re,

ha oui, j'ai oublié....
... as-tu des idées pour ma question # 1 ?
parce que présentement, tous les utilisateurs peuvent
ajouter








des
boutons
et
là je vais faire une vraie poussée de boutons !!!

merci



"LSteph" a écrit dans le message de
news:








Bonsoir,

Cela a résolu mon pb qui semblait identique au tien/
Le Uf du classeur ouvert (alors que l'on avait upgradé le
poste)







semblait
être la cause du refus d'enregistrement du classeur
car lorsque j'ai enregistré celui-ci sur le poste pourvu du
nouveau






système
puis supprimé celui d'origine du projet et
réimporté celui entregistré ..
Plus de pb pour sauvegarder le classeur.

Donc
Enregistrer (Exporter ) sous un nom le Userform
Le supprimer du classeur dans VBE
et le ré Importer de là où on l'a enregistré sur le poste.
Tester.
Si cela marche.
Enregistrer le classeur.

-----
'lSteph
As-tu testé le message plein écran?






"Caroline L." a écrit dans le
message









de
news:

Bonjour LSteph,

pour la bonne version des contrôles : si sur mon système
c'est








calendar
9.0
et sur l'autre ordinateur c'est calendar 10.0... j'ai
créé










les
macros
avec
le 9.0, alors il me semble que le système avec le 10.0
devrait








être
capable
de "gérer" ?? tu comprends ?
Alors, je dois ajuster le calendar 9.0 en le modifiant
par










celui de
10.0
?



En enregistrant le userform et en l'exportant dans mon
fichier,








qu'est-ce
que cela fait au juste ?



Merci
Caroline


"LSteph" a écrit dans le message
de










news:
uNTP#
Bonjour Caroline,

Pour ta question 2:
J'ai eu le m^me pb il y a quelque temps , pour le
résoudre











voici
ce
que
j'avais fait:
Vérifier quand même la présence en bonne version des
contôles









(ex:
calendar).
Sélectionner clic droit l'uf dans le gestionnaire de
projet










puis
l'Exporter
,c'est à dire enregistrer sous un nom
qui te plait: "monUF1"....par exemple
virer le "monUF1" du classeur chargé,
importer la version enregistrée de "monUF1", rectifier
le











nom
le
cas
échéant
dans les macros, tester , enregistrer le classeur.

'lSteph

HS:
A propos pour ton message ouverture totalement plein
écran










du
mois
dernier
je t'avais remis un post
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal hWnd
As











Long)
As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32"
(ByVal











hdc
As
Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal
hWnd










As
Long,
_
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) /
GetDeviceCaps(DC,










88) *
72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC,
90)










*
72
ReleaseDC 0, DC


End Sub
'****************************************

"Caroline L." a écrit dans le
message









de
news:

Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le
"Ajouter/Supprimer




des
boutons" qui se place à la droite des barres d'outils,
n'apparaisse






pas
dans
un fichier (seulement dans le fichier actif et non
applicable









dans
tous
les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils
perso.











à
un
classeur
et
j'ai enlevé toutes les barres d'outils et menu excel,
désactiver









le
clic
droit... bref, je veux qu'il n'y ai que ma barre
d'outils.











Mais
en
ouvrant
le classeur sur Windows XP et Excel (microsoft office
10),











tout
est
correct
sauf que je vois le "Ajouter/Supprimer des boutons"
qui












est
disponible
alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant
Windows











98
2e
éd.
et
Excel
2000... ce fichier comporte des macros et tout ce
passe












bien
sur
le
poste
en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un poste
ayant










Windows
XP
et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque
je












clique
sur
n'importe
laquelle des cellules, il y a toujours des messages du
genre










:
"Microsoft
Forms (en titre) et le message : Impossible de charger
le











objet
car
il
n'est
pas disponible sur cette machine". Autre message qui
est











apparu
:
"Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans
les












outils
complémentaires, toutes les cases de Microsoft forms
2.0












sont
cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline




















































Avatar
jps
hé que non, justement, sinon j'aurions pas interviendu, denis...
jps

"MichDenis" a écrit dans le message de
news:uk%
Bonjour JPS,

| les extrémités des barres d'outils sont toujours bien vivantes...

OUI, je sais ....

mais observe, le sous-sous-menu permettant de personnaliser ces barres
d'outils "devraient" être désactivé.


Est-ce le cas ?


Salutations!




"jps" a écrit dans le message de news:
O8%

bonsoir denis
moi volubile?
je voulais juste dire que si j'exécute cette ligne

Application.CommandBars.DisableCustomize = True

sur XL 2002, eh bien, les extrémités des barres d'outils sont toujours
bien

vivantes...
mais peut-être faut-il aussi et avant Enable = False les BO proprement
dites???
jps

"MichDenis" a écrit dans le message de
news:
Bonjour JPS,

| je crains fort que sur XL 2002, ça ne Disable pas grand'chose....

Est-ce que tu pourrais être plus précis ? Tu as l'habitude d'être plus
volubile que cela ! ;-))



Salutations!





"jps" a écrit dans le message de news:


bonjour tout le monde
je crains fort que sur XL 2002, ça ne Disable pas grand'chose....
jps

"MichDenis" a écrit dans le message de
news:
Bonjour Caroline,

Sous excel 2003, avec un peu plus de test... ça va te coûter beaucoup
plus


cher !


La réponse que tu attends, tu dois utiliser la combinaison de ces 2
commandes pour faire ce travail :

'------------------------
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True
'------------------------

Voici l'effet de chacune des commandes :
====================================== > > > Application.CommandBars("Toolbar List").Enabled = False

'Désactive le clic droit dans la zone des barres d'outils
'Désactive le menu "Barre d'outils" du menu "Affichage"
Application.CommandBars("Toolbar List").Enabled = False

====================================== > > >
Application.CommandBars.DisableCustomize = True

'Désactive le sous-menu (L'extrémité des barres d'outils) permettant
la



personnalisation de toutes les barres d'outils.
'Désactive la possibilité d'utiliser le double-clic dans la zone des
barres d'outils, un truc impossible à faire simplement avec les

autres versions d'excel (Avant 2002)

====================================== > > >
P.S. Est-ce que quelqu'un peut vérifier si cette méthode
"DisableCustomize" existe sous excel 2000 et 2002, ceci afin de

connaître


avec certitude l'implantation de cette méthode dans le modèle objet
"excel".



Salutations!





"Caroline L." a écrit dans le message de news:


Bonjour MichDenis,

donc si les 2 façons que tu soulignes ne fonctionnent pas, comment
puis-je


résoudre mon problème ? As-tu une suggestion ?

merci d'avance et bonne journée

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,


C'est un bug de Office 2003, car avec toutes les mises à jour, les 2
façons suivantes ne fonctionnent pas.



With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With

Ou en utilisant ceci :

Application.CommandBars.DisableCustomize = True



Salutations!






"Caroline L." a écrit dans le message de
news:




%
Bonjour anonymousA,

merci beaucoup, je vais vérifier

Bonne journée

Caroline


"anonymousA" a écrit dans le
message

de news:
bonjour,

je vias être prudent car j'avais un peu répondu hativement l'autre
jour



à
une question du même style.
A partir d'Excel 2003, on peut utiliser la méthode
Disablecustomize





de
l'objet Commandbars qui semble t-il interdit toute modification
des





barres
de
commandes.
Je ne peux cependant pas vérifier la nature de cette interdiction
ne





possédant pas Excel 2003.
A toi de voir

A+


Re-bonjour !

J'ai refait des tests concernant ma question # 1.
Pour être plus claire, je vais définir les 2 ordinateurs où
j'utilise




mon
fichier
Ordinateur A : sur Windows 98, 2e éd., Excel 2000
Ordinateur B : sur Windows XP, Excel microsoft office 10

Donc, j'ai observé de plus près :

- Si j'ouvre mon fichier sur l'ordinateur A, le bouton
Ajouter/Supprimer



des
boutons ne s'affiche que s'il manque de place pour afficher tous
les





boutons
que j'ai attaché à une barre d'outils personnelle. Mais
heureusement,




cette
option est "grisée", c'est-à-dire inactive....... parfait, c'est
ce





que
je
désire.

- Le problème se produit sur l'ordinateur B. L'option
Ajouter/Supprimer



des
boutons s'affiche en tout temps et à mon grand malheur on peut
cliquer




dessus et même sur Personnaliser (qui permet d'ajouter des
commandes).





Cela ne me dérange pas vraiment si l'option est là mais ELLE SE
DOIT





D'ÊTRE
INACTIVE.

Merci pour tout commentaire qui pourrait m'aider à résoudre...

Caroline


"Caroline L." a écrit dans le message de
news:





:-))))


"LSteph" a écrit dans le message de
news:







#
Re,
... as-tu des idées pour ma question # 1 ?
là je vais faire une vraie poussée de boutons !!!


) o °
° ° )
) ° o

Si c'était le cas je t'aurais evité cela
;-)


"Caroline L." a écrit dans le
message








de
news:
OGq1a%
Re-re,

ha oui, j'ai oublié....
... as-tu des idées pour ma question # 1 ?
parce que présentement, tous les utilisateurs peuvent
ajouter








des
boutons
et
là je vais faire une vraie poussée de boutons !!!

merci



"LSteph" a écrit dans le message de
news:








Bonsoir,

Cela a résolu mon pb qui semblait identique au tien/
Le Uf du classeur ouvert (alors que l'on avait upgradé le
poste)







semblait
être la cause du refus d'enregistrement du classeur
car lorsque j'ai enregistré celui-ci sur le poste pourvu
du










nouveau
système
puis supprimé celui d'origine du projet et
réimporté celui entregistré ..
Plus de pb pour sauvegarder le classeur.

Donc
Enregistrer (Exporter ) sous un nom le Userform
Le supprimer du classeur dans VBE
et le ré Importer de là où on l'a enregistré sur le
poste.










Tester.
Si cela marche.
Enregistrer le classeur.

-----
'lSteph
As-tu testé le message plein écran?






"Caroline L." a écrit dans le
message









de
news:

Bonjour LSteph,

pour la bonne version des contrôles : si sur mon
système











c'est
calendar
9.0
et sur l'autre ordinateur c'est calendar 10.0... j'ai
créé










les
macros
avec
le 9.0, alors il me semble que le système avec le 10.0
devrait








être
capable
de "gérer" ?? tu comprends ?
Alors, je dois ajuster le calendar 9.0 en le modifiant
par










celui de
10.0
?



En enregistrant le userform et en l'exportant dans mon
fichier,








qu'est-ce
que cela fait au juste ?



Merci
Caroline


"LSteph" a écrit dans le message
de










news:
uNTP#
Bonjour Caroline,

Pour ta question 2:
J'ai eu le m^me pb il y a quelque temps , pour le
résoudre











voici
ce
que
j'avais fait:
Vérifier quand même la présence en bonne version des
contôles









(ex:
calendar).
Sélectionner clic droit l'uf dans le gestionnaire de
projet










puis
l'Exporter
,c'est à dire enregistrer sous un nom
qui te plait: "monUF1"....par exemple
virer le "monUF1" du classeur chargé,
importer la version enregistrée de "monUF1", rectifier
le











nom
le
cas
échéant
dans les macros, tester , enregistrer le classeur.

'lSteph

HS:
A propos pour ton message ouverture totalement plein
écran










du
mois
dernier
je t'avais remis un post
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal
hWnd












As
Long)
As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32"
(ByVal











hdc
As
Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal
hWnd










As
Long,
_
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) /
GetDeviceCaps(DC,










88) *
72)
Me.Height = GetDeviceCaps(DC, 10) /
GetDeviceCaps(DC,












90)
*
72
ReleaseDC 0, DC


End Sub
'****************************************

"Caroline L." a écrit dans le
message









de
news:

Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le
"Ajouter/Supprimer




des
boutons" qui se place à la droite des barres
d'outils,













n'apparaisse
pas
dans
un fichier (seulement dans le fichier actif et non
applicable









dans
tous
les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils
perso.











à
un
classeur
et
j'ai enlevé toutes les barres d'outils et menu
excel,













désactiver
le
clic
droit... bref, je veux qu'il n'y ai que ma barre
d'outils.











Mais
en
ouvrant
le classeur sur Windows XP et Excel (microsoft
office













10),
tout
est
correct
sauf que je vois le "Ajouter/Supprimer des boutons"
qui












est
disponible
alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant
Windows











98
2e
éd.
et
Excel
2000... ce fichier comporte des macros et tout ce
passe












bien
sur
le
poste
en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un
poste













ayant
Windows
XP
et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque
je












clique
sur
n'importe
laquelle des cellules, il y a toujours des messages
du













genre
:
"Microsoft
Forms (en titre) et le message : Impossible de
charger













le
objet
car
il
n'est
pas disponible sur cette machine". Autre message
qui













est
apparu
:
"Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans
les












outils
complémentaires, toutes les cases de Microsoft forms
2.0












sont
cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline
























































Avatar
MichDenis
Et bien, Merci JPS.


Je me demande bien quel est le rôle de cette méthode "DisableCustomize" sous Excel 2002.


Bonne fin de soirée.


Salutations!



"jps" a écrit dans le message de news:
hé que non, justement, sinon j'aurions pas interviendu, denis...
jps

"MichDenis" a écrit dans le message de
news:uk%
Bonjour JPS,

| les extrémités des barres d'outils sont toujours bien vivantes...

OUI, je sais ....

mais observe, le sous-sous-menu permettant de personnaliser ces barres
d'outils "devraient" être désactivé.


Est-ce le cas ?


Salutations!




"jps" a écrit dans le message de news:
O8%

bonsoir denis
moi volubile?
je voulais juste dire que si j'exécute cette ligne

Application.CommandBars.DisableCustomize = True

sur XL 2002, eh bien, les extrémités des barres d'outils sont toujours
bien

vivantes...
mais peut-être faut-il aussi et avant Enable = False les BO proprement
dites???
jps

"MichDenis" a écrit dans le message de
news:
Bonjour JPS,

| je crains fort que sur XL 2002, ça ne Disable pas grand'chose....

Est-ce que tu pourrais être plus précis ? Tu as l'habitude d'être plus
volubile que cela ! ;-))



Salutations!





"jps" a écrit dans le message de news:


bonjour tout le monde
je crains fort que sur XL 2002, ça ne Disable pas grand'chose....
jps

"MichDenis" a écrit dans le message de
news:
Bonjour Caroline,

Sous excel 2003, avec un peu plus de test... ça va te coûter beaucoup
plus


cher !


La réponse que tu attends, tu dois utiliser la combinaison de ces 2
commandes pour faire ce travail :

'------------------------
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True
'------------------------

Voici l'effet de chacune des commandes :
====================================== > > > Application.CommandBars("Toolbar List").Enabled = False

'Désactive le clic droit dans la zone des barres d'outils
'Désactive le menu "Barre d'outils" du menu "Affichage"
Application.CommandBars("Toolbar List").Enabled = False

====================================== > > >
Application.CommandBars.DisableCustomize = True

'Désactive le sous-menu (L'extrémité des barres d'outils) permettant
la



personnalisation de toutes les barres d'outils.
'Désactive la possibilité d'utiliser le double-clic dans la zone des
barres d'outils, un truc impossible à faire simplement avec les

autres versions d'excel (Avant 2002)

====================================== > > >
P.S. Est-ce que quelqu'un peut vérifier si cette méthode
"DisableCustomize" existe sous excel 2000 et 2002, ceci afin de

connaître


avec certitude l'implantation de cette méthode dans le modèle objet
"excel".



Salutations!





"Caroline L." a écrit dans le message de news:


Bonjour MichDenis,

donc si les 2 façons que tu soulignes ne fonctionnent pas, comment
puis-je


résoudre mon problème ? As-tu une suggestion ?

merci d'avance et bonne journée

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,


C'est un bug de Office 2003, car avec toutes les mises à jour, les 2
façons suivantes ne fonctionnent pas.



With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With

Ou en utilisant ceci :

Application.CommandBars.DisableCustomize = True



Salutations!






"Caroline L." a écrit dans le message de
news:




%
Bonjour anonymousA,

merci beaucoup, je vais vérifier

Bonne journée

Caroline


"anonymousA" a écrit dans le
message

de news:
bonjour,

je vias être prudent car j'avais un peu répondu hativement l'autre
jour



à
une question du même style.
A partir d'Excel 2003, on peut utiliser la méthode
Disablecustomize





de
l'objet Commandbars qui semble t-il interdit toute modification
des





barres
de
commandes.
Je ne peux cependant pas vérifier la nature de cette interdiction
ne





possédant pas Excel 2003.
A toi de voir

A+


Re-bonjour !

J'ai refait des tests concernant ma question # 1.
Pour être plus claire, je vais définir les 2 ordinateurs où
j'utilise




mon
fichier
Ordinateur A : sur Windows 98, 2e éd., Excel 2000
Ordinateur B : sur Windows XP, Excel microsoft office 10

Donc, j'ai observé de plus près :

- Si j'ouvre mon fichier sur l'ordinateur A, le bouton
Ajouter/Supprimer



des
boutons ne s'affiche que s'il manque de place pour afficher tous
les





boutons
que j'ai attaché à une barre d'outils personnelle. Mais
heureusement,




cette
option est "grisée", c'est-à-dire inactive....... parfait, c'est
ce





que
je
désire.

- Le problème se produit sur l'ordinateur B. L'option
Ajouter/Supprimer



des
boutons s'affiche en tout temps et à mon grand malheur on peut
cliquer




dessus et même sur Personnaliser (qui permet d'ajouter des
commandes).





Cela ne me dérange pas vraiment si l'option est là mais ELLE SE
DOIT





D'ÊTRE
INACTIVE.

Merci pour tout commentaire qui pourrait m'aider à résoudre...

Caroline


"Caroline L." a écrit dans le message de
news:





:-))))


"LSteph" a écrit dans le message de
news:







#
Re,
... as-tu des idées pour ma question # 1 ?
là je vais faire une vraie poussée de boutons !!!


) o °
° ° )
) ° o

Si c'était le cas je t'aurais evité cela
;-)


"Caroline L." a écrit dans le
message








de
news:
OGq1a%
Re-re,

ha oui, j'ai oublié....
... as-tu des idées pour ma question # 1 ?
parce que présentement, tous les utilisateurs peuvent
ajouter








des
boutons
et
là je vais faire une vraie poussée de boutons !!!

merci



"LSteph" a écrit dans le message de
news:








Bonsoir,

Cela a résolu mon pb qui semblait identique au tien/
Le Uf du classeur ouvert (alors que l'on avait upgradé le
poste)







semblait
être la cause du refus d'enregistrement du classeur
car lorsque j'ai enregistré celui-ci sur le poste pourvu
du










nouveau
système
puis supprimé celui d'origine du projet et
réimporté celui entregistré ..
Plus de pb pour sauvegarder le classeur.

Donc
Enregistrer (Exporter ) sous un nom le Userform
Le supprimer du classeur dans VBE
et le ré Importer de là où on l'a enregistré sur le
poste.










Tester.
Si cela marche.
Enregistrer le classeur.

-----
'lSteph
As-tu testé le message plein écran?






"Caroline L." a écrit dans le
message









de
news:

Bonjour LSteph,

pour la bonne version des contrôles : si sur mon
système











c'est
calendar
9.0
et sur l'autre ordinateur c'est calendar 10.0... j'ai
créé










les
macros
avec
le 9.0, alors il me semble que le système avec le 10.0
devrait








être
capable
de "gérer" ?? tu comprends ?
Alors, je dois ajuster le calendar 9.0 en le modifiant
par










celui de
10.0
?



En enregistrant le userform et en l'exportant dans mon
fichier,








qu'est-ce
que cela fait au juste ?



Merci
Caroline


"LSteph" a écrit dans le message
de










news:
uNTP#
Bonjour Caroline,

Pour ta question 2:
J'ai eu le m^me pb il y a quelque temps , pour le
résoudre











voici
ce
que
j'avais fait:
Vérifier quand même la présence en bonne version des
contôles









(ex:
calendar).
Sélectionner clic droit l'uf dans le gestionnaire de
projet










puis
l'Exporter
,c'est à dire enregistrer sous un nom
qui te plait: "monUF1"....par exemple
virer le "monUF1" du classeur chargé,
importer la version enregistrée de "monUF1", rectifier
le











nom
le
cas
échéant
dans les macros, tester , enregistrer le classeur.

'lSteph

HS:
A propos pour ton message ouverture totalement plein
écran










du
mois
dernier
je t'avais remis un post
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal
hWnd












As
Long)
As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32"
(ByVal











hdc
As
Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal
hWnd










As
Long,
_
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) /
GetDeviceCaps(DC,










88) *
72)
Me.Height = GetDeviceCaps(DC, 10) /
GetDeviceCaps(DC,












90)
*
72
ReleaseDC 0, DC


End Sub
'****************************************

"Caroline L." a écrit dans le
message









de
news:

Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le
"Ajouter/Supprimer




des
boutons" qui se place à la droite des barres
d'outils,













n'apparaisse
pas
dans
un fichier (seulement dans le fichier actif et non
applicable









dans
tous
les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils
perso.











à
un
classeur
et
j'ai enlevé toutes les barres d'outils et menu
excel,













désactiver
le
clic
droit... bref, je veux qu'il n'y ai que ma barre
d'outils.











Mais
en
ouvrant
le classeur sur Windows XP et Excel (microsoft
office













10),
tout
est
correct
sauf que je vois le "Ajouter/Supprimer des boutons"
qui












est
disponible
alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant
Windows











98
2e
éd.
et
Excel
2000... ce fichier comporte des macros et tout ce
passe












bien
sur
le
poste
en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un
poste













ayant
Windows
XP
et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque
je












clique
sur
n'importe
laquelle des cellules, il y a toujours des messages
du













genre
:
"Microsoft
Forms (en titre) et le message : Impossible de
charger













le
objet
car
il
n'est
pas disponible sur cette machine". Autre message
qui













est
apparu
:
"Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans
les












outils
complémentaires, toutes les cases de Microsoft forms
2.0












sont
cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline
























































Avatar
Caroline L.
Bonsoir LSteph,

c'est vrai, je pourrais créer un menu mais le problème c'est que dans mon
classeur j'ai aussi enlever tous les menus et de plus, j'ai créer des
boutons personnalisés (quoi que je pourrais les insérer dans le nouveau
menu). Hum... je ne suis pas certaine. J'ai fabriqué de beaux icônes pour
agrémenter et faciliter l'utilisation. Je préfère voir toutes les "options"
en ligne horizontale......... ha les femmes...... !!!

Merci quand même, je garde ton idée en back-up au cas où rien mais rien de
serait possible.

Merci :-)
Caroline



"LSteph" a écrit dans le message de news:
#
Bonsoir Caroline,
Si MD confirme , il y a plus que fort à envisager de changer le fusil
d'épaule,
il reste donc bien peu de chances, même si on a déjà vu que rien est
impossible...

En attendant pour contourner, j'ai bien une idée potentiellement mauvaise
mais qui pourrait marcher:
tu pourrais créer un menu au lieu d'une barre d'outils
et virer toutes les barres d'outils.

'****************
Sub Disablcmb()
'vire les Bo sauf la barre menus
For i = 1 To Application.CommandBars.Count

If i > 1 Then CommandBars(i).Enabled = False
Next
End Sub
'**
Sub Enablcmb()
'Plus important pour Remettre les Bo
For i = 1 To Application.CommandBars.Count

CommandBars(i).Enabled = True
Next
End Sub
'*******

'lSteph


"Caroline L." a écrit dans le message de news:

Bonjour MichDenis,

donc si les 2 façons que tu soulignes ne fonctionnent pas, comment
puis-je


résoudre mon problème ? As-tu une suggestion ?

merci d'avance et bonne journée

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,


C'est un bug de Office 2003, car avec toutes les mises à jour, les 2
façons suivantes ne fonctionnent pas.



With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With

Ou en utilisant ceci :

Application.CommandBars.DisableCustomize = True



Salutations!






"Caroline L." a écrit dans le message de news:
%

Bonjour anonymousA,

merci beaucoup, je vais vérifier

Bonne journée

Caroline


"anonymousA" a écrit dans le
message

de news:
bonjour,

je vias être prudent car j'avais un peu répondu hativement l'autre
jour




à
une question du même style.
A partir d'Excel 2003, on peut utiliser la méthode Disablecustomize
de




l'objet Commandbars qui semble t-il interdit toute modification des
barres


de
commandes.
Je ne peux cependant pas vérifier la nature de cette interdiction ne
possédant pas Excel 2003.
A toi de voir

A+


Re-bonjour !

J'ai refait des tests concernant ma question # 1.
Pour être plus claire, je vais définir les 2 ordinateurs où
j'utilise





mon
fichier
Ordinateur A : sur Windows 98, 2e éd., Excel 2000
Ordinateur B : sur Windows XP, Excel microsoft office 10

Donc, j'ai observé de plus près :

- Si j'ouvre mon fichier sur l'ordinateur A, le bouton
Ajouter/Supprimer



des
boutons ne s'affiche que s'il manque de place pour afficher tous
les





boutons
que j'ai attaché à une barre d'outils personnelle. Mais
heureusement,
cette


option est "grisée", c'est-à-dire inactive....... parfait, c'est ce
que



je
désire.

- Le problème se produit sur l'ordinateur B. L'option
Ajouter/Supprimer



des
boutons s'affiche en tout temps et à mon grand malheur on peut
cliquer
dessus et même sur Personnaliser (qui permet d'ajouter des
commandes).

Cela ne me dérange pas vraiment si l'option est là mais ELLE SE
DOIT





D'ÊTRE
INACTIVE.

Merci pour tout commentaire qui pourrait m'aider à résoudre...

Caroline


"Caroline L." a écrit dans le message de
news:

:-))))


"LSteph" a écrit dans le message de news:
#
Re,
... as-tu des idées pour ma question # 1 ?
là je vais faire une vraie poussée de boutons !!!


) o °
° ° )
) ° o

Si c'était le cas je t'aurais evité cela
;-)


"Caroline L." a écrit dans le message
de







news:
OGq1a%
Re-re,

ha oui, j'ai oublié....
... as-tu des idées pour ma question # 1 ?
parce que présentement, tous les utilisateurs peuvent ajouter
des






boutons
et
là je vais faire une vraie poussée de boutons !!!

merci



"LSteph" a écrit dans le message de
news:

Bonsoir,

Cela a résolu mon pb qui semblait identique au tien/
Le Uf du classeur ouvert (alors que l'on avait upgradé le
poste)







semblait
être la cause du refus d'enregistrement du classeur
car lorsque j'ai enregistré celui-ci sur le poste pourvu du
nouveau






système
puis supprimé celui d'origine du projet et
réimporté celui entregistré ..
Plus de pb pour sauvegarder le classeur.

Donc
Enregistrer (Exporter ) sous un nom le Userform
Le supprimer du classeur dans VBE
et le ré Importer de là où on l'a enregistré sur le poste.
Tester.
Si cela marche.
Enregistrer le classeur.

-----
'lSteph
As-tu testé le message plein écran?






"Caroline L." a écrit dans le
message









de
news:

Bonjour LSteph,

pour la bonne version des contrôles : si sur mon système
c'est








calendar
9.0
et sur l'autre ordinateur c'est calendar 10.0... j'ai créé
les








macros
avec
le 9.0, alors il me semble que le système avec le 10.0
devrait








être
capable
de "gérer" ?? tu comprends ?
Alors, je dois ajuster le calendar 9.0 en le modifiant par
celui de







10.0
?



En enregistrant le userform et en l'exportant dans mon
fichier,








qu'est-ce
que cela fait au juste ?



Merci
Caroline


"LSteph" a écrit dans le message de
news:







uNTP#
Bonjour Caroline,

Pour ta question 2:
J'ai eu le m^me pb il y a quelque temps , pour le
résoudre











voici
ce
que
j'avais fait:
Vérifier quand même la présence en bonne version des
contôles









(ex:
calendar).
Sélectionner clic droit l'uf dans le gestionnaire de
projet











puis
l'Exporter
,c'est à dire enregistrer sous un nom
qui te plait: "monUF1"....par exemple
virer le "monUF1" du classeur chargé,
importer la version enregistrée de "monUF1", rectifier le
nom









le
cas
échéant
dans les macros, tester , enregistrer le classeur.

'lSteph

HS:
A propos pour ton message ouverture totalement plein
écran
du








mois
dernier
je t'avais remis un post
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal hWnd
As











Long)
As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal
hdc









As
Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal
hWnd











As
Long,
_
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) /
GetDeviceCaps(DC,











88) *
72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC,
90)











*
72
ReleaseDC 0, DC


End Sub
'****************************************

"Caroline L." a écrit dans le
message









de
news:

Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le
"Ajouter/Supprimer




des
boutons" qui se place à la droite des barres d'outils,
n'apparaisse






pas
dans
un fichier (seulement dans le fichier actif et non
applicable









dans
tous
les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils
perso.
à










un
classeur
et
j'ai enlevé toutes les barres d'outils et menu excel,
désactiver









le
clic
droit... bref, je veux qu'il n'y ai que ma barre
d'outils.
Mais









en
ouvrant
le classeur sur Windows XP et Excel (microsoft office
10),
tout









est
correct
sauf que je vois le "Ajouter/Supprimer des boutons" qui
est










disponible
alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant
Windows












98
2e
éd.
et
Excel
2000... ce fichier comporte des macros et tout ce passe
bien










sur
le
poste
en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un poste
ayant










Windows
XP
et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque je
clique









sur
n'importe
laquelle des cellules, il y a toujours des messages du
genre










:
"Microsoft
Forms (en titre) et le message : Impossible de charger
le












objet
car
il
n'est
pas disponible sur cette machine". Autre message qui
est












apparu
:
"Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans les
outils









complémentaires, toutes les cases de Microsoft forms
2.0












sont
cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline



















































Avatar
Caroline L.
Bonsoir MichDenis,

Sous excel 2003, avec un peu plus de test... ça va te coûter beaucoup plus
cher !

À quel nom je fais le chèque ??!!!!!!

Oui, je crois bien que les 2 commandes que tu suggères feront l'affaire.
J'aurai accès à l'ordinateur "B" que jeudi ou vendredi... donc je te
donnerai des nouvelles comment ça se passe. Merci pour tout !

Pour ta question de la commande DisableCustomize en excel 2000 :
J'ai Excel 2000 et j'ai fait le test; résultat :
Message d'erreur : Erreur de compilation,
Membre de méthode ou de données introuvable.

Je crois que ça va être la ligne "Application.CommandBars.DisableCustomize True"
qui me sera utile car dans mon classeur j'ai également enlevé les menus
excel, il ne reste que ma barre d'outils perso. attachée au classeur.

Merci encore

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,

Sous excel 2003, avec un peu plus de test... ça va te coûter beaucoup plus
cher !



La réponse que tu attends, tu dois utiliser la combinaison de ces 2
commandes pour faire ce travail :

'------------------------
Application.CommandBars("Toolbar List").Enabled = False
Application.CommandBars.DisableCustomize = True
'------------------------

Voici l'effet de chacune des commandes :
====================================== > Application.CommandBars("Toolbar List").Enabled = False

'Désactive le clic droit dans la zone des barres d'outils
'Désactive le menu "Barre d'outils" du menu "Affichage"
Application.CommandBars("Toolbar List").Enabled = False

====================================== >
Application.CommandBars.DisableCustomize = True

'Désactive le sous-menu (L'extrémité des barres d'outils) permettant la
personnalisation de toutes les barres d'outils.

'Désactive la possibilité d'utiliser le double-clic dans la zone des
barres d'outils, un truc impossible à faire simplement avec les

autres versions d'excel (Avant 2002)

====================================== >
P.S. Est-ce que quelqu'un peut vérifier si cette méthode
"DisableCustomize" existe sous excel 2000 et 2002, ceci afin de connaître

avec certitude l'implantation de cette méthode dans le modèle objet
"excel".



Salutations!





"Caroline L." a écrit dans le message de news:


Bonjour MichDenis,

donc si les 2 façons que tu soulignes ne fonctionnent pas, comment puis-je
résoudre mon problème ? As-tu une suggestion ?

merci d'avance et bonne journée

Caroline



"MichDenis" a écrit dans le message de news:

Bonjour Caroline,


C'est un bug de Office 2003, car avec toutes les mises à jour, les 2
façons suivantes ne fonctionnent pas.



With Application.CommandBars("Standard")
.Protection = msoBarNoCustomize
End With

Ou en utilisant ceci :

Application.CommandBars.DisableCustomize = True



Salutations!






"Caroline L." a écrit dans le message de news:
%

Bonjour anonymousA,

merci beaucoup, je vais vérifier

Bonne journée

Caroline


"anonymousA" a écrit dans le
message

de news:
bonjour,

je vias être prudent car j'avais un peu répondu hativement l'autre
jour



à
une question du même style.
A partir d'Excel 2003, on peut utiliser la méthode Disablecustomize de
l'objet Commandbars qui semble t-il interdit toute modification des
barres


de
commandes.
Je ne peux cependant pas vérifier la nature de cette interdiction ne
possédant pas Excel 2003.
A toi de voir

A+


Re-bonjour !

J'ai refait des tests concernant ma question # 1.
Pour être plus claire, je vais définir les 2 ordinateurs où
j'utilise




mon
fichier
Ordinateur A : sur Windows 98, 2e éd., Excel 2000
Ordinateur B : sur Windows XP, Excel microsoft office 10

Donc, j'ai observé de plus près :

- Si j'ouvre mon fichier sur l'ordinateur A, le bouton
Ajouter/Supprimer



des
boutons ne s'affiche que s'il manque de place pour afficher tous les
boutons


que j'ai attaché à une barre d'outils personnelle. Mais
heureusement,




cette
option est "grisée", c'est-à-dire inactive....... parfait, c'est ce
que



je
désire.

- Le problème se produit sur l'ordinateur B. L'option
Ajouter/Supprimer



des
boutons s'affiche en tout temps et à mon grand malheur on peut
cliquer




dessus et même sur Personnaliser (qui permet d'ajouter des
commandes).





Cela ne me dérange pas vraiment si l'option est là mais ELLE SE DOIT
D'ÊTRE


INACTIVE.

Merci pour tout commentaire qui pourrait m'aider à résoudre...

Caroline


"Caroline L." a écrit dans le message de
news:





:-))))


"LSteph" a écrit dans le message de news:
#
Re,
... as-tu des idées pour ma question # 1 ?
là je vais faire une vraie poussée de boutons !!!


) o °
° ° )
) ° o

Si c'était le cas je t'aurais evité cela
;-)


"Caroline L." a écrit dans le message de
news:




OGq1a%
Re-re,

ha oui, j'ai oublié....
... as-tu des idées pour ma question # 1 ?
parce que présentement, tous les utilisateurs peuvent ajouter
des






boutons
et
là je vais faire une vraie poussée de boutons !!!

merci



"LSteph" a écrit dans le message de
news:








Bonsoir,

Cela a résolu mon pb qui semblait identique au tien/
Le Uf du classeur ouvert (alors que l'on avait upgradé le
poste)







semblait
être la cause du refus d'enregistrement du classeur
car lorsque j'ai enregistré celui-ci sur le poste pourvu du
nouveau






système
puis supprimé celui d'origine du projet et
réimporté celui entregistré ..
Plus de pb pour sauvegarder le classeur.

Donc
Enregistrer (Exporter ) sous un nom le Userform
Le supprimer du classeur dans VBE
et le ré Importer de là où on l'a enregistré sur le poste.
Tester.
Si cela marche.
Enregistrer le classeur.

-----
'lSteph
As-tu testé le message plein écran?






"Caroline L." a écrit dans le message
de







news:

Bonjour LSteph,

pour la bonne version des contrôles : si sur mon système
c'est








calendar
9.0
et sur l'autre ordinateur c'est calendar 10.0... j'ai créé
les








macros
avec
le 9.0, alors il me semble que le système avec le 10.0
devrait








être
capable
de "gérer" ?? tu comprends ?
Alors, je dois ajuster le calendar 9.0 en le modifiant par
celui de







10.0
?



En enregistrant le userform et en l'exportant dans mon
fichier,








qu'est-ce
que cela fait au juste ?



Merci
Caroline


"LSteph" a écrit dans le message de
news:







uNTP#
Bonjour Caroline,

Pour ta question 2:
J'ai eu le m^me pb il y a quelque temps , pour le résoudre
voici








ce
que
j'avais fait:
Vérifier quand même la présence en bonne version des
contôles









(ex:
calendar).
Sélectionner clic droit l'uf dans le gestionnaire de
projet










puis
l'Exporter
,c'est à dire enregistrer sous un nom
qui te plait: "monUF1"....par exemple
virer le "monUF1" du classeur chargé,
importer la version enregistrée de "monUF1", rectifier le
nom









le
cas
échéant
dans les macros, tester , enregistrer le classeur.

'lSteph

HS:
A propos pour ton message ouverture totalement plein
écran










du
mois
dernier
je t'avais remis un post
Bonjour Caroline,

Toujours avec un userform avec en propriété
showmodal False
et dans Caption tu mets à blanc
'************************************
'**********
'dans thisworkbook
'**********
Private Sub Workbook_Open()
Userform1.Show
MsgBox " J'aime VBA, Excel et le MPFE "
Userform1.Hide

End Sub

'**********
'dans le code du Userform:
'***********
Private Declare Function GetDC Lib "User32" (ByVal hWnd As
Long)








As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal
hdc









As
Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal
hWnd










As
Long,
_
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) /
GetDeviceCaps(DC,










88) *
72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC,
90)










*
72
ReleaseDC 0, DC


End Sub
'****************************************

"Caroline L." a écrit dans le
message









de
news:

Bonjour à tous,

J'ai 2 questions :

1- comment faire en sorte (surtout par macro) que le
"Ajouter/Supprimer




des
boutons" qui se place à la droite des barres d'outils,
n'apparaisse






pas
dans
un fichier (seulement dans le fichier actif et non
applicable









dans
tous
les
fichiers ouverts).
En fait, c'est que j'ai attacher une barre d'outils
perso.











à
un
classeur
et
j'ai enlevé toutes les barres d'outils et menu excel,
désactiver









le
clic
droit... bref, je veux qu'il n'y ai que ma barre
d'outils.











Mais
en
ouvrant
le classeur sur Windows XP et Excel (microsoft office
10),











tout
est
correct
sauf que je vois le "Ajouter/Supprimer des boutons" qui
est










disponible
alors
que je ne voudrais pas !
Savez-vous comment enlever cette option ?


2- j'ai créer un fichier excel sur un poste ayant
Windows











98
2e
éd.
et
Excel
2000... ce fichier comporte des macros et tout ce passe
bien










sur
le
poste
en
question.
J'ai tenté d'ouvrir ce même fichier mais sur un poste
ayant










Windows
XP
et
Excel (microsoft office 10).
Mon fichier ne fonctionne plus sur ce poste. Lorsque je
clique









sur
n'importe
laquelle des cellules, il y a toujours des messages du
genre










:
"Microsoft
Forms (en titre) et le message : Impossible de charger
le











objet
car
il
n'est
pas disponible sur cette machine". Autre message qui
est











apparu
:
"Erreur
de compilation, Projet ou bibliothèque introuvable".
Alors, j'ai regardé dans l'explorateur de vba, dans les
outils









complémentaires, toutes les cases de Microsoft forms 2.0
sont









cochées.
Alors, j'ignore comment résoudre ce problème.
Avez-vous une idée ?

Je vous remercie à l'avance...

Bonne soirée :-)

Caroline
















































1 2 3 4 5