problème de boutons

[Nicolas L]

Je vais faire simple. Je vais vous vous donner le code de mes boutons.Le bouton parcourir : Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace files = workspace.OpenFileDialog(True, "File List", "", "c:") Forall filelist In files messagelist = messagelist & filelist & Chr(10) End Forall Messagebox messagelistEnd SubLe bouton ouvrir le document(L'ouvrir dans word et le modifier si necessaire) :Sub Click(Source As Button) Dim Resultat As Integer Resultat = Shell ("C:\Program Files\Microsoft Office\Office\WINWORD.EXE ""C:\Mes documents\test.doc """ ,1) End SubA l'heure actuel, les deux boutons ne sont pas associer. Le bouton ouvrir ouvre un fichier.Ce que je veux faire : Lors de la création d'un document, PARCOURIR s'affiche seul. Quand je selectionne un fichier, le deuxième bouton s'affiche et me permet d'ouvrir le fichier selectionné.Ce que je ne sais pas faire :-Masquer le deuxième bouton quand PARCOURIR n'a pas été cliqué ou qd aucun ficier n'a été selectionné.-Faire le lien entre les deux boutons. D'apres ce que j'ai compris dans le forum, la variable qui contient le nom du fichier doit etre inclus dans le shell mais je ne sais absolument pas comment faire. La programmation (qu'elle soit simple ou pas) n'est pas ma copine.Merci de vos prochaines réponses présises (et pourquoi pas le problème réglé avec le code) qui me permettront d'avancer un peu dans mon boulot.

[philippe]

Bonjourvoila un peu de code qui devrait t'aider1/ Il te faut créer un champ de type texte qui va te permettre à la fois de stocker le nom du fichier et de gérer le masquage de ton bouton Ouvrir (dans mon code il est nommé nomFichier). 2/ Tu crées un bouton PARCOURIR avec le code ci dessous dans l'évenement clickSub 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 Sub3/ Tu crées un bouton OUVRIR avec ce code dans l'évenement clickSub 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 Subet dans la formule de masquage du bouton tu mets la formuleNomFichier = "" en cochant la case masquer si la condition est vraie

[Nicolas L]

Merci c super simpa, ca marche nickel.J'ai seulement une petite question, grace a toi je peux ouvrir un fichier word mais je dois pouvoir ouvrir trois gds types de document : les *.doc, les *.xls et les *.pdf.Comment faire pour que le fichier selectionné soit automatiquement associé a leur programme et qu'ensuite je puisse l'ouvrir.Merci de me dire ca le plus détaillé possible.A bientot

[philippe]

BonjourLe plus simple est de tester l'extension de ton fichier pour determiner le programme à utiliservoila un code à mettre dans ton bouton OUVRIR. Tu as juste à indiquer les bons chemins d'accès pour les fichiers xls et pdf. Si tu as d'autrtes extension il suffit de rajouter un "case"Sub Click(Source As Button) Dim Resultat As Integer Dim uiws As New notesUiWorkSpace Dim uidoc As NotesUiDocument Set uidoc = uiws.currentDocument Ext$ = Lcase$(Left(uidoc.FieldGetText("NomFichier"),3)) Select Case Ext$ Case "doc" Pgm$ = "C:\Program Files\Microsoft Office\Office\WINWORD.EXE " Case "xls" Pgm$ = "chemin d'accès à excel" Case"pdf" Pgm$ = "chemin d'accès à acrobat" Case Else Msgbox "Le programme ouvrant ce fichier est inconnu",64,"Erreur" End Select Fichier$ = """" + uidoc.FieldGetText("NomFichier") + """" Resultat = Shell (Pgm$ + Fichier$ ,1) End Sub

[philippe]

Erratumje doit faire un peu de dyslexie en fin de semainepour tester l'extension il faut extraire les 3 caractères de droitela bonne syntaxe est Ext$ = Lcase$(Right(uidoc.FieldGetText("NomFichier"),3))

[Nicolas L]

Je te remercie c super sympa.Bonne continuation