Utilisation de FileDialog.InitialView, propriété

Bonjour,

J'ai ce petit bout de code qui ne fonctionne pas au niveau de la propriété InitialView qui normalement permet de choisir le type de présentation (liste , grande icône, ...).
Le changement du type n'est pas répercuté, le résultat est toujours le même ?


Selon la doc en ligne ICI

Citation:

---

Obtient ou définit une constante MsoFileDialogView représentant la présentation initiale des fichiers et des dossiers dans une boîte de dialogue fichier. En lecture-écriture.
Syntaxe
expression. InitialView
expression Variable qui représente un objet FileDialog .
Exemple
L’exemple suivant affiche une boîte de dialogue Sélecteur de fichier en mode Détails à l’aide de l’objet FileDialog et affiche chaque fichier sélectionné dans une boîte de message.

---

Code:

---

1 2 3 4 5 6 7 8 9

Dim fdgOpen As FileDialog Set fdgOpen = Application.FileDialog(msoFileDialogOpen) With fdgOpen .Title = "file..." .InitialFileName = "C:\Temp\" .InitialView = msoFileDialogViewSmallIcons .Show End With

---

La liste des constantes MsoFileDialogView

Citation:

---

Name Value Description
msoFileDialogViewDetails 2 Files displayed in a list with detail information.
msoFileDialogViewLargeIcons 6 Files displayed as large icons.
msoFileDialogViewList 1 Files displayed in a list without details.
msoFileDialogViewPreview 4 Files displayed in a list with a preview pane showing the selected file.
msoFileDialogViewProperties 3 Files displayed in a list with a pane showing the selected file's properties.
msoFileDialogViewSmallIcons 7 Files displayed as small icons.
msoFileDialogViewThumbnail 5 Files displayed as thumbnails.
msoFileDialogViewTiles 9 Files displayed as tiled icons.
msoFileDialogViewWebView 8 Files displayed in Web view.

---

Bonjour

Effectivement même constat... sous Win7 Excel 2010

Salut

Idem sous Win7, Excel 2007...

++
Qwaz

Bonjour,

Même chose. Excel 365, Windows10

Bonjour
aucun problème de l'espèce avec Office 2007 et XP
Je n'écarte pas l'hypothèse d'une protection des paramètres (options d'affichage) sur OS au-delà de XP. ;)

Bonjour,

par contre l'affichage correspond à celui défini pour le dossier dans l'explorateur de fichier.
Reste à trouver où ça se paramètre.
eric

Bonjour eriiic

Citation:

---

par contre l'affichage correspond à celui défini pour le dossier dans l'explorateur de fichier.

---

voilà qui conforte mon hypothèse.
Et si options protégées (probablement "en tant qu'administrateur"), Ce ne sera pas VBA qui pourra seul contrecarrer ces protections.

Citation:

---

Reste à trouver où ça se paramètre.

---

Depuis Windows. VBA n'a rien à voir, lui.;)

Bonjour,

Je n'ai pas trouvé plus d'informations. Mais en effectuant ces recherches, j'ai une constatation sur la propriété " .ButtonName " qui permet de personnaliser le texte du bouton d'action.

J'ai repris un exemple du site Microsoft et comme pour la propriété "InitialView " cela ne fonctionne pas. Le nom du bouton ne change pas.

En revanche, en choisissant un type différent de FileDialog par exemple "msoFileDialogFolderPicker" cela fonctionne.

J'ai donc testé si la variation de type permet à la propriété "InitialView " d'être prise en compte mais sans résultat.

Voilà ... je vous souhaite un bon été !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Dim fd As FileDialog     'Garde le texte standard du bouton -> Ouvrir ' Set fd = Application.FileDialog(msoFileDialogFilePicker)   ' Avec ces deux types affiche le texte perso "Mon bouton" ' Set fd = Application.FileDialog(msoFileDialogSaveAs) Set fd = Application.FileDialog(msoFileDialogFolderPicker)     With fd   .Title = "Mon Titre" .ButtonName = "Mon bouton" .InitialView = msoFileDialogViewLargeIcons '.InitialView = msoFileDialogViewPreview '.InitialView = msoFileDialogViewDetails '.InitialView = msoFileDialogViewList '.InitialView = msoFileDialogViewProperties '.InitialView = msoFileDialogViewSmallIcons '.InitialView = msoFileDialogViewThumbnail '.InitialView = msoFileDialogViewTiles '.InitialView = msoFileDialogViewWebView '.InitialView = msoFileDialogViewDetails .Show End With

---

Ne pas confondre ce que gère cette boîte de dialogue indépendamment de l'explorateur avec les options d'affichage de l'explorateur.
Le bouton dont tu parles n'est pas géré par les options d'affichage de l'explorateur et appartient à la seule boîte de dialogue. ;)