Salut
Je ne vois pas du tout à quoi peuvent servir ces paramètres 1, 0 et 2, ni quel genre de résultat peut revenir de ce genre de dialogue, mais bon.
En supposant que cette fenêtre renvoie plusieurs résultats, as-tu essayé ça, en respectant un tout petit peu les règles d'utilisation des parenthèses dictées par VB et rappelées <dans l'aide> :
Dim mesRésultats As Variant
mesRésultats = Application.Dialogs(xlDialogPrint).Show (1, 0 ,2)
Dim r As Integer
For r = LBound(mesRésultats) To UBound(mesRésultats)
MsgBox mesRésultats(r)
Next r
Mais d'après l'aide, ces fenêtres renvoient True ou False ...
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)