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
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...
est ce facilement faisable??? merci, si qqun a la réponse...
A voir également:
- Macro windows
- Clé windows 10 gratuit - Guide
- Montage video windows - Guide
- Windows ne démarre pas - Guide
- Windows movie maker windows 11 - Télécharger - Montage & Édition
- Winrar 64 bits windows 10 - Télécharger - Compression & Décompression
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
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
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