OVH Cloud OVH Cloud

Common dialog

12 réponses
Avatar
AndréSch
Bonjour à tous

excel 97 +Xp

je voudrais utiliser une boite "ouvrir" ou "sauvegarder" :
j'installe donc un User form. Dans Boite à Outils, clic droit
j'ajoute un contrôle COMMON DIALOGS CONTROL qui utilise COMDLG16.OCX ( je ne
trouve pas 32...

la boite à outils recoit un control carré doublement hachuré et quand je
veux le poser sur mon Userform il m'est dit: "Classe non enregistrée"

qué saco ? comment faire ?

Merci à celui qie me dépannera

André du Centre

10 réponses

1 2
Avatar
Jacques93
Bonjour,

ComDlg16.ocx est le contrôle 16 bits pour Windows 3.1 ou VB4 en mode 16
bits sous Windows 9.x. Je ne pense pas qu'il puisse fonctionner sous XP.

Si tu n'as pas ComDlg32.ocx (version 32 bits du contrôle) tu peux le
télécharger ici, par exemple :

http://www.ascentive.com/support/new/support_dll.phtml?dllname=COMDLG32.OCX

en suivant les indications données sur le site. Cela t'installes la
version Run-Time du contrôle. Pour l'utiliser en mode developeur voir ici :

http://support.microsoft.com/kb/194751/fr

Télécharger VB6Cli.exe, et suivre les indications.

Sans garantie.

Bonjour à tous

excel 97 +Xp

je voudrais utiliser une boite "ouvrir" ou "sauvegarder" :
j'installe donc un User form. Dans Boite à Outils, clic droit
j'ajoute un contrôle COMMON DIALOGS CONTROL qui utilise COMDLG16.OCX ( je ne
trouve pas 32...

la boite à outils recoit un control carré doublement hachuré et quand je
veux le poser sur mon Userform il m'est dit: "Classe non enregistrée"

qué saco ? comment faire ?

Merci à celui qie me dépannera

André du Centre

--

Cordialement,

Jacques.

Avatar
Alain CROS
Bonjour.

Peut être que ceci suffirait ?

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSaveAs).Show
' Application.Dialogs(xlDialogOpen).Show
End Sub

Alain CROS

"Jacques93" a écrit dans le message de news:
| Bonjour,
|
| ComDlg16.ocx est le contrôle 16 bits pour Windows 3.1 ou VB4 en mode 16
| bits sous Windows 9.x. Je ne pense pas qu'il puisse fonctionner sous XP.
|
| Si tu n'as pas ComDlg32.ocx (version 32 bits du contrôle) tu peux le
| télécharger ici, par exemple :
|
| http://www.ascentive.com/support/new/support_dll.phtml?dllname=COMDLG32.OCX
|
| en suivant les indications données sur le site. Cela t'installes la
| version Run-Time du contrôle. Pour l'utiliser en mode developeur voir ici :
|
| http://support.microsoft.com/kb/194751/fr
|
| Télécharger VB6Cli.exe, et suivre les indications.
|
| Sans garantie.
|
| > Bonjour à tous
| >
| > excel 97 +Xp
| >
| > je voudrais utiliser une boite "ouvrir" ou "sauvegarder" :
| > j'installe donc un User form. Dans Boite à Outils, clic droit
| > j'ajoute un contrôle COMMON DIALOGS CONTROL qui utilise COMDLG16.OCX ( je ne
| > trouve pas 32...
| >
| > la boite à outils recoit un control carré doublement hachuré et quand je
| > veux le poser sur mon Userform il m'est dit: "Classe non enregistrée"
| >
| > qué saco ? comment faire ?
| >
| > Merci à celui qie me dépannera
| >
| > André du Centre
| >
| --
| Cordialement,
|
| Jacques.
Avatar
Jacques93
Bonsoir Alain Cros,

N'ayant plus Excel 97 sous la main, je n'étais pas sûr. ;-)
par contre des contrôles 16 bits sous XP, je doute fortement ...
Sais tu si cette version ComDlg16.ocx était distribuée avec
Office 97 sans la version 32 bits (ComDlg3.ocx)

Cette page semble le confirmer :

http://leregistre-fr.net/astuces/office/desinstallation/Desinstaller-completement-office-97_292.html

mais ce mélange entre 16 et 32 bits est assez étange, non ?

Bonjour.

Peut être que ceci suffirait ?

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSaveAs).Show
' Application.Dialogs(xlDialogOpen).Show
End Sub

Alain CROS

