chemin mes documents

Clément Marcotte

04/03/2005 à 20:15

Bonjour,

Il y a cela (non testé):

http://groups.google.com/groups?q=chemin+dossier+mes+documents+group:microsoft.public.fr.excel&hl=fr&lr=&selmjxjb.170398%24C92.34317%40charlie.risq.qc.ca&rnum=1

et ceci (pas testé non plus):

http://groups.google.com/groups?q=chemin+dossier+mes+documents+group:microsoft.public.fr.excel&hl=fr&lr=&selm:2F58E5.1E21BDD1%40free.fr&rnum=2

"rg" a écrit dans le message de
news:

bonjour,
comment retrouver le chemin du dossier mes documents ,
pour l'exploiter sous vba ?.
d'avance merci pour les réponses.

rené

MichDenis

04/03/2005 à 22:32

Bonjour Rg,

'------------------
Sub test()

'Méthode I
'***Manquait un "" dans une des référence de Clément****
Dim Chemin As String
Chemin = "C:" & Environ("HOMEPATH") & "Mes documents"

'***********************************************

'Méthode II
MsgBox GetSpecialFolder(FldrMyDocuments)
End Sub
'------------------

'Copie ceci dans le haut d'un module standard

Public Const NOERROR = 0
Public Const MAXPATH = 260
Public Const FldrDeskTop1 = &H0

Public Const FldrMyDocuments = &H5

Public Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As Long) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long

'Daniel Lewis, mpep
Public Function GetSpecialFolder(CSIDL As Long) As String
Dim Result As Long
Dim sPath As String
Dim pidl As Long
Result = SHGetSpecialFolderLocation(0, CSIDL, pidl)
If Result = NOERROR Then
sPath = Space(MAXPATH)
Result = SHGetPathFromIDList(ByVal pidl, ByVal sPath)
If Result Then
GetSpecialFolder = Left(sPath, InStr(sPath, Chr(0)) - 1)
End If
End If
End Function

Salutations!

"rg" a écrit dans le message de news:
bonjour,
comment retrouver le chemin du dossier mes documents ,
pour l'exploiter sous vba ?.
d'avance merci pour les réponses.

rené

rg

06/03/2005 à 11:09

merci pour ta réponse

j'ai trouvé la solution grace à clément (lien dans sa réponse)

A+

"MichDenis" a écrit dans le message de
news:%23m%

Bonjour Rg,

'------------------
Sub test()

'Méthode I
'***Manquait un "" dans une des référence de Clément****
Dim Chemin As String
Chemin = "C:" & Environ("HOMEPATH") & "Mes documents"

'***********************************************

'Méthode II
MsgBox GetSpecialFolder(FldrMyDocuments)
End Sub
'------------------

'Copie ceci dans le haut d'un module standard

Public Const NOERROR = 0
Public Const MAXPATH = 260
Public Const FldrDeskTop1 = &H0

Public Const FldrMyDocuments = &H5

Public Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _
(ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As Long) As Long
Public Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long

'Daniel Lewis, mpep
Public Function GetSpecialFolder(CSIDL As Long) As String
Dim Result As Long
Dim sPath As String
Dim pidl As Long
Result = SHGetSpecialFolderLocation(0, CSIDL, pidl)
If Result = NOERROR Then
sPath = Space(MAXPATH)
Result = SHGetPathFromIDList(ByVal pidl, ByVal sPath)
If Result Then
GetSpecialFolder = Left(sPath, InStr(sPath, Chr(0)) - 1)
End If
End If
End Function

Salutations!

"rg" a écrit dans le message de news:

bonjour,
comment retrouver le chemin du dossier mes documents ,
pour l'exploiter sous vba ?.
d'avance merci pour les réponses.

rené

Michel Pierron

07/03/2005 à 10:05

Bonjour rg;
Application.DefaultFilePath

MP

"rg" a écrit dans le message de
news:

bonjour,
comment retrouver le chemin du dossier mes documents ,
pour l'exploiter sous vba ?.
d'avance merci pour les réponses.

rené

chemin mes documents

4 réponses

Veuillez sélectionner un problème