Macro windows

marinella -  
Bonjour, je voudrais faire (une petite) -macro- afin de ne pas avoir à saisir par exemple :c:/documents&settings/mesdocuments....etc
est ce facilement faisable??? merci, si qqun a la réponse...

2 réponses

  1.  DarkNight5047
    Oui c'est possible. Utilise l'event KeyDown de ta Form.
    voici un exemple pour lancer un programme : 
    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
     If e.keycode = keys.Enter Then
        Process.Start(chemindufichier)
     End If
End Sub
    1. michel_m Contributeur
      Bonjour
      tu pourrais utiliser une boite de dialogue 
      Function recherchedossier()
      Dim ObjShell As Object, ObjFolder As Object
      Dim Message As String
      Dim Chemin As String
          
      Message = "Faire la Sélection du Repertoire de sauvegarde:"

      Set ObjShell = CreateObject("Shell.Application")
      Set ObjFolder = ObjShell.BrowseForFolder(&H0&, Message, 1)
          
          On Error Resume Next 'Si on sort sans sélection
          Chemin = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & ""
          If Chemin = "" Then End
          recherchedossier = Chemin
      End Function