Bonjour,
Après avoir pautagé comme toi, j'ai fini par utiliser GetSaveAsFilenam e
Attention, j'ai des surprises en utilisant le filtre des extensions
J a c q u e s
a écrit dans le message denews:05e70a8d-edf7-4c31
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Bonjour,
Après avoir pautagé comme toi, j'ai fini par utiliser GetSaveAsFilenam e
Attention, j'ai des surprises en utilisant le filtre des extensions
J a c q u e s
<ph...@libertysurf.fr> a écrit dans le message denews:05e70a8d-edf7-4c31 -bee9-a6c31da971c0@m45g2000hsb.googlegroups.com...
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Bonjour,
Après avoir pautagé comme toi, j'ai fini par utiliser GetSaveAsFilenam e
Attention, j'ai des surprises en utilisant le filtre des extensions
J a c q u e s
a écrit dans le message denews:05e70a8d-edf7-4c31
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle
te convenir :
'===================== > Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'===================== >
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.frBonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle
te convenir :
'===================== > Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'===================== >
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle
te convenir :
'===================== > Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'===================== >
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.frBonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Un peu d'ergotage ...
Un peu d'ergotage ...
quelques retouches à la fonction de Nicolas pour sélectionner un dossier
'---------------------------
Sub test()
' Attention le "" à la fin de la ligne de commande est essentielle.
MsgBox SelDossier("C:ATravail")
End Sub
'---------------------------
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function
'---------------------------
"Frédéric Sigonneau" a écrit dans le message de news:
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle te convenir :
'===================== > Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'===================== >
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.frBonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Un peu d'ergotage ...
Un peu d'ergotage ...
quelques retouches à la fonction de Nicolas pour sélectionner un dossier
'---------------------------
Sub test()
' Attention le "" à la fin de la ligne de commande est essentielle.
MsgBox SelDossier("C:ATravail")
End Sub
'---------------------------
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function
'---------------------------
"Frédéric Sigonneau" <nospam@nospam> a écrit dans le message de news:
eZXbFzQrIHA.2208@TK2MSFTNGP04.phx.gbl...
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle te convenir :
'===================== > Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'===================== >
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Un peu d'ergotage ...
Un peu d'ergotage ...
quelques retouches à la fonction de Nicolas pour sélectionner un dossier
'---------------------------
Sub test()
' Attention le "" à la fin de la ligne de commande est essentielle.
MsgBox SelDossier("C:ATravail")
End Sub
'---------------------------
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function
'---------------------------
"Frédéric Sigonneau" a écrit dans le message de news:
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle te convenir :
'===================== > Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'===================== >
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.frBonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
> Un peu d'ergotage ...
Pas de problème, tu as vu que j'ai ergoté tout seul comme un grand :)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.frUn peu d'ergotage ...
quelques retouches à la fonction de Nicolas pour sélectionner un dos sier
'---------------------------
Sub test()
' Attention le "" à la fin de la ligne de commande est essentielle .
MsgBox SelDossier("C:ATravail")
End Sub
'---------------------------
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function
'---------------------------
"Frédéric Sigonneau" a écrit dans le message de ne ws:
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle te convenir :
'======================
Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'======================
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.frBonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boî te
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouvert ure de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
> Un peu d'ergotage ...
Pas de problème, tu as vu que j'ai ergoté tout seul comme un grand :)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
Un peu d'ergotage ...
quelques retouches à la fonction de Nicolas pour sélectionner un dos sier
'---------------------------
Sub test()
' Attention le "" à la fin de la ligne de commande est essentielle .
MsgBox SelDossier("C:ATravail")
End Sub
'---------------------------
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function
'---------------------------
"Frédéric Sigonneau" <nospam@nospam> a écrit dans le message de ne ws:
eZXbFzQrIHA.2...@TK2MSFTNGP04.phx.gbl...
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle te convenir :
'======================
Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'======================
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boî te
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouvert ure de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
> Un peu d'ergotage ...
Pas de problème, tu as vu que j'ai ergoté tout seul comme un grand :)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.frUn peu d'ergotage ...
quelques retouches à la fonction de Nicolas pour sélectionner un dos sier
'---------------------------
Sub test()
' Attention le "" à la fin de la ligne de commande est essentielle .
MsgBox SelDossier("C:ATravail")
End Sub
'---------------------------
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function
'---------------------------
"Frédéric Sigonneau" a écrit dans le message de ne ws:
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle te convenir :
'======================
Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'======================
FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.frBonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boî te
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouvert ure de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ça a l'air sympathique mais mon Excel97 bloque sur le type FileDialog
qu'il ne connaît pas.
On 3 mai, 16:37, Frédéric Sigonneau wrote:Un peu d'ergotage ...
Pas de problème, tu as vu que j'ai ergoté tout seul comme un grand :)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.frUn peu d'ergotage ...
quelques retouches à la fonction de Nicolas pour sélectionner un dossier
'---------------------------
Sub test()
' Attention le "" à la fin de la ligne de commande est essentielle..
MsgBox SelDossier("C:ATravail")
End Sub
'---------------------------
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function
'---------------------------
"Frédéric Sigonneau" a écrit dans le message de news:
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle te convenir :
'===================== >>> Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'===================== >>> FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.frBonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ça a l'air sympathique mais mon Excel97 bloque sur le type FileDialog
qu'il ne connaît pas.
On 3 mai, 16:37, Frédéric Sigonneau <nospam@nospam> wrote:
Un peu d'ergotage ...
Pas de problème, tu as vu que j'ai ergoté tout seul comme un grand :)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.fr
Un peu d'ergotage ...
quelques retouches à la fonction de Nicolas pour sélectionner un dossier
'---------------------------
Sub test()
' Attention le "" à la fin de la ligne de commande est essentielle..
MsgBox SelDossier("C:ATravail")
End Sub
'---------------------------
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function
'---------------------------
"Frédéric Sigonneau" <nospam@nospam> a écrit dans le message de news:
eZXbFzQrIHA.2...@TK2MSFTNGP04.phx.gbl...
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle te convenir :
'===================== >>> Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'===================== >>> FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.fr
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ça a l'air sympathique mais mon Excel97 bloque sur le type FileDialog
qu'il ne connaît pas.
On 3 mai, 16:37, Frédéric Sigonneau wrote:Un peu d'ergotage ...
Pas de problème, tu as vu que j'ai ergoté tout seul comme un grand :)
FS
---
Frédéric Sigonneauhttp://frederic.sigonneau.free.frUn peu d'ergotage ...
quelques retouches à la fonction de Nicolas pour sélectionner un dossier
'---------------------------
Sub test()
' Attention le "" à la fin de la ligne de commande est essentielle..
MsgBox SelDossier("C:ATravail")
End Sub
'---------------------------
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = Defaut
If .Show = -1 Then
SelDossier = fd.SelectedItems(1)
End If
End With
Set fd = Nothing
End Function
'---------------------------
"Frédéric Sigonneau" a écrit dans le message de news:
Si tu utilises au moins Excel 2002, peut-être cette fonction peut-elle te convenir :
'===================== >>> Sub test()
MsgBox SelDossier("J:fsCanal")
End Sub
Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.InitialFileName = "J:fsCanal*.*"
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
SelDossier = vrtSelectedItem
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Function
'===================== >>> FS
---
Frédéric Sigonneau
http://frederic.sigonneau.free.frBonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour,
Après avoir pautagé comme toi, j'ai fini par utiliser GetSaveAsFilename
Attention, j'ai des surprises en utilisant le filtre des extensions
J a c q u e s
a écrit dans le message
denews:
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Bonjour,
Après avoir pautagé comme toi, j'ai fini par utiliser GetSaveAsFilename
Attention, j'ai des surprises en utilisant le filtre des extensions
J a c q u e s
<ph...@libertysurf.fr> a écrit dans le message
denews:05e70a8d-edf7-4c31-bee9-a6c31da971c0@m45g2000hsb.googlegroups.com...
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci
Bonjour,
Après avoir pautagé comme toi, j'ai fini par utiliser GetSaveAsFilename
Attention, j'ai des surprises en utilisant le filtre des extensions
J a c q u e s
a écrit dans le message
denews:
Bonjour à tous,
Je cherche sans succès depuis 2 jours, une fonction ouvrant une boîte
de dialogue permettant de:
a) sélectionner un dossier
b) en choisissant le dossier par défaut (sélectionné à l'ouverture de
la boîte)
c) mais autorisant aussi de parcourir l'arborescence en amont du
dossier par défaut.
J'ai trouvé des fonctions permettant de réaliser 2 conditions sur 3 (a
+ b ou a + c) mais jamais a + b + c
Merci