DominoArea.org [Archive]

je vais essayer d'être clair : Mon bouton parcourir : Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace .CurrentDocument files = workspace.OpenFileDialog(True, "File List", "", "c:") 'Contrôle du nombre de fichiers selectionnés If Ubound(files) > 0 Then Messagebox "Vous ne devez selectionner qu'un fichier", 16,"Erreur Selection" Exit Sub Else End If Call uidoc.FieldSetText("NomFichier",files(0)) Call uidoc.refreshEnd SubMon bouton ouvrir : Sub Click(Source As Button) Dim Resultat As Integer Dim uiws As New notesUiWorkSpace Dim uidoc As NotesUiDocument Set uidoc = uiws.currentDocument Pgm$ = "C:\Program Files\Microsoft Office\Office\WINWORD.EXE " Fichier$ = """" + uidoc.FieldGetText("NomFichier") + """" Resultat = Shell (Pgm$ + Fichier$ ,1) End SubJ'ai aussi un champ de type texte qui s'appelle nomfichier.Mon problème est qu'a l'heure actuel, je ne peux qu'ouvrir un document Word. Je voudrais que pour n'importe quelle fichier, le bouton ouvrir puisse m'ouvrir le fichier selectionner. Je devrais ouvrir principalement des docs word, excel, et pdf.Merci de m'expliquer tt ca en detail.

Si tu es sous windows, essaye de lancer la commande suivante :start <Chemin + nom de ton fichier>

Pgm$ = "C:\Program Files\Microsoft Office\Office\WINWORD.EXE "Je n'ai jamais utiliser la fonction Shell mais j'ai l'impression que tu lance un exe WORD non???

Sinon je n'y ai pas pensé directement mais pour ton bouton parcourir, ya plus simple en formule :@Command([EditGotoField];"NomFichier");@Command([EditInsertFileAttachment])Pa contre il faut peut etre voir pour le test sur une seule pièce...

Je vous remercie mais un certain Philippe m'a aider. Vous trouverez le post un peu plus dans la liste. Ca me convient tt à fait