OVH Cloud OVH Cloud

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

10 réponses

1 2 3 4 5
Avatar
jps
l'acné juvénile n'a jamais tué personne; caroline....regarde geedee
jps

"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
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.
:-))))


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

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 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,


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,

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
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
MichDenis
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