Bonjour, A la relecture de ton message (et du mien), je crains d'avoir fait un léger "hors sujet" ;-)))) Mon code correspond au remplissage d'une textbox d'un formulaire. Pour une boite de dialogue, c'est quasiment la même chose (code ci dessous)

Bon courage, Jean-Claude

Sub Test Dim oDialog As Variant 'Boite de dialogue de choix du fichier 'Crée la Boite de dialogue oDialog = createUnoDialog(DialogLibraries.Standard._DlgSelFicXL) 'Modifie le texte du controle nommé "FileCtrl" oDialog.Model.FileCtrl.Text = "Toto" 'Affiche la Boite de dialogue oDialog.execute 'Referme la Boite de Dialogue oDialog.endExecute() End Sub