Mettre un chemin daccès dans une variable.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Mettre un chemin daccès dans une variable.

RabahTheHut

Bonjour,
Avec une macro, je voudrai mettre dans une variable un chemin daccès. Avec GetOpenFilename on a bien un chemin daccès, mais on est obligé de sélectionner un document, or le fichier est vide, je ne veux que le chemin daccès.
Merci pour votre aide.

Publicité

AlainTech

Pas trouvé? Cherche encore!

3 topics où tu parles de fichier...
Je suppose que, pour les 3, tu veux parler de dossier (ou répertoire).

Le chemin dont tu parles est-il fixe ou le client doit-il choisir le dossier?

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

RabahTheHut

En effet c'est plutôt dossier. Désolé si je me suis mal exprimé.
Je veux que ça soit l'opérateur qui choisisse le chemin d'accès et qu'il se mette dans une variable.
Avec par exemple
Variable = GetOpenFilename

une boîte de dialogue s'ouvre et le chemin d'accès du fichier sélectionner se met dans la variable. Mais le problème est qu'il n'y a pas de documents dans le dossier et que je ne veux mettre dans la variable que le chemin sans le nom du dossier.
Comment faire?
Merci bcp!

knakes

Bon c'est un code à copier coller assez efficace. Normalement ça fonctionne sous tous les OS. A vérifier.
Dans un module :

Code :

Option Explicit
Private Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal _
lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As _
BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal _
pidList As Long, ByVal lpBuffer As String) As Long

Code :

Public Function BrowseForFolder(hWndOwner As Long, sPrompt As _
String) As String
Dim nNull As Integer
Dim lpIDList As Long
Dim nResult As Long
Dim sPath As String
Dim bi As BrowseInfo
bi.hWndOwner = hWndOwner
bi.lpszTitle = lstrcat(sPrompt, "" )
bi.ulFlags = BIF_RETURNONLYFSDIRS
lpIDList = SHBrowseForFolder(bi)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
nResult = SHGetPathFromIDList(lpIDList, sPath)
Call CoTaskMemFree(lpIDList)
nNull = InStr(sPath, vbNullChar)
If nNull Then
sPath = Left$(sPath, nNull - 1)
End If
End If
BrowseForFolder = sPath
End Function

Là où tu en as besoin :

Code :

BrowseForFolder(Me.hwnd, "message personnalisé" )

Edit : Mets variable = BrowseForFolder(Me.hwnd, "message personnalisé" )
En espérant t'avoir aidé.

Message édité par knakes le 09-05-2005 à 17:43:29

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Mettre un chemin daccès dans une variable.

Sujets relatifs
servlet et accés à la base de donnée oracle	chemin absolu pour une video?
Interdir accès dossier, mais pas au fichiers [Résolu]	Comment mettre le programme televison en ligne ?
Variable de session et EASYPHP	Mettre un page web dans une autre
Erreur : Accès refusé pour l'utilisateur: 'postgres'@'@localhost' (mot	Calcul / Variable!
2 Questions : fonction Chr() et variable static	passage de variable par adresse, Comment passer deux fonctions ?
Plus de sujets relatifs à : Mettre un chemin daccès dans une variable.

Page générée en 0.056 secondes

Mettre un chemin daccès dans une variable.