VBA - Запись на подключенный сетевой диск

Question

Привет к VBA Разработчики

Я хотел бы написать на сетевой диск (P: \)

Следующий код, кажется, не функционирует и генерирует ошибку, выполняющую 76. Не могли бы вы объяснить мне причину этой ошибки и как ее решить?

Большое спасибо за ваш совет заранее.

Sub Enregistre_Fichier_bon_nom_bon_endroit() 

    ChDrive "P" 
    ChDir "P:\SG\INFOR\" 

    Repertoire = Sheets("MAJ").Range("B1").Value & "\" & Sheets("FICHE_DEMANDE").Range("AH2").Value & "\" 
    ChDir Repertoire 
    SaveFileName = CurDir & "\" & Sheets("FICHE_DEMANDE").Range("B14").Value & "_" & Sheets("FICHE_DEMANDE").Range("a4").Value & "_ Suivi_FIR_directions_metier_2015_" 
    MsgBox (SaveFileName) 
    Set REP = Application.FileDialog(msoFileDialogSaveAs) 
    With REP 
    .AllowMultiSelect = False 
    .InitialFileName = SaveFileName 
    .FilterIndex = 2 
    If .Show = -1 Then 
    ActiveWorkbook.SaveAs Filename:=SaveFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
    End If 
    End With 
End Sub 

Answer 1

вместо ОС с помощью changedir я предлагаю использовать полное имя файла

как

Repertoire = Sheets("MAJ").Range("B1").Value & "\" &  Sheets("FICHE_DEMANDE").Range("AH2").Value & "\" 

SaveFileName = "P:\" & Repertoire & "\" & Sheets("FICHE_DEMANDE").Range("B14").Value & "_" & Sheets("FICHE_DEMANDE").Range("a4").Value & "_ Suivi_FIR_directions_metier_2015_"