Problème chemin accès vba excel

Version imprimable

Bonjour à tous

Ma Question, j'ai élaboré un petit programme en VBA Excel 2010 pour me permettre d'aller chercher un fichier dans un dossier.
Jusque là, tout fonctionnait bien.
Depuis un mois, nous avons changé de mode de fonctionnement et travaillons sur un réseau.
J'ai donc essayé de mettre le chemin du réseau mais la fenêtre qui s'ouvre n'est pas la bonne ( pas complet).
Pouvez vous m'expliquer et m'aider??
Code:

1 2 3 4 5 [Application.ScreenUpdating = False Application.StatusBar = "Traitement en cours ! NE TOUCHE A RIEN!!!" Application.Cursor = xlWait ChDir "Z:\Espace de travail\BoisAbattu\DonneesTerrain" OuvrirFichiers = Application.GetOpenFilename(Filefilter:="Fichiers texte(*.csv),*.csv,Fichiers excel(*.xls),*.xls", FilterIndex:=1, Title:="Ouverture de fichiers terrain", MultiSelect:=True)]

24/08/2018, 16h57
parmi

Bonjour,

Tu pourrais essayer en ajoutant une ligne avant le ChDir

Code:

ChDrive "Z"

re
OU tu utilise filedialog et sa prpriété "initialfilename"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub FICHIERS()
    Dim dialog_Fichier As FileDialog, fichiers_selectionnés As Variant
    Set dialog_Fichier = Application.FileDialog(msoFileDialogFilePicker)
    With dialog_Fichier
        .InitialFileName = "C:\Users\polux\Desktop\vba excel pour DVP"
        If .Show = -1 Then
            For Each fichiers_selectionnés In .SelectedItems
                Debug.Print fichiers_selectionnés
            Next fichiers_selectionnés
        Else
            MsgBox "Selection de fichiers Annulée"
        End If
    End With
    Set dialog_Fichier = Nothing
End Sub

28/08/2018, 20h45
lps02

Merci pour vos réponses précieuses
Bien cordialement
lps02