Macro windows

marinella -  
michel_m Messages postés 18903 Statut Contributeur -
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...



A voir également:

2 réponses

Réponse 1 / 2
DarkNight5047 Messages postés 20 Statut Membre
 
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
Réponse 2 / 2
michel_m Messages postés 18903 Statut Contributeur 3 317
 
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