[VBa-E] Problème de "CommonDialog" ?

Version imprimable

10/07/2006, 10h48
gootsu

[VBa-E] Problème de "CommonDialog" ?

Salut à tous et à toutes!;)

Dans l'aide microsoft il y a des lignes de code qui m'interesse cependant j'aimerai avant tous les tester!
Voici ce que j'utilise :

Code:

Set dev = CommonDialog1.ShowSelectDevice

il me dit qu'il a besoin d'un objet! Mais lequel?
je ne comprend pas!:(

Merci! (j'espère que vous m'avez compris :oops: parce que moi j'ai du mal à me comprendre!! lol :D )
10/07/2006, 11h07
ouskel'n'or

Dis-nous ce que tu veux faire, ça ira plus vite ;)
10/07/2006, 11h17
gootsu

j'aimerai apprendre à utiliser, maitriser "CommonDialog"!! :oops:

Et aussi "W.A.I"! :)

donc le code de l'aide de ce site utilise les deux!
10/07/2006, 11h27
ouskel'n'or

Dans l'aide que tu nous cites, tu es dans VB6, non dans VBA-E
Avec VBA c'est Application.dialogs...
Regarde dans l'aide VBA (F1) à dialogs

Tu dis
10/07/2006, 11h41
gootsu

ouh :oops: merci j'ai pas vu cette anerie! :oops:

Merci pardon pour le dérangement ;)
10/07/2006, 11h49
gootsu

mais quel est la correspondance de :

Code:

ShowSelectItems

?:?
10/07/2006, 11h52
ouskel'n'or

ShowSelectItems ? Qu'est-il censé faire en VB6 ?
10/07/2006, 11h56
ouskel'n'or

Je n'ai pas trouvé ce paramètre (?) dans l'aide VBA. Le plus proche que j'ai trouvé est

Citation:

xlDialogSelectSpecial type_num, value_type, levels
10/07/2006, 12h03
gootsu

je vais pas t'aidé enormément, comme je l'ai dit :

Citation:

ce code m'interesse cependant j'aimerai avant tous le tester!

il m'intersse parce que : ce code utilise une boite de dialogue

Citation:

Et aussi "W.A.I"!

Donc je pourai pas te repondre à ta question! :(
Alors si tu as une application [Vba-E] qui utilise une boite de dialogue et qui utilise la librairie 'W.A.I' se serai parfait!! ;)
au pire une application avec une Boite de Dialogue et une application de la librairie 'W.A.I'!! :)

Tu veux des exemples ? Tiens.

Code:

1
2
3
4
5
6
7
8
9
    'Application.Dialogs.Item(xlDialogFilterAdvanced).Show 'ouvre la fenêtre "Filtre élaboré
    'Application.Dialogs.Item(xlDialogOpen).Show         'ouvre la boîte de dialogue "Ouvrir" d'Excel
    'Application.Dialogs.Item(xlDialogSortSpecial).Show  'sélectionne les cellules renseignées à partir de la cellule active
    'Application.Dialogs.Item(xlDialogPrintPreview).Show 'Ouvre la fenêtre "Aperçu"
    'Application.Dialogs.Item(xlDialogMailLogon).Show    'installation de outlook
    'Application.Dialogs.Item(xlDialogProtectDocument).Show 'xlDialogProtectDocument
    'Application.Dialogs.Item(xlDialogReplaceFont).Show  'Format
    'Application.Dialogs.Item(xlDialogFormulaFind).Show  'Ouvre la fenêtre Recherche
    'Application.Dialogs.Item(xlDialogInsertObject).Show 'etc.

Après, tu cherches parce que c'est ce que j'ai fait ;)

10/07/2006, 12h53
gootsu

Merci
:oops:
Mon code :

Code:

'Application.Dialogs(xlDialogFilterAdvanced).Show

Ton code :

Code:

Application.Dialogs.Item(xlDialogFilterAdvanced).Show

quel est la différence?
10/07/2006, 13h57
ouskel'n'or

Aucune différence, j'avais certainement bêêêtement copier un exemple dans l'aide quand j'ai fait ça. Item n'est pas nécessaire ;)