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. 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
    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