afficher l'explorateur windows pour obtenir un chemin d'accès
3 réponses
mj
Bonjour,=20
=E0 partir d'un fichier EXCEL, je souhaite cr=E9er d'autres=20
fichiers, tous plac=E9s au m=EAme endroit.
Cet endroit doit =EAtre choisi par l'utilisateur.=20
En cons=E9quence, j'ai besoin d'un affichage de l'exlorateur=20
Windows qui me permette de d'obtenir le chemin d'acc=E8s=20
pour la cr=E9ation des fichiers. Je ne veux pas cr=E9er=20
imm=E9diatement les fichiers, seulement r=E9cup=E9rer le chemin.
J'ai essay=E9 plusieurs dialogs, mais je ne trouve pas de=20
description pour chacune qui permettrait de s=E9lectionner=20
celle qui convient.=20
Il me semble qu'il existe une solution simple, mais je=20
n'arrive pas =E0 la retrouver.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Voici une manière de procéder (alncer la macro Test) Cordialement Pascal
Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type
Declare Function SHGetPathFromIDListA Lib "Shell32.dll" _ (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolderA Lib "Shell32.dll" _ (lpBrowseInfo As BROWSEINFO) As Long Sub Test() Dim bInfo As BROWSEINFO, szPath As String * 512 bInfo.lpszTitle = "Sélectionnez un dossier." bInfo.ulFlags = &H1 If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo), szPath) Then MsgBox "Dossier sélectionné : " & _ Left(szPath, InStr(szPath, vbNullChar) - 1), vbInformation Else: MsgBox "Aucun dossier sélectionné." End If End Sub
"mj" a écrit dans le message de news:128901c49afb$651a7cc0$ Bonjour,
à partir d'un fichier EXCEL, je souhaite créer d'autres fichiers, tous placés au même endroit. Cet endroit doit être choisi par l'utilisateur.
En conséquence, j'ai besoin d'un affichage de l'exlorateur Windows qui me permette de d'obtenir le chemin d'accès pour la création des fichiers. Je ne veux pas créer immédiatement les fichiers, seulement récupérer le chemin.
J'ai essayé plusieurs dialogs, mais je ne trouve pas de description pour chacune qui permettrait de sélectionner celle qui convient.
Il me semble qu'il existe une solution simple, mais je n'arrive pas à la retrouver.
Merci d'avance
mj
Bonjour
Voici une manière de procéder (alncer la macro Test)
Cordialement
Pascal
Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Declare Function SHGetPathFromIDListA Lib "Shell32.dll" _
(ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolderA Lib "Shell32.dll" _
(lpBrowseInfo As BROWSEINFO) As Long
Sub Test()
Dim bInfo As BROWSEINFO, szPath As String * 512
bInfo.lpszTitle = "Sélectionnez un dossier."
bInfo.ulFlags = &H1
If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo), szPath) Then
MsgBox "Dossier sélectionné : " & _
Left(szPath, InStr(szPath, vbNullChar) - 1), vbInformation
Else: MsgBox "Aucun dossier sélectionné."
End If
End Sub
"mj" <mj8019@yahoo.fr> a écrit dans le message de
news:128901c49afb$651a7cc0$a601280a@phx.gbl...
Bonjour,
à partir d'un fichier EXCEL, je souhaite créer d'autres
fichiers, tous placés au même endroit.
Cet endroit doit être choisi par l'utilisateur.
En conséquence, j'ai besoin d'un affichage de l'exlorateur
Windows qui me permette de d'obtenir le chemin d'accès
pour la création des fichiers. Je ne veux pas créer
immédiatement les fichiers, seulement récupérer le chemin.
J'ai essayé plusieurs dialogs, mais je ne trouve pas de
description pour chacune qui permettrait de sélectionner
celle qui convient.
Il me semble qu'il existe une solution simple, mais je
n'arrive pas à la retrouver.
Bonjour Voici une manière de procéder (alncer la macro Test) Cordialement Pascal
Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type
Declare Function SHGetPathFromIDListA Lib "Shell32.dll" _ (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolderA Lib "Shell32.dll" _ (lpBrowseInfo As BROWSEINFO) As Long Sub Test() Dim bInfo As BROWSEINFO, szPath As String * 512 bInfo.lpszTitle = "Sélectionnez un dossier." bInfo.ulFlags = &H1 If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo), szPath) Then MsgBox "Dossier sélectionné : " & _ Left(szPath, InStr(szPath, vbNullChar) - 1), vbInformation Else: MsgBox "Aucun dossier sélectionné." End If End Sub
"mj" a écrit dans le message de news:128901c49afb$651a7cc0$ Bonjour,
à partir d'un fichier EXCEL, je souhaite créer d'autres fichiers, tous placés au même endroit. Cet endroit doit être choisi par l'utilisateur.
En conséquence, j'ai besoin d'un affichage de l'exlorateur Windows qui me permette de d'obtenir le chemin d'accès pour la création des fichiers. Je ne veux pas créer immédiatement les fichiers, seulement récupérer le chemin.
J'ai essayé plusieurs dialogs, mais je ne trouve pas de description pour chacune qui permettrait de sélectionner celle qui convient.
Il me semble qu'il existe une solution simple, mais je n'arrive pas à la retrouver.
Merci d'avance
mj
MJ
Merci infiniment,
c'est exactement ce que je voulais faire ! Ca marche impec.
Merci encore
MJ
-----Message d'origine----- Bonjour Voici une manière de procéder (alncer la macro Test) Cordialement Pascal
Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type
Declare Function SHGetPathFromIDListA Lib "Shell32.dll" _ (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolderA Lib "Shell32.dll" _ (lpBrowseInfo As BROWSEINFO) As Long Sub Test() Dim bInfo As BROWSEINFO, szPath As String * 512 bInfo.lpszTitle = "Sélectionnez un dossier." bInfo.ulFlags = &H1 If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo), szPath) Then
Else: MsgBox "Aucun dossier sélectionné." End If End Sub
"mj" a écrit dans le message de news:128901c49afb$651a7cc0$ Bonjour,
à partir d'un fichier EXCEL, je souhaite créer d'autres fichiers, tous placés au même endroit. Cet endroit doit être choisi par l'utilisateur.
En conséquence, j'ai besoin d'un affichage de l'exlorateur Windows qui me permette de d'obtenir le chemin d'accès pour la création des fichiers. Je ne veux pas créer immédiatement les fichiers, seulement récupérer le chemin.
J'ai essayé plusieurs dialogs, mais je ne trouve pas de description pour chacune qui permettrait de sélectionner celle qui convient.
Il me semble qu'il existe une solution simple, mais je n'arrive pas à la retrouver.
Merci d'avance
mj
.
Merci infiniment,
c'est exactement ce que je voulais faire !
Ca marche impec.
Merci encore
MJ
-----Message d'origine-----
Bonjour
Voici une manière de procéder (alncer la macro Test)
Cordialement
Pascal
Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Declare Function SHGetPathFromIDListA Lib "Shell32.dll" _
(ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolderA Lib "Shell32.dll" _
(lpBrowseInfo As BROWSEINFO) As Long
Sub Test()
Dim bInfo As BROWSEINFO, szPath As String * 512
bInfo.lpszTitle = "Sélectionnez un dossier."
bInfo.ulFlags = &H1
If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo),
szPath) Then
Else: MsgBox "Aucun dossier sélectionné."
End If
End Sub
"mj" <mj8019@yahoo.fr> a écrit dans le message de
news:128901c49afb$651a7cc0$a601280a@phx.gbl...
Bonjour,
à partir d'un fichier EXCEL, je souhaite créer d'autres
fichiers, tous placés au même endroit.
Cet endroit doit être choisi par l'utilisateur.
En conséquence, j'ai besoin d'un affichage de l'exlorateur
Windows qui me permette de d'obtenir le chemin d'accès
pour la création des fichiers. Je ne veux pas créer
immédiatement les fichiers, seulement récupérer le chemin.
J'ai essayé plusieurs dialogs, mais je ne trouve pas de
description pour chacune qui permettrait de sélectionner
celle qui convient.
Il me semble qu'il existe une solution simple, mais je
n'arrive pas à la retrouver.
c'est exactement ce que je voulais faire ! Ca marche impec.
Merci encore
MJ
-----Message d'origine----- Bonjour Voici une manière de procéder (alncer la macro Test) Cordialement Pascal
Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type
Declare Function SHGetPathFromIDListA Lib "Shell32.dll" _ (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolderA Lib "Shell32.dll" _ (lpBrowseInfo As BROWSEINFO) As Long Sub Test() Dim bInfo As BROWSEINFO, szPath As String * 512 bInfo.lpszTitle = "Sélectionnez un dossier." bInfo.ulFlags = &H1 If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo), szPath) Then
Else: MsgBox "Aucun dossier sélectionné." End If End Sub
"mj" a écrit dans le message de news:128901c49afb$651a7cc0$ Bonjour,
à partir d'un fichier EXCEL, je souhaite créer d'autres fichiers, tous placés au même endroit. Cet endroit doit être choisi par l'utilisateur.
En conséquence, j'ai besoin d'un affichage de l'exlorateur Windows qui me permette de d'obtenir le chemin d'accès pour la création des fichiers. Je ne veux pas créer immédiatement les fichiers, seulement récupérer le chemin.
J'ai essayé plusieurs dialogs, mais je ne trouve pas de description pour chacune qui permettrait de sélectionner celle qui convient.
Il me semble qu'il existe une solution simple, mais je n'arrive pas à la retrouver.
Merci d'avance
mj
.
papou
Re Tant mieux ! Cordialement Pascal
"MJ" a écrit dans le message de news:276001c49b02$b036fc90$ Merci infiniment,
c'est exactement ce que je voulais faire ! Ca marche impec.
Merci encore
MJ
-----Message d'origine----- Bonjour Voici une manière de procéder (alncer la macro Test) Cordialement Pascal
Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type
Declare Function SHGetPathFromIDListA Lib "Shell32.dll" _ (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolderA Lib "Shell32.dll" _ (lpBrowseInfo As BROWSEINFO) As Long Sub Test() Dim bInfo As BROWSEINFO, szPath As String * 512 bInfo.lpszTitle = "Sélectionnez un dossier." bInfo.ulFlags = &H1 If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo), szPath) Then
Else: MsgBox "Aucun dossier sélectionné." End If End Sub
"mj" a écrit dans le message de news:128901c49afb$651a7cc0$ Bonjour,
à partir d'un fichier EXCEL, je souhaite créer d'autres fichiers, tous placés au même endroit. Cet endroit doit être choisi par l'utilisateur.
En conséquence, j'ai besoin d'un affichage de l'exlorateur Windows qui me permette de d'obtenir le chemin d'accès pour la création des fichiers. Je ne veux pas créer immédiatement les fichiers, seulement récupérer le chemin.
J'ai essayé plusieurs dialogs, mais je ne trouve pas de description pour chacune qui permettrait de sélectionner celle qui convient.
Il me semble qu'il existe une solution simple, mais je n'arrive pas à la retrouver.
Merci d'avance
mj
.
Re
Tant mieux !
Cordialement
Pascal
"MJ" <mj8019@yahoo.fr> a écrit dans le message de
news:276001c49b02$b036fc90$a501280a@phx.gbl...
Merci infiniment,
c'est exactement ce que je voulais faire !
Ca marche impec.
Merci encore
MJ
-----Message d'origine-----
Bonjour
Voici une manière de procéder (alncer la macro Test)
Cordialement
Pascal
Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Declare Function SHGetPathFromIDListA Lib "Shell32.dll" _
(ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolderA Lib "Shell32.dll" _
(lpBrowseInfo As BROWSEINFO) As Long
Sub Test()
Dim bInfo As BROWSEINFO, szPath As String * 512
bInfo.lpszTitle = "Sélectionnez un dossier."
bInfo.ulFlags = &H1
If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo),
szPath) Then
Else: MsgBox "Aucun dossier sélectionné."
End If
End Sub
"mj" <mj8019@yahoo.fr> a écrit dans le message de
news:128901c49afb$651a7cc0$a601280a@phx.gbl...
Bonjour,
à partir d'un fichier EXCEL, je souhaite créer d'autres
fichiers, tous placés au même endroit.
Cet endroit doit être choisi par l'utilisateur.
En conséquence, j'ai besoin d'un affichage de l'exlorateur
Windows qui me permette de d'obtenir le chemin d'accès
pour la création des fichiers. Je ne veux pas créer
immédiatement les fichiers, seulement récupérer le chemin.
J'ai essayé plusieurs dialogs, mais je ne trouve pas de
description pour chacune qui permettrait de sélectionner
celle qui convient.
Il me semble qu'il existe une solution simple, mais je
n'arrive pas à la retrouver.
"MJ" a écrit dans le message de news:276001c49b02$b036fc90$ Merci infiniment,
c'est exactement ce que je voulais faire ! Ca marche impec.
Merci encore
MJ
-----Message d'origine----- Bonjour Voici une manière de procéder (alncer la macro Test) Cordialement Pascal
Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type
Declare Function SHGetPathFromIDListA Lib "Shell32.dll" _ (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolderA Lib "Shell32.dll" _ (lpBrowseInfo As BROWSEINFO) As Long Sub Test() Dim bInfo As BROWSEINFO, szPath As String * 512 bInfo.lpszTitle = "Sélectionnez un dossier." bInfo.ulFlags = &H1 If SHGetPathFromIDListA(SHBrowseForFolderA(bInfo), szPath) Then
Else: MsgBox "Aucun dossier sélectionné." End If End Sub
"mj" a écrit dans le message de news:128901c49afb$651a7cc0$ Bonjour,
à partir d'un fichier EXCEL, je souhaite créer d'autres fichiers, tous placés au même endroit. Cet endroit doit être choisi par l'utilisateur.
En conséquence, j'ai besoin d'un affichage de l'exlorateur Windows qui me permette de d'obtenir le chemin d'accès pour la création des fichiers. Je ne veux pas créer immédiatement les fichiers, seulement récupérer le chemin.
J'ai essayé plusieurs dialogs, mais je ne trouve pas de description pour chacune qui permettrait de sélectionner celle qui convient.
Il me semble qu'il existe une solution simple, mais je n'arrive pas à la retrouver.
