Conversion Extension fichier
Fermé
Moha
-
14 mars 2016 à 10:30
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 14 mars 2016 à 13:57
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 14 mars 2016 à 13:57
A voir également:
- Conversion Extension fichier
- Changer extension fichier - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
Modifié par michel_m le 14/03/2016 à 14:02
Modifié par michel_m le 14/03/2016 à 14:02
bonjour
pour trouver un chemin avec une boite de dialogue intégrée
à copier dans un module standard
pour trouver un chemin avec une boite de dialogue intégrée
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
à copier dans un module standard
petite démoMichel
Sub ccc()
MsgBox recherchedossier
End Sub