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
Caroline L.
ça c'est vrai !

On pourrait rédiger une ligne de code du genre :
MagicDenis = True

:-)))))


"LSteph" a écrit dans le message de news:
#
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
jps
ton chèque, caroline, tu le fais à l'ordre de MagicDenis, de Michel ou de
Mitch mais comme tu ne sauras pas où le poster, donc, le mieux est que tu le
fasses à l'ordre de JPS et sur l'enveloppe, tu mets juste "Beaujolais", le
facteur me connaît...
jps

"Caroline L." a écrit dans le message de
news:
ça c'est vrai !

On pourrait rédiger une ligne de code du genre :
MagicDenis = True

:-)))))


"LSteph" a écrit dans le message de news:
#
On devrait dire MagicDenis






Avatar
MichDenis
JPS prêt à tout pour rendre service ! Merci !

;-)


Salutations!



"jps" a écrit dans le message de news: %
ton chèque, caroline, tu le fais à l'ordre de MagicDenis, de Michel ou de
Mitch mais comme tu ne sauras pas où le poster, donc, le mieux est que tu le
fasses à l'ordre de JPS et sur l'enveloppe, tu mets juste "Beaujolais", le
facteur me connaît...
jps

"Caroline L." a écrit dans le message de
news:
ça c'est vrai !

On pourrait rédiger une ligne de code du genre :
MagicDenis = True

:-)))))


"LSteph" a écrit dans le message de news:
#
On devrait dire MagicDenis






Avatar
Caroline L.
Bonjour LSteph,

j'ai fais les tests...
j'ai exporté les userform et j'ai importé dans le nouveau classeur mais rien
à faire!
la version des contrôles n'étaient pas la même non plus... je crois donc que
c'était là le problème. J'avais beau supprimer par exemple le calendar
version 9.0 et insérer le calendar 10.0 mais cela n'allait pas plus.
J'ai donc supprimer les userform et les ai refait avec la version du nouvel
ordi (je n'en avais pas tellement).
Tout est bien qui fini bien.

Merci à toi

Caroline


"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.
Bonjour MichDenis,

tel que convenu, je te donne des nouvelles suite à mes tests.

Donc, j'ai inséré la ligne que tu suggérait soit :
Application.CommandBars.DisableCustomize = True
et oui c'est option fonctionne (sur l'ordi. Excel ??, version 10.0).
Le Ajouter/suprrimer des boutons est là mais en cliquant dessus, le
personnaliser est grisé (inactif).
C'est ce que je voulais. Merci beaucoup à toi !


_________________________________________
Je suis un peu mêlée à savoir quelle est l'année de Excel pour une version
10.0, si tu peux m'éclairer...
-chez moi j'ai Excel 2000 avec des contrôles calendar 9.0
-sur un autre ordi. c'est Excel ?? avec des contrôles calendar 10.0
-et dans un de mes livres pour apprendre Excel,
c'est pour Excel 2003 et les contrôles calendar du livre sont 11.0


merci encore :-)
Caroline


"Caroline L." a écrit dans le message de news:
#
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




















































Avatar
MichDenis
Bonjour Caroline,

11 = Excel 2003
10 = Excel 2002
and so on...

Et comment as-tu résout la problématique avec excel 2000 ?


Salutations!



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

tel que convenu, je te donne des nouvelles suite à mes tests.

Donc, j'ai inséré la ligne que tu suggérait soit :
Application.CommandBars.DisableCustomize = True
et oui c'est option fonctionne (sur l'ordi. Excel ??, version 10.0).
Le Ajouter/suprrimer des boutons est là mais en cliquant dessus, le
personnaliser est grisé (inactif).
C'est ce que je voulais. Merci beaucoup à toi !


_________________________________________
Je suis un peu mêlée à savoir quelle est l'année de Excel pour une version
10.0, si tu peux m'éclairer...
-chez moi j'ai Excel 2000 avec des contrôles calendar 9.0
-sur un autre ordi. c'est Excel ?? avec des contrôles calendar 10.0
-et dans un de mes livres pour apprendre Excel,
c'est pour Excel 2003 et les contrôles calendar du livre sont 11.0


merci encore :-)
Caroline


"Caroline L." a écrit dans le message de news:
#
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




















































Avatar
anonymousA
bonjour,

tu en as de la chance que MIch Denis t'ait indiqué Disablecustomize !!!!!!

Bonjour MichDenis,

tel que convenu, je te donne des nouvelles suite à mes tests.

Donc, j'ai inséré la ligne que tu suggérait soit :
Application.CommandBars.DisableCustomize = True
et oui c'est option fonctionne (sur l'ordi. Excel ??, version 10.0).
Le Ajouter/suprrimer des boutons est là mais en cliquant dessus, le
personnaliser est grisé (inactif).
C'est ce que je voulais. Merci beaucoup à toi !


