Discussion :

[gootsu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 parce que moi j'ai du mal à me comprendre!! lol )

[ouskel'n'or]

Dis-nous ce que tu veux faire, ça ira plus vite

[gootsu]

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

Et aussi "W.A.I"!

donc le code de l'aide de ce site utilise les deux!

[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

[gootsu]

ouh merci j'ai pas vu cette anerie!

Merci pardon pour le dérangement

[gootsu]

mais quel est la correspondance de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShowSelectItems

?

[ouskel'n'or]

ShowSelectItems ? Qu'est-il censé faire en VB6 ?

[ouskel'n'or]

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

xlDialogSelectSpecial type_num, value_type, levels

[gootsu]

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

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

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

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'!!

[ouskel'n'or]

Tu veux des exemples ? Tiens.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gootsu]

Merci

Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'Application.Dialogs(xlDialogFilterAdvanced).Show

Ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs.Item(xlDialogFilterAdvanced).Show

quel est la différence?

[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