Discussion :

[francis60]

Bonjour à tous,

Sous Excel 2003 / Windows Xp, j'avais cette boîte de dialogue pour proposer à l'utilisateur de choisir un fichier disponible sur un sharepoint.

(Pour info, cette image ne pèse que 93Ko).

L'instruction ".InitialView = msoFileDialogViewProperties" permettait d'afficher une prévisualisation de propriétés du fichier (en l’occurrence une table de référence) sur le côté droit de la fenêtre. Notamment la propriété 'Category' définissait le statut du fichier (Obsolete, Released, Closed...).

Aujourd'hui, je suis sous Excel 2010 et Office 7 et l'aperçu des propriétés ne s'affiche plus.
Le survol du nom de fichier avec la souris ne fait pas apparaître de popup avec le petit résumé des propriétés non plus (spécificité Sharepoint).
Les propriétés de fichiers affichées en colonne ne correspondent pas à celles que je souhaiterais mettre en avant, ceci est peut-être modifiable par du code VBA...

Est-il possible d'obtenir quelque-chose d'équivalent sous Excel 2010 / Office 7, c'est à dire l'affichage dynamique des attributs Keywords, Comments et Category du fichier pré-sélectionné dans la fenêtre FileDialogPicker ?

Merci pour votre aide,
Francis

---------------------------------------------------------------------------------------------------------------------
Le code qui ouvre la fenêtre et qui fonctionne toujours hormis le problème d'affichage:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim ChoiceFileDialog As FileDialog
Dim pickedFile As Boolean
 
Set ChoiceFileDialog = Application.FileDialog(msoFileDialogFilePicker)
 
With ChoiceFileDialog
    .InitialFileName = SubDir_  'Replace(SubDir_, "/", strSystemSeparator)
    .Title = Title_
    .ButtonName = "Select table"
 
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xls; *.xlsx"
 
        '.InitialView = msoFileDialogViewWebView
        '.InitialView = msoFileDialogViewDetails
        .InitialView = msoFileDialogViewProperties
 
End With
 
    pickedFile = ChoiceFileDialog.Show
 
    If pickedFile Then ChoosenFile = ChoiceFileDialog.SelectedItems(1)
 
Set ChoiceFileDialog = Nothing

[francis60]

Comme je n'ai pas encore été fustigé pour ajout abusif d'images, j'ajoute celle-ci qui illustre une solution disponible sous Windows 7 dans le logiciel Autocad:

(81Ko).

C'est juste pour illustrer, car je ne crois pas que ce soit possible de faire la même chose avec du VBA.

[clementmarcotte]

Bonjour,

Tu aurais peut-être une solution détournée avec DSOFile. Mais cela ne fonctionne que pour les Fichiers Office et des conteneurs OLE:


https://support2.microsoft.com/defau...=kb;FR;q224351

http://silkyroad.developpez.com/VBA/...etesClasseurs/

[francis60]

Bonjour à tous, bonjour Clément,

https://support2.microsoft.com/defau...=kb;FR;q224351

Je ne peux pas utiliser "Dsofile.dll" car je n'ai pas les outils de développement Visual Basic .NET, je ne sais utiliser que VBA. Développer de A à Z une boîte de dialogue spécifique genre FileDoalogPicker juste pour faciliter la sélection de fichier me semble avec mes connaissances actuelles beaucoup de travail au vu de la valeur ajoutée pour l'utilisateur...

http://silkyroad.developpez.com/VBA/...etesClasseurs/

Il y a des choses intéressantes dans ce tutoriel qui me permettraient de traiter les cas où le statut de la table n'est pas valide sans ouvrir le fichier, ce qui serait plus "propre". Aujourd'hui, j'ouvre systématiquement le fichier XL choisi par l'utilisateur, je te teste et je le referme s'il ne convient pas (voir code en bas de page).


Je reviens donc à l'autre idée: " personnaliser les propriétés de fichiers affichées en colonne du menu Open d'Excel sous Office 7 qui ne correspondent pas à celles que je souhaiterais mettre en avant, ceci est peut-être modifiable par du code VBA... "

Ce serait le meilleur compromis pour répondre à mon besoin, quelqu'un saurait-il me dire si c'est possible ?

---

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'Check on type of file : Category = "Released" or "Released"
If Not (ChoosenWorkbook.BuiltinDocumentProperties("Category").Value = "Released" Or _
    ChoosenWorkbook.BuiltinDocumentProperties("Category").Value = "Review") Then
    GoTo ErrorTablePropertiesCategory
End If
 
'               .../...
 
Exit Function
 
'If ChoosenFile status is not ok, displays a message and exits the macro
ErrorTablePropertiesCategory:
    ChoosenWorkbook.Close
    Set ChoosenWorkbook = Nothing
    MsgBox "Selected table status is not appropriate" & vbNewLine & _
    "Loading cancelled", vbExclamation, ApplicationName
    Exit Function