Macro windows
Fermé
marinella
-
15 mars 2015 à 13:05
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 16 mars 2015 à 09:26
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 16 mars 2015 à 09:26
A voir également:
- Macro windows
- Windows 10 gratuit - Guide
- Windows 10 iso - Guide
- Retourner ecran windows - Guide
- Windows 11 22h2 - Guide
- Clé windows 10 - Guide
2 réponses
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
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 :
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
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
16 mars 2015 à 09:26
16 mars 2015 à 09:26
Bonjour
tu pourrais utiliser une boite de dialogue
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