"Jacques93" a écrit dans le message de news:
| Bonjour,
|
| ComDlg16.ocx est le contrôle 16 bits pour Windows 3.1 ou VB4 en mode 16
| bits sous Windows 9.x. Je ne pense pas qu'il puisse fonctionner sous XP.
|
| Si tu n'as pas ComDlg32.ocx (version 32 bits du contrôle) tu peux le
| télécharger ici, par exemple :
|
| http://www.ascentive.com/support/new/support_dll.phtml?dllname=COMDLG32.OCX
|
| en suivant les indications données sur le site. Cela t'installes la
| version Run-Time du contrôle. Pour l'utiliser en mode developeur voir ici :
|
| http://support.microsoft.com/kb/194751/fr
|
| Télécharger VB6Cli.exe, et suivre les indications.
|
| Sans garantie.
|
| > Bonjour à tous
| >
| > excel 97 +Xp
| >
| > je voudrais utiliser une boite "ouvrir" ou "sauvegarder" :
| > j'installe donc un User form. Dans Boite à Outils, clic droit
| > j'ajoute un contrôle COMMON DIALOGS CONTROL qui utilise COMDLG16.OCX ( je ne
| > trouve pas 32...
| >
| > la boite à outils recoit un control carré doublement hachuré et quand je
| > veux le poser sur mon Userform il m'est dit: "Classe non enregistrée"
| >
| > qué saco ? comment faire ?
| >
| > Merci à celui qie me dépannera
| >
| > André du Centre
| >
| --
| Cordialement,
|
| Jacques.





--
Cordialement,

Jacques.

Avatar
Alain CROS
Bonjour.

"Jacques93" a écrit dans le message de news: u##
| Bonsoir Alain Cros,
|
| N'ayant plus Excel 97 sous la main, je n'étais pas sûr. ;-)
| par contre des contrôles 16 bits sous XP, je doute fortement ...
| Sais tu si cette version ComDlg16.ocx était distribuée avec
| Office 97 sans la version 32 bits (ComDlg3.ocx)

Sans pouvoir l'affirmer, je ne crois pas, en tout cas aucune trace sur ma machine.

|
| Cette page semble le confirmer :
|
| http://leregistre-fr.net/astuces/office/desinstallation/Desinstaller-completement-office-97_292.html
|
| mais ce mélange entre 16 et 32 bits est assez étange, non ?
|

Il me semble avoir lu quelque part qu'un programme 32 bits ne pouvait pas appeler une dll 16 bits.

Alain CROS
Avatar
Jacques93
Bonsoir Alain CROS,

Faut croire qu'en 1997 si ;-)
d'aileurs même sous Windows 98 un certain nombre d'API (notament réseau)
étaient encore des API 16 bits (en provenance de Windows 3.1). C'est à
partir de W2K que tout est passé en 32 bits, il me semble. Enfin, c'est
un peu loin tout ça.

Bonjour.

"Jacques93" a écrit dans le message de news: u##
| Bonsoir Alain Cros,
|
| N'ayant plus Excel 97 sous la main, je n'étais pas sûr. ;-)
| par contre des contrôles 16 bits sous XP, je doute fortement ...
| Sais tu si cette version ComDlg16.ocx était distribuée avec
| Office 97 sans la version 32 bits (ComDlg3.ocx)

Sans pouvoir l'affirmer, je ne crois pas, en tout cas aucune trace sur ma machine.

|
| Cette page semble le confirmer :
|
| http://leregistre-fr.net/astuces/office/desinstallation/Desinstaller-completement-office-97_292.html
|
| mais ce mélange entre 16 et 32 bits est assez étange, non ?
|

Il me semble avoir lu quelque part qu'un programme 32 bits ne pouvait pas appeler une dll 16 bits.

Alain CROS





--
Cordialement,

Jacques.

Avatar
AndréSch
Bonjour à toud

merci de votre aide

j'ai chargé comme expliqué le 32 bits mais je n ele trouve pas dans mon
excel mm après redemarrage de Xp...

par contre la siolution de Alain Cros
ça semble marcher... il me reste à trouver comment les initialiser...

merci mille fois à tous


André

"Alain CROS" a écrit dans le message de news:

Bonjour.

Peut être que ceci suffirait ?

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSaveAs).Show
' Application.Dialogs(xlDialogOpen).Show
End Sub

Alain CROS

