Macro windows

Fermé

marinella - 15 mars 2015 à 13:05
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 16 mars 2015 à 09:26

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:

Macro windows
Clé windows 10 gratuit - Guide
Windows 10 gratuit - Guide
Windows 12 - Guide
Windows ne démarre pas - Guide
Windows 10 iso - Guide

2 réponses

Réponse 1 / 2

DarkNight5047 Messages postés 20 Date d'inscription vendredi 11 mai 2012 Statut Membre Dernière intervention 17 mars 2015
Modifié par DarkNight5047 le 15/03/2015 à 18:26

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

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
16 mars 2015 à 09:26

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

Newsletters