Boite ouverture fichier au format grand icone

[christ-94]

Bonjour

j'aimerai que lorsque j'exécute ce code "il sert a récupérer le nom d'un fichier image sélectionné par l'utilisateur dans un répertoire donné"

Sub choisir_fichier()
    Application.ScreenUpdating = False
Call remise_en_etat
Sheets.Add.Name = "Import"
Application.EnableEvents = True ' arret alarme
classeur_import = Sheets("protege").Range("a5")
'choix du repertoire
ChDir ("C:\Tmp\Nouveau dossier (2)\")
nf = Application.GetOpenFilename("Fichiers Xls,*.jpg")
Sheets("protege").Range("a8") = nf
End Sub

que l'affichage dans l'exploreur Windows soit pré-paramètre sur grand icône pour avoir une vue des images lors de la sélection

Merci d'avance

 

[tototiti2008]

Re : Boite ouverture fichier au format grand icone

Bonjour christ,

peut-être

Sub choisir_fichier()
Dim FD As FileDialog, nf as string
    Application.ScreenUpdating = False
Call remise_en_etat
Sheets.Add.Name = "Import"
Application.EnableEvents = True ' arret alarme
classeur_import = Sheets("protege").Range("a5")
'choix du repertoire
Set FD = Application.FileDialog(msoFileDialogOpen)
nf=""
With FD
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Fichiers JPEG", "*.jpg"
    .InitialFileName = "C:\Tmp\Nouveau dossier (2)\"
    .InitialView = msoFileDialogViewThumbnail
    If .Show <> 0 Then
        nf = .SelectedItems(1)
        MsgBox nf
    End If
End With
Sheets("protege").Range("a8") = nf
end sub

 

[christ-94]

Re : Boite ouverture fichier au format grand icone

re-bonjour et merci

je viens de faire le test cela n'a pas fonctionne
si je passe l'affichage des fichiers en détail et que je relance la macro
l'affichage est toujours en détail et pas en grand icône

 

[christ-94]

Re : Boite ouverture fichier au format grand icone

je mets une image pour plus de compréhension

Merci de votre aide

Christophe

 

[tototiti2008]

Re : Boite ouverture fichier au format grand icone

Re,

essaye peut-être de remplacer

msoFileDialogViewThumbnail

par

msoFileDialogViewLargeIcons

Moi j'ai Windows XP, pas sûr que ça réagisse pareil sur toutes les version de Windows

 

[christ-94]

Re : Boite ouverture fichier au format grand icone

Je viens de faire le test
Ne fonctionne pas, il ne permute pas en grand icône, de ce fait je ne vois pas les photos
en tout cas merci pour ton aide

 

[christ-94]

Re : Boite ouverture fichier au format grand icone

je viens de faire un test avec le module propose par l'aide
même lui ne fonctionne pas
impossible de passer de détail a large icône
y a t'il un module complémentaire a mettre

 

[tototiti2008]

Re : Boite ouverture fichier au format grand icone

Re,

désolé, pas trop d'idée
Tu peux préciser si tu as un Vista ou un Windows 7, pour les utilisateurs équipés comme toi qui passeraient ?

 

[christ-94]

Re : Boite ouverture fichier au format grand icone

en tout cas un grand merci
car j'ai la fonction , effectivement cela ne fonctionne pas car il y a un blocage, mais j'ai avance
pour répondre j'ai un VISTA et office 2007

ci-joint le code de l'aide qui ne fonctionne pas chez moi non plus

Sub Main()

    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog

    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    'Declare a variable to contain the path
    'of each selected item. Even though the path is aString,
    'the variable must be a Variant because For Each...Next
    'routines only work with Variants and Objects.
    Dim vrtSelectedItem As Variant

    'Use a With...End With block to reference the FileDialog object.
    With fd
        
        'Set the initial view to the details view.
        .InitialView = msoFileDialogViewDetails

        'Use the Show method to display the File Picker dialog box and return the user's action.
        'If the user presses the button...
        If .Show = -1 Then

            'Step through each string in the FileDialogSelectedItems collection.
            For Each vrtSelectedItem In .SelectedItems

                'vrtSelectedItem is aString that contains the path of each selected item.
                'You can use any file I/O functions that you want to work with this path.
                'This example displays the path in a message box.
                MsgBox "Selected item's path: " & vrtSelectedItem

            Next vrtSelectedItem
        'If the user presses Cancel...
        Else
        End If
    End With

    'Set the object variable to Nothing.
    Set fd = Nothing

End Sub

 

[tototiti2008]

Re : Boite ouverture fichier au format grand icone

Re,

si tu es germanophone tu pourras observer que d'autres ont eu le soucis sous Vista :
FileDialog - InitialView keine Wirkung - - - Office-Loesung.de
Peut-être un raccourcis clavier qui permet de passer en affichage Grandes icônes sous Vista ?

 

[christ-94]

Re : Boite ouverture fichier au format grand icone

bonjour

effectivement, il y a un problème
encore merci pour ton aide tototiti2008