"Jacques93" a écrit dans le message de
news:
| Bonjour,
|
| ComDlg16.ocx est le contrôle 16 bits pour Windows 3.1 ou VB4 en mode 16
| bits sous Windows 9.x. Je ne pense pas qu'il puisse fonctionner sous XP.
|
| Si tu n'as pas ComDlg32.ocx (version 32 bits du contrôle) tu peux le
| télécharger ici, par exemple :
|
|
http://www.ascentive.com/support/new/support_dll.phtml?dllname=COMDLG32.OCX
|
| en suivant les indications données sur le site. Cela t'installes la
| version Run-Time du contrôle. Pour l'utiliser en mode developeur voir
ici :
|
| http://support.microsoft.com/kb/194751/fr
|
| Télécharger VB6Cli.exe, et suivre les indications.
|
| Sans garantie.
|
| > Bonjour à tous
| >
| > excel 97 +Xp
| >
| > je voudrais utiliser une boite "ouvrir" ou "sauvegarder" :
| > j'installe donc un User form. Dans Boite à Outils, clic droit
| > j'ajoute un contrôle COMMON DIALOGS CONTROL qui utilise COMDLG16.OCX
( je ne
| > trouve pas 32...
| >
| > la boite à outils recoit un control carré doublement hachuré et quand
je
| > veux le poser sur mon Userform il m'est dit: "Classe non enregistrée"
| >
| > qué saco ? comment faire ?
| >
| > Merci à celui qie me dépannera
| >
| > André du Centre
| >
| --
| Cordialement,
|
| Jacques.




Avatar
ClémentMarcotte
Bonjour,

Une boîte "Ouvrir" avec l'API Windows:

http://groups.google.com/groups?hl=fr&lr=&frame=right&théd7d3b88773a3&seekm=OtRm57JYFHA.2508%40TK2MSFTNGP15.phx.gbl#link12


"AndréSch" a écrit dans le message de
news:%
Bonjour à tous

excel 97 +Xp

je voudrais utiliser une boite "ouvrir" ou "sauvegarder" :
j'installe donc un User form. Dans Boite à Outils, clic droit
j'ajoute un contrôle COMMON DIALOGS CONTROL qui utilise COMDLG16.OCX ( je
ne

trouve pas 32...

la boite à outils recoit un control carré doublement hachuré et quand je
veux le poser sur mon Userform il m'est dit: "Classe non enregistrée"

qué saco ? comment faire ?

Merci à celui qie me dépannera

André du Centre




Avatar
André
Salut Clément

toujours sur la brèche si je comprends bien

merci de ton info

jk'utise application.dialogs(xl..open).show
j'ai réussi à trouver à qoi servent qq uns des 13 arguments mais pas tous...
si tu as une adresse
merci d'avance

André
--
Une noix d'honneur à qui me dépannera... Merci



Bonjour,

Une boîte "Ouvrir" avec l'API Windows:

http://groups.google.com/groups?hl=fr&lr=&frame=right&théd7d3b88773a3&seekm=OtRm57JYFHA.2508%40TK2MSFTNGP15.phx.gbl#link12


"AndréSch" a écrit dans le message de
news:%
Bonjour à tous

excel 97 +Xp

je voudrais utiliser une boite "ouvrir" ou "sauvegarder" :
j'installe donc un User form. Dans Boite à Outils, clic droit
j'ajoute un contrôle COMMON DIALOGS CONTROL qui utilise COMDLG16.OCX ( je
ne

trouve pas 32...

la boite à outils recoit un control carré doublement hachuré et quand je
veux le poser sur mon Userform il m'est dit: "Classe non enregistrée"

qué saco ? comment faire ?

Merci à celui qie me dépannera

André du Centre









Avatar
ClémentMarcotte
Bonjour,

À vrai dire, tous mes favoris ont pris le bord de l'oubli quand j'ai fait
une ânerie cette semaine et que j'ai dû réinstaller Windows à partir de
zéro, ou presque. Je vais devoir vérifier si je n'en aurais pas une copie
sur un des CD que j'avais déjà gravés dans le passé.

De mémoire, il y a bien la section MSDN du site de MS où tu peux fouiller.
Cependant la section anglaise est beaucoup plus complète que la section
française.

http://msdn.office.com


Ceci, dit, si tu as activé le complément des instructions dans les options
de l'éditeur VBE, les noms des constantes devraient apparaître dans une
info-bulle.

Sinon, je pense que tu peux aussi les retrouver en faisant une recherche
pour dialogs dans l'Explorateur d'objets de l'éditeur.

De mémoire, il y a xldialogsaveas pour enregistrer, xldialogfileopen pour
ouvrir, mais les autres.



J'ai bien réinstallé Office, mais je n'ai pas vraiment eu le temps de
retourner dans Excel, ni de remettre mon perso.xls à sa place...


"André" a écrit dans le message de
news:
Salut Clément

toujours sur la brèche si je comprends bien

merci de ton info

jk'utise application.dialogs(xl..open).show
j'ai réussi à trouver à qoi servent qq uns des 13 arguments mais pas
tous...

si tu as une adresse
merci d'avance

André
--
Une noix d'honneur à qui me dépannera... Merci



Bonjour,

Une boîte "Ouvrir" avec l'API Windows:


http://groups.google.com/groups?hl=fr&lr=&frame=right&théd7d3b88773a3&seekm=OtRm57JYFHA.2508%40TK2MSFTNGP15.phx.gbl#link12




"AndréSch" a écrit dans le message de
news:%
Bonjour à tous

excel 97 +Xp

je voudrais utiliser une boite "ouvrir" ou "sauvegarder" :
j'installe donc un User form. Dans Boite à Outils, clic droit
j'ajoute un contrôle COMMON DIALOGS CONTROL qui utilise COMDLG16.OCX
( je



ne
trouve pas 32...

la boite à outils recoit un control carré doublement hachuré et quand
je



veux le poser sur mon Userform il m'est dit: "Classe non enregistrée"

qué saco ? comment faire ?

Merci à celui qie me dépannera

André du Centre











Avatar
Alain CROS
Bonjour.

Regarder les arguments de Workbooks.Open

Alain CROS

"André" a écrit dans le message de news:
| Salut Clément
|
| toujours sur la brèche si je comprends bien
|
| merci de ton info
|
| jk'utise application.dialogs(xl..open).show
| j'ai réussi à trouver à qoi servent qq uns des 13 arguments mais pas tous...
| si tu as une adresse
| merci d'avance
|
| André
1 2