Macro windows

marinella -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
     
    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
    0
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    0