_________________________________________
Je suis un peu mêlée à savoir quelle est l'année de Excel pour une version
10.0, si tu peux m'éclairer...
-chez moi j'ai Excel 2000 avec des contrôles calendar 9.0
-sur un autre ordi. c'est Excel ?? avec des contrôles calendar 10.0
-et dans un de mes livres pour apprendre Excel,
c'est pour Excel 2003 et les contrôles calendar du livre sont 11.0


merci encore :-)
Caroline


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

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















































Avatar
Caroline L.
Bonjour MichDenis,

11 = Excel 2003
10 = Excel 2002
alors donc mon problème était sur Excel 2002.


Sur Excel 2000 tout était correct. Sauf qu'il y a une différence :
le Ajouter/Supprimer des boutons est grisé "inactif" (sur excel 2000), alors
qu'en Excel 2002 le Ajouter/Supprimer des boutons est actif mais le
Personnaliser est grisé (inactif).

Voilà.
Merci encore

Bonne fin de journée

Caroline


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

Bonjour Caroline,

11 = Excel 2003
10 = Excel 2002
and so on...

Et comment as-tu résout la problématique avec excel 2000 ?


Salutations!



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


Bonjour MichDenis,

tel que convenu, je te donne des nouvelles suite à mes tests.

Donc, j'ai inséré la ligne que tu suggérait soit :
Application.CommandBars.DisableCustomize = True
et oui c'est option fonctionne (sur l'ordi. Excel ??, version 10.0).
Le Ajouter/suprrimer des boutons est là mais en cliquant dessus, le
personnaliser est grisé (inactif).
C'est ce que je voulais. Merci beaucoup à toi !


_________________________________________
Je suis un peu mêlée à savoir quelle est l'année de Excel pour une version
10.0, si tu peux m'éclairer...
-chez moi j'ai Excel 2000 avec des contrôles calendar 9.0
-sur un autre ordi. c'est Excel ?? avec des contrôles calendar 10.0
-et dans un de mes livres pour apprendre Excel,
c'est pour Excel 2003 et les contrôles calendar du livre sont 11.0


merci encore :-)
Caroline


"Caroline L." a écrit dans le message de news:
#
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

























































Avatar
Caroline L.
Bonjour jps,

comme promis, voici des nouvelles fraîches.
mes control étaient en version 9.0 et ceux de l'autre ordi étaient en
version 10.0... je crois que c'est cela qui a bugé. J'avais des Objet
Library en 9.0 et en 10.0... c'était tout mêlé.
J'ai donc supprimé mes userform (dans le fichier de l'ordinateur upgradé) et
je les ai refait dans la version 10.0

Merci pour ton coup de main

Bonne soirée

Caroline


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

Re-bonsoir jps,

bien, ça fait avancer les choses, je vais vérifier de ce côté... il est
possible que "Microsoft Forms 2.0 Object Library" ne soit pas coché... le
message d'erreur avait comme titre "Microsoft Forms" et le message
"Impossible de charger le objet..."

Comme je le mentionnais à LSteph, je vais faire des tests sur l'autre
poste

informatique (là, il n'est pas libre) et je t'en donnerai des nouvelles.

Ma question # 1 n'inspire personne :-(
Tu n'as pas d'idée comment je peux contourner l'option Ajouter/Supprimer
des

boutons......
....encore et encore des histoires de boutons !....décidément !


Merci à toi et bonne soirée jps !

Caroline


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

je voulais juste dire, caroline, que lorsque les procs font appel à
certaine

bibliothèque non cochée dans la liste sous Outils/Références, le système
te

signale laquelle est manquante en faisant précédé son nom du mot
MANQUANT


(en majuscule)...
mais ça ne fait pas trop avancer le schmilblick, semble-t-il....
jps

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

donc je fais Outils/Références... et ensuite ? je ne comprends pas
vraiment

ce que tu expliques... le mot MANQUANT ??????


"jps" a écrit dans le message de news:
#
bonjour caroline
pour la seconde partie de ta question, dans VBE, tu fais
Outils/Références


et tu dois avoir dans la liste d'icelles, le mot MANQUANT suivi d'un
nom



de
référence (ou bibliothèque, si j'ai bien compris) et c'est ladite
référence

qu'il te faudra cocher dans la liste...le hic, et je viens d'en
faire




la
douloureuse expérience, est qu'il se puisse bien que tu ne l'aies
pas




cette
référence dont tu as besoin dans la liste de celles offertes par
Win98,



fût-il SE....et dans ce cas, si quelqu'un de cette docte assemblée
peut



nous
dire comment il faut faire dans ce cas, je suis moi aussi preneur
(je




pense
entre autres à celle (de référence) baptisée ....Extensibility 5.3)
jps

"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.
Bonjour anonymousA,

finalement j'ai utilisé le DisableCustomize et tout est correct (excel 2002)
Le Ajouter/Supprimer des boutons est visible mais le sous-menu Personnaliser
est inactif.
C'est ce que je souhaitais.

Merci et bonne soiré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