Problème avec un FileDialog

Question

Bonjour,

J'ai un petit problème avec la fonction "Application.FileDialog(msoFileDialogFilePicker)".

voici mon code :

Set fd =  Application.FileDialog(msoFileDialogFilePicker)



    'Define the DialogBox
    With fd



         If (strLigne = "") Then
            .InitialFileName = "C:"
        Else
            .InitialFileName = strLigne
        End If
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add Description:="Text file (*.txt)", Extensions:="*.txt", Position:=1
        .Filters.Add Description:="All files (*.*)", Extensions:="*.*", Position:=2
        .Title = "Open configuration file"



        If .Show = -1 Then
            ConfigurationFilePath = .SelectedItems(1)
        Else
            MsgBox "Can not open configuration file, macro not loaded", vbCritical, "Configuration file not found"
            Exit Sub
        End If
    End With



    Set fd = Nothing


La fonction fonctionne très bien, sauf dans un cas bien précis :  quand je veux récupérer un fichier sur le réseau .

J'ai fait plusieurs tests :
   - Favoris réseau/Tout le réseau/Réseau Microsoft Windows  =>Gros plantage et plus rien ne se passe
   - Favoris réseau et prendre un de mes favoris et là ça passe.

La macro tourne sur Excel 2003.

Est- ce que qq'un a déjà eu ce problème???
J'ai cherché sur le net mais rien trouvé à ce sujet...

Merci de votre aide

us_30 · Answer

Bonsoir,

Pour moi : Favoris réseau/Tout le réseau/Réseau Microsoft Windows => Aucun plantage.

Je ne crois pas que c'est la faute à FileDialog , essayes déjà avec l'explorer de windows pour voir le résultat...

Amicalement,
Us.

pflicopath · Answer

Avec l'explorer de Windows, aucun problème, je me balade sur le réseau sans aucun soucis... C'est bien pour ça que je ne comprends pas pourquoi le FileDialog ne marche pas...

Bonne année à tous

Problème avec un FileDialog

2 réponses

Votre réponse

Discussions similaires