Re: recup chemin dossier par GetOpenFilename et subsitue
voilà le code que j'ai trouvé désolé j'ai perdu le nom du créateur dans le copier coller !!!! la personne qui à créer ce code se fasse connaitre !!!
Mon probleme ici c'est le nom de l'utilisateur de la machine afin de retrouver le dossier mes documents !
' choix d'un dossier
Private Function ChoisirDossier()
Dim objShell, objFolder, chemin, SecuriteSlash
Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then
chemin = "C:\Windows\Bureau"
End If
' If objFolder.Title = " MES DOCUMENTS" Then
' chemin = "C:\Documents and Settings\" & user_name & "\Mes 'documents"
'End If
If objFolder.Title = "" Then
chemin = ""
End If
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = chemin
' Sheets("fichier").Range("A3").Value = chemin
